أبوبسمله

وبما ان الموضوع سهل لما اخذ كل هذا النقاش اخى الفاضل ولم لم تحله بالاستعلامات قبل الكود وبعد ذلك تحولها لاكواد هذا صحيح وكنت ناوى ابدا معه من الصفر تانى واستخدام الاستعلامات العاديه قبل الاكواد ولكنصدمنى برده المختصر السهل والحمدلله اخى محمد @Barna جزاه الله خيرا قصر علينا الطريق ولم الانتظار قم باخذ نسخه للتجربه وقدم تاريخ الجهاز وجرب حتى يتثنى التعديل الكامل مره واحده ومعالجه جميع مشاكلك فى حين الذهن حاضر فالموضوع ولا يحتاج لاعاده دراسه الاكواد وتتبعها ومعالجتها قصر الطريق ع نفسك وع اخوانك حتى يتثنى لهم مساعدتك تمنياتى لكم بالتوفيق

السلام عليكم مشاركه مع اخوتى واساتذتى اعجبتنى طريقه اخى الفاضل @Foksh جزاه الله خيرا وقمت بالتعديل عليها لان الخطأ الذى ظهر للاستاذ عبداللطيف بسبب ان التوقيت فى صباحا ومساء بالعربى وعند اخى فادى بالانجليزى وهذا ما احدث الخطأ فقمت بالتعديل عليها حيث تعلمت الطريقه من اخى فاضل هنا بالمنتدى جزاه الله عنا كل خير Private Sub Command7_Click() Dim rs As DAO.Recordset Dim sql As String sql = "SELECT 1 FROM Tbl_Party WHERE DATE_PARTY = #" & Me.DATE_PARTY & "# " & _ "AND ((" & CDbl(Me.TIME_PARTY_START) & " BETWEEN cdbl(TIME_PARTY_START) AND cdbl(TIME_PARTY_END)) " & _ "OR (" & CDbl(Me.TIME_PARTY_END) & " BETWEEN cdbl(TIME_PARTY_START) AND cdbl(TIME_PARTY_END)) " & _ "OR (cdbl(TIME_PARTY_START) BETWEEN " & CDbl(Me.TIME_PARTY_START) & " AND " & CDbl(Me.TIME_PARTY_END) & "))" Set rs = CurrentDb.OpenRecordset(sql, dbOpenSnapshot) If Not rs.EOF Then MsgBox "يوجد حجز مسبق لهذه الفترة!", vbExclamation, "تنبيه" Else CurrentDb.Execute "INSERT INTO Tbl_Party (DATE_PARTY, TIME_PARTY_START, TIME_PARTY_END) " & _ "VALUES (#" & Me.DATE_PARTY & "#, #" & Me.TIME_PARTY_START & "#, #" & Me.TIME_PARTY_END & "#)", dbFailOnError MsgBox "تم حفظ الحجز بنجاح!", vbInformation, "تأكيد" End If rs.Close: Set rs = Nothing End Sub تمنياتى لكم بالتوفيق WEEDING HALLS_1.accdb

اتمنى ان يجد احد الاخوه او الاساتذه حلا لك لانى بصراحه مش قادر افهم الموضوع كاملا وحاسس بتوهان فيه تمنياتى لك وللجميع بالتوفيق

السلام عليكم بالرغم انى مش فاهم الموضوع الى الان ومشتت فالتركيز فيه الا انى اعتقد ان مشكلتك فالاسطر التاليه من الكود If Month(Now()) = 3 Then If Nz(DLookup("Payment_Made", "tbl_Loans", "EmployeeID=" & rstE!EmployeeID & _ " And [Payment_Made]=3000 And [Payment_Month] Between #1/1/" & Year(Now()) & "# And #2/28/" & Year(Now()) & "#"), 0) = 3000 Then rstE.MoveNext GoTo NextEmployee End If End If If Month(Now()) = 7 Then If Nz(DLookup("Payment_Made", "tbl_Loans", "EmployeeID=" & rstE!EmployeeID & _ " And [Payment_Made]=3000 And [Payment_Month] Between #4/1/" & Year(Now()) & "# And #6/30/" & Year(Now()) & "#"), 0) = 3000 Then rstE.MoveNext GoTo NextEmployee End If End If والسبب فى اعتقادى انك قلت سابقا ممكن يدفع 3000 على مرتين او مره واحده وهنا داله dlookup بتشيك على سجل واحد بناء عالفتره اللى انت محددها وبيكون مساوى ل 3000 يعنى هو دفع 3000 فى شهر 3 او 7 تجاوز الموظف ده وليس مجموع ماتم دفعه 3000 لهذا الموظف وهل الدفع فى خلال العام كله ام فالشهرين اللى قبل 3 و 7 بس

