Eng.Qassim

السلام عليكم لماذا لم تعمل حقل محسوب قبل تقسيم القاعدة ..وهل الجداول الان فيها بيانات ماهي علاقة التقرير لكي ينقل المجموع الى الجدول...التقرير هو اخر مانحصل عليه من الجداول او الاستعلامات اذا كان لابد من ذلك فلايخطر في بالي غير طريق واحد..هو ان تعمل جدول اخر (تنسخه من الجدول الاصلي) وتعمل له حقل محسوب ثم تعمل استعلامين..استعلام حذف بيانات الجدول الاصلي..واستعلام الحاق من الجدول الثاني الذي فية حقل المحسوب الى الجدول الاصلي وبهذا يتم تحديث البيانات في القاعدة المنفصلة بالتأكيد هناك طرق اخرى ..ربما احد الاخوة يسعفنا بها

بالاضافة لما تفضل به الاخ @عبد الله قدور يمكنك ان تضع الكود التالي في مصدر بيانات حقل الرصيد السابق دون الحاجة للاستعلام DSum("[blance]";"recept";"[acc_no_recpt]=" & [Forms]![n_ame]![av1] & "AND date < [Forms]![n_ame]![av3]")

بصراحة لست محاسبا ولا افهم ماتقول ...لكني بنيت على عبارتك (ولامثاله)..فهمت انك تريد اضافة شرط وجود كلمة (عهدة) ارجوا منك التوضيح اكثر ...لان من يقرأ لك ليس محاسبا في اغلب الاحوال

وعليكم السلام ممكن تعطينا مثال ...مثلا ورثة عبدالجبار...ما المفروض ان يظهر الرصيد السابق وياريت لبقية الاسماء اتكلم عن نفسي ..لا املك خبرة بالمحاسبة ... ولهذا اريد توضيحا منك لابني معادلاتي

وعليكم السلام هل تقصد اضافة كلمة (عهدة) الى هذا الشرط : [رقم الحساب]<>201

يجب ان نفهم اخي العزيز بأن جملة الاستعلام تأتينا بقيمة واحدة حسب المعايير التي وضعناها ...حيث تمرر هذه القيمة وحسب المعايير الى الفكشن ليتم ترتيبها حسبما نريد وحسب سؤالك الاخير الذي تريد اضافة معيار كود المريض لانه محتمل ان يعمل تحليلين في اليوم الواحد استبدل جملة الاستعلام بهذه ...واخبرنا بالنتيجة : SimpleCSV("SELECT TName FROM 1_JO WHERE Pname='" & [Pname] & "' AND Pcode='" & [Pcode] & "' AND Ddate=#" & Format([DDate];"mm/dd/yyyy") & "#")

وعليكم السلام اكتب الكود بعد التحديث...هكذا Private Sub xx_AfterUpdate() If Nz(DCount("[Key]", "dfg", "[xx]=[nmber]"), 0) = 0 Then Else MsgBox "هذا الرقم مكرر", vbInformation, "رسالة تنبيه" DoCmd.CancelEvent Me.xx = "" End If Me.الاسم.SetFocus End Sub

السلام عليكم.. افتح ال Query2 ..سيقوم بتجميع الفحوصات للشخص بنفس التاريخ طبعا الحقوق محفوظة لصاحب الكود رغم انه منشور في صفحة عامة ..لكن للامانة تركت اسم المصدر A.rar

🤔

كلامك صحيح استاذي @AbuuAhmed لكني افترضت ان ادخال التواريخ يومي او عامل Ascending للتاريخ تبقى DMax افضل تفاديا للاخطاء احسنت استاذ

ولهذا استخدمت Dlast ..فهي تأخذ اخر اجازة يمكنك ان تستخدم هذا الكود ايضا Private Sub DateShift_AfterUpdate() Dim startDate As Date Dim endDate As Date Dim vacationDate As Date startDate = DLast("[strDate]", "[TblLeaveRegistrationOrdinary]", "[Emp]='" & [emp] & "'") endDate = DLast("[EndDate]", "[TblLeaveRegistrationOrdinary]", "[Emp]='" & [emp] & "'") vacationDate = Me.DateShift If vacationDate >= startDate And vacationDate <= endDate Then MsgBox "الموظف في اجازة" Me.DateShift = "" End If End Sub

فهمت قصدك اخي الكريم وحاولت ان اغير بحلقة الدوران للروتين DisplayMeetings بحيث يتضمن اختيار ال unit من مربع التحرير والسرد لكني لم افلح سوألك جميل وياريت احد الاخوة من الاساتذة مساعدتنا انا كبرت في دماغي ولازم اوصل لحل 😢

السلام عليكم اخي الكريم ... صدقني قرأت مقالتك عدة مرات ولم افهم ماتريد ..لان برنامج الاستاذة زهرة شغال معاك تمام ويظهر المواعيد واي فلترة تتحدث عنها ؟ ارجوا ان تبدأ سؤالك من جديد وياريت تدعمنا بالصور لماتريد تحياتي لك

لا اعلم لماذا مايكروسوفت لم تضع هذا الكود البرمجي ضمن جميع النسخ ...بحيث لا يحتاج المبرمج ان يكتب هذا الكود ؟

لانك تستخدم نسخة 64 ضع ptrsafe بعد ال Declare

حسب ماذكره صاحب الفيديو بأن الروبوت لايدعم 45 دولة من بينها مصر والسعودية والبحرين وغيرها ولا اعلم ماهو السبب في ذلك

طيب جرب الان بالنسبة للخطأ الحاصل MO.rar

الموقع فتح معي وانا في العراق.. بصراحة الموقع خرافي..يحتاجه كل طالب علم مثلي

بالنسبة لزيادة الكمية لنفس الصنف ...تجد هنا الجواب الشافي

وعليكم السلام .. بالنسبة لسؤالك الاول ..الدالة بتشتغل معاك كويس ومافيهاش مشكلة الشطر الثاني من السؤال ... يمكنك عمل مربع نص بأسم Ds ومربع نص ثاني باسم De ويمكنك ان تخفيهما في النموذج ..وتجعل مصد السجلات لهما هكذا Ds =DLast("[strDate]";"[TblLeaveRegistrationOrdinary]";"[Emp]='" & [Emp] & "'") De =DLast("[EndDate]";"[TblLeaveRegistrationOrdinary]";"[Emp]='" & [Emp] & "'") وفي حدث بعد التحديث للحقل DateShift في النموذج تضع الكود التالي Private Sub DateShift_AfterUpdate() If Me.DateShift >= Me.Ds And Me.DateShift <= Me.De Then MsgBox "الموظف في اجاؤة" DoCmd.CancelEvent Me.DateShift = "" End If End Sub

هلا بيك اكثر لابأس استخدم عرض التصميم Database30.rar

وعليكم السلام.. اجعل النموذج في وضع layout view ثم اضغط على العنصر الموجود في النموذج ومن الشريط Arrange .... اضغط على Anchoring ..اختر ..Top Left

اختصرها استاذ موسى بجملة سكوال واحدة 😃

في هذه الحالة نحتاج لتفريغ البيانات القديمة من خلال استعلام حذف

عمل رائع استاذ عمر وجعله الله في ميزان حسناتك نسأل الله العلي القدبر ان يرحم والدتك ويجعل مثواها الجنة