أبوبسمله

طيب عرفت السر فالحل ولا محتاج شرح ؟

السلام عليكم مبارك عليكم الشهر مشاركه مع اخى واستاذى @kkhalifa1960 جزاه الله عنا خيرا اتفضل اخى @ازهر عبد العزيز ان شاء الله يكون ما تريد ع حسب ما فهمت من كلامك فان كان ما تريد اوضحت لك خطوات التعديل ان لم يكن فلعلك تشرح باسهاب حتى يستطيع اخوانك مساعدتك قم بالضغط ع الزر لللانتقال الى سجل جديد بالتوفيق borrow_1.accdb

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

السلام عليكم كل عام وانتم بخير رمضان كريم اتفضل ان شاء الله يكون ما تريد والتغيير تم فى هذا السطر CommandLine = AppName & " -o " & OutputFile & " --rotate=0 --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & OutputText وهذا بالرجوع لمشاركه لاخى ومعلمى العزيز @jjafferr جزاه الله عنا كل خير بالتوفيق New.accdb

ههههههههه اعلم انه صواب وكويس انك انتبهت انها قيم فارغه وليست 0 بالتوفيق

السلام عليكم كل عام وانتم طيبين اولا مشاركه مع اخى محمد البرناوى جزاه الله خيرا وع حسب المرفق الذى ارفقته يوجد لديك سجلات فى الجدول tbl_Loans وفى الحقل Loan_ID فارغ وتخص شهر 3 وهذا الحقل مطلوب فى بعض الدوال لاستخراج القيم قم بحذف هذه السجلات وتقريبا حوالى 163 سجل وستجد بان النتائج قد ظهرت بصوره طبيعيه بالتوفيق

وبما ان الموضوع سهل لما اخذ كل هذا النقاش اخى الفاضل ولم لم تحله بالاستعلامات قبل الكود وبعد ذلك تحولها لاكواد هذا صحيح وكنت ناوى ابدا معه من الصفر تانى واستخدام الاستعلامات العاديه قبل الاكواد ولكنصدمنى برده المختصر السهل والحمدلله اخى محمد @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

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