اضافة قيمة لنموذج فرعى بمجرد الضغط عليها

[محمود العراقي]

السلام عليكم ، وكل عام وأنتم بخير

فى القاعدة المرفقة:

-          أريد عند الضغط على زر [ المبلغ كامل ] أن يتم إدراج المبلغ الموجود بخانة [ إجمالى المبلغ المستحق ] في خانة [ المبلغ المسدد].

-          وعند الضغط على زر [ مبلغ آخر ] أن يظهر رسالة أضيف فيها المبلغ الذى أريد إضافته إلى خانة [ المبلغ المسدد ].

-          وعند الضغط على زر من [ الأرقام الأخرى ] أن يتم إدراج قيمتها إلى خانة [ المبلغ المسدد ].

ومرفق صورة للتوضيح

 

Database1.rar

[علي المصري]

جرب الكود التالي

اضغط على المبلغ كامل بعد وضع المؤشر في حقل المبلغ المسدد

Private Sub Command81_Click()
Forms("customers").Form("settelment").Controls("settel_sum").Value = Me.TOT.Value
End Sub

 

اما بالنسبة للمبلغ الاخر تم إضافة نموذج لاستخدامه في ذلك

انظر المرفق

Database1.rar

مع المبلغ الذي قيمته 100 يمكن كتابة الكود كما يلي

Forms("customers").Form("settelment").Controls("settel_sum").Value = 100

وبالمثل الباقي

[محمود العراقي]

شكراً أستاذ على المصرى على اهتمامك ودائماً ما تثلج قلبى بردودك

هذا ما أريده بالضبط، ولكن زيادة على ذلك هل يمكن أن تتم الإضافة إلى السجل الجديد مباشرة

[علي المصري]

16 ساعات مضت, محمود العراقي said:

شكراً أستاذ على المصرى على اهتمامك ودائماً ما تثلج قلبى بردودك

هذا ما أريده بالضبط، ولكن زيادة على ذلك هل يمكن أن تتم الإضافة إلى السجل الجديد مباشرة

يمكنك كتابة الكود بالطريقة التالية

Private Sub Command81_Click()
With Me!settelment
      .SetFocus
      DoCmd.GoToRecord , , acNewRec
End With

Forms("customers").Form("settelment").Controls("settel_sum").Value = Me.TOT.Value
End Sub

الجزء

With Me!settelment
      .SetFocus
      DoCmd.GoToRecord , , acNewRec
End With

يمكن اضافته مع الباقي

[محمود العراقي]

أستاذى ومعلمى على المصرى

لا أجد كلمات كى أشكرك بها

أدام الله عليك صحتك، وبارك لك فى علمك وجعله فى ميزان حسناتك

[علي المصري]

شكرا جزيلا

وجزاك الله خيرا