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")