husamwahab

السلام عليكم تفضل التعديل استاذي العزيز تم التعديل ايضا على الجداول ارجو ان تكون التعديلات موفقة ملاحظة : يتم اختيار قيمة السلفة وعدد الاقساط وتاريخ القسط الاول ثم توليد الاقساط S&M_2.rar

السلام عليكم تفضل التعديل حسب فهمي لطلبك وبعد اذن استاذ Kanory sma v 3.rar

تفضل التعديل control 2032_30.rar

عليكم السلام والرحمة تفضل هذه المحاولة Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("Do You Want To Save Data", 4, "Confirm Save") <> 6 Then DoCmd.RunCommand acCmdUndo DoCmd.CancelEvent End If End Sub

تفضل التعديل control 2032_20.rar

السلام عليكم تفضل هذه المحاولة ارجو ان تكون موفقة control 2032_10.rar

بالخدمة استاذ

تفضل التعديل cc.rar

forms وليس froms ------------------------------- اختيار تاريخ وليس اختيار التاريخ

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

اعتذر للخطا تعديل للكود Function vbCEILING2(ByVal Number As Variant, Significance As Double) As Double If Sgn(Number) <> Sgn(Significance) Or Sgn(Significance) = 0 Or Not IsNumeric(Number) Then Exit Function End If If (Val(Number) / Significance) > Fix(Val(Number) / Significance) Then vbCEILING2 = (Fix(Val(Number) / Significance) + 1) * Significance Else vbCEILING2 = Fix(Val(Number) / Significance) * Significance End If End Function

بالخدمة استاذ جرب هذا الكود =DMax("Val([code1])","Q_code1","[code1]<> 'null'")

السلام عليكم استاذ ابو احمد موضوع جميل ومفيد تسلم ايدك تم متابعة الاكواد وهي اكواد جميلة واحترافية لكن اعتقد يوجد مشكلة في كود CEILING هذه محاولة ارجو ان تكون موفقة وعذرا للاطالة 4ExcelFunctions4Access_2.rar

هذا هو عمل التعديل الاخير بالضغط على الصنف يتم ادراجه بالقائمة مع السعر والكمية =1

عليكم السلام والرحمة السبب هو ان نوع الحقل نصي وعليه فان 9 مثلا تعتبر اكبر من 1000000000 تفضل هذاالكود ارجو ان يكون طلبك =DMax("Val([code1])","Q_code1")

qathi بالخدمة استاذ وتفضل التعديل ارجو ان يكون طلبك aa_10.rar

وانت السالم استاذي العزيز وبالخدمة ملاحظة : يمكن اختصار كود احتساب الفرق باليوم والشهر بالكود ادناه If Day(Me.date2) >= Day(Me.Date1) Then Me.tdate = Day(Me.date2) - Day(Me.Date1) Me.tmonth = DateDiff("m", Me.Date1, Me.date2) Else Me.tdate = Day(Me.date2) - Day(Me.Date1) + 30 Me.tmonth = DateDiff("m", Me.Date1, Me.date2) - 1 End If

مبارك لكم استاذي AbuuAhmed وبالتوفيق ان شاء الله

بالخدمة استاذ احمد وحسب فهمي لطلبك اعتقد ان الكود ادناه يفي بالغرض Me.tmonth = DateDiff("m", Me.Date1, Me.date2)

وهذه مشاركة مع الاستاذ ابو ماجد Root_111.rar

عليكم السلام والرحمة تفضل التعديل المشكلة في حقل suptotal الموجود في الجدول مصدر البيانات الحقيقي من حقل id والبيانات الظاهرة هي لحقل suptotal يجب ان تكون البيانات لحقل suptotal Tes_10.rar

عليكم السلام تفضل التعديل حسب فهمي , ارجو ان يكون طلبك GAME WORD_10.rar

تفضل هذه المحاولة ارجو ان تكون طلبك ملاحظة : التعديل تم بتصرف لكن قد يؤدي للمطلوب aa.rar

تفضل هذا الملف ارجو ان يكون طلبك ملاحظة : يتم فتح الملف ب NotePad وتغيير المسار الى المسار المطلوب RemoteOpen.rar

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