وعليكم السلام مشاركه مع اخوتى واساتذتى لانك حاطط حقل المسلسل شيل حقل المسلسل وقم باختيار القيم الفريده وهيتم جلب الاسم مره واحده بالتوفيق

وعليكم السلام ورحمه الله وبركاته الحل المقترح انشاء استعلام اخر مثل qu_2 من qu_1 والتصفيه من خلاله اكبر من 0 او من خلال الاستعلام وفى حقل عدد ايام الغياب تضع معيار اقل من 5 بناء على القيم المكتوبه بداخل الاستعلام قمت بانشاء استعلام qu_2 وجعل مصدر التقرير هذا الاستعلام بالتوفيق 1_برنامج الحوافز.accdb

العفو اخى بالنسبه للتعديل فالسجلات التى ذكرتها لم يكن لها سجلات فالنموذج reference وحقل Idd فارغ لذلك كانت البيانات المضافه تسجل ولاكن ليست لاى Idd فقمت بارسال الايدى مع الفلتره عن طريق OpenArgs وعند الفتح يقوم باسناده لـ Idd ان شاء الله يكون الشرح سهل ومفهوم ولو فى استفسار اسال وان شاء الله نوضحه بالتوفيق

جرب الان DB3_3_2.accdb

هل انت متاكد ؟ قمت بذلك واغلقت وفتحت مره اخرى موجود ما كتبته جرب مره اخرى وان لم يكن فقم بايضاح الخطوات بالتفصيل واين تكتب فى اى الحقول تكتب واستخدم آخر مثال ارفقته لك

ولا تزعل خالص بسبب عدم وجود ال id اتفضل DB3_3_1.accdb

اتفضل DB3_3.accdb

العفو اخى بالنسبه للجزء الثانى فاكسس نفسه يرفض انشاء ارتباط بين النماذج الغير المنضمه يمكنك الاستغناء عن النموذج الفرعى بداخل reference وجعل هذا النموذج مستمر وعند الفتح يفتح بالشرط اللى انت عاوزه اذا كان يناسبك ارفقه لك

وعليكم السلام ورحمه الله وبركاته اتفضل ان شاء الله يكون ما تريد DB3_1.accdb

اللهم امين وتقبل الله منكم وجزاكم كل خير ولا تنسو ابنكم العبد الفقير الذليل الى الله احمد من دعائكم وسلامى لرسول الله صلى الله عليه وسلم اللهم آمين الف لاباس عليك اخى واستاذى وبشمهندسنا العزيز @Eng.Qassim شفاك الله وعفاك وعاتب عليك عتاب محب ، طيب طالما صرت افضل فمصر فتفضل تعال عندنا بس متتعودش ع ميه الحنفيه هههههههههههه احبكم فالله اخيكم وابنكم الصغير احمد

ملاحظه اخى @سامي الحداد بالنسبه لتعديلك فانه يقوم بتحديث الحقل الواقف عليه وفى طلب السائل تحديث وكذلك فلا نعلم هل هو تحديث ام اضافه سجل جديد ع كل لديه الان سواء التحديث او الاضافه وهذه للاضافه منى Private Sub Kind_AfterUpdate() Me.AGR.SetFocus DoCmd.GoToRecord , , acNewRec Me.AGR.Form!kind = Me.kind End Sub تمنياتى للجميع بالتوفيق Subform_1.accdb