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

-------------------------------

اختيار تاريخ

وليس 

اختيار التاريخ

احسنت استاذ ابو احمد

بذلت مجهود كبير تشكر عليه

16 hours ago, AbuuAhmed said:

لو نهمل المقارنة مع الاكسل الأمور تكون أسهل ولا تحتاج إلى مزيد من المعالجات والتحايل أحيانا

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

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

اعتذر للخطا تعديل للكود

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

15 hours ago, qathi said:

ويتم الادراج مباشرة أما بعمل فانكشن مستقله يتم استداعها مباشرة من عند الضغط على زر الصنف

هذا هو عمل التعديل الاخير بالضغط على الصنف يتم ادراجه بالقائمة مع السعر والكمية =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

12 hours ago, مبرمج متقاعد said:

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

كلامك سليم وعملي استاذي العزيز مبرمج متقاعد

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

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

واتشرف لمداخلتك استاذ