أبوبسمله

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

وجب الاعتذار من اخى واستاذى لعدم انتباهى للجزء الثانى من الشرط

السلام عليكم مشاركه مع اخى واستاذى محمد البرناوى اخى محمد حلك جميل ولكن بالنسبه للفقره الاول انت اختبرت المبلغ لو اقل ومع امثله الاستاذ الفاضل هو عاوز المبلغ اللى اكبر يتم طرحه يعنى مث ما هو موضح بالمثال بالاعلى 21000 هتكون 15000 *0.1 والباقى اللى هو 6000 *0.15 Option Compare Database Function calc(val As Double, Optional colVal = "") Const val_15 = 15000 Dim bak If colVal = 10 Or colVal = 0.1 Or colVal = "" Then colVal = 0.1 ElseIf colVal = 15 Or colVal = 0.15 Then colVal = 0.15 End If If val <= val_15 Then calc = val * colVal If val > val_15 Then bak = val - val_15 val = val_15 End If If colVal = 0.1 Then calc = val * colVal ElseIf colVal = 0.15 Then calc = bak * colVal Else calc = 0 End If End Function وتقبلوا مشاركتى ومرورى واحبكم فالله

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

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

الشكر لله ثم لاخى العزيز @Foksh فالكود كوده وهو من اجابك فعليا والاشكاليه المعروفه والتى هى مصدر المتاعب فعليا التواريخ وتنسيقاتها ولذلك يوجد وحده نمطيه للخروج من هذه الاشكاليه قد ارفقها اخى واستاذى الغالى @jjafferr جزاه الله عنا كل خير ومن يومها يا بستخدمها يا بستخدم الفورمات منها وسوف ارفق الرابط لها التعديل على السطر التالى rst.FindFirst "[Payment_Month]=#" & Dat & "#" الى rst.FindFirst "[Payment_Month]=" & Format$(Dat, "\#mm\/dd\/yyyy\#") والرابط التالى للمتابعه اخى @طاهر اوفيسنا بالنسبه للاشكاليه التى ارفقتها فالتاريخ موجود كما بالصوره فى اصل المرفق الذى قمت بانزاله انا والتعديل عليه والكود ليس له علاقه به لا من قريب ولا من بعيد قم بتنزيل المرفق وتعديل التاريخ الى 1 وجرب مره اخرى واخبرنا وكل عام وانتم بخير

السلام عليكم عيدكم مبارك مشاركه مع اخى واستاذى @Foksh جزاه الله خيرا وتعديل ع مرفقه بعد السموحه طبعا اخى @طاهر اوفيسنا جرب المرفق التالى واخبرنا بالنتيجه اولا تأجيل الاقتطاع_1.mdb

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

السلام عليكم مبارك عليكم الشهر مشاركه مع اخى واستاذى @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

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

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

اتفضل DB3_3.accdb

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