تخصيص قيمة في جدول

وعليكم السلام ورحمة الله...

يمكنك أخي أن تصل إلى عنصر في نموذج فرعي بالصيغة التالية:

 Me.[اسم النموذج الفرعي].Form.[اسم العنصر في النموذج الفرعي]

حيث تعود Me إلى النموذج الرئيس نفسه.

في حالتنا هذه يمكن أن نكتب في حدث النقر (لكل) زر كوداً يطبع قيمة الزر في عنصر النموذج الفرعي. ومن أجل التعميم، يمكن أن نستخدم إجراءً عاماً واحداً، ونستدعيه من كل زر كالتالي:

Private Sub PrintDigit()
    Me.Productsubform.Form.quantity = Me.Productsubform.Form.quantity & Me.ActiveControl.Caption
End Sub

Private Sub Command10_Click()
    PrintDigit
End Sub

وهكذا في بقية الأزرار/ كما في الملف المرفق... والله أعلم.

db10.rar

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

الاخ العزيز لي ملاحظتين كالتالي :

1. ماذا لو كان حقل Prod في النموذج الفرعي فاضي لااريد ان يسجل اي قيمه في حقل quantity

2. بالاضافة الى عند الضعط ابتداءاً على زر صفر لااريد ان يظهر مكرراً او قبل الاعداد التي تليه في حال ضغط على ازرار اخرى في نفس السجل اي عندما اضغط صفر وبعدها 8 تصبح القيمة في الحقل على الشكل التالي 06 والمفترض ان يستبدل الرقم صفر بالرقم 6 في حال الابتداء بالضغط الى صفر .

لك جزيل شكري واحترامي ولك مني تحيتي وسلامي

حياك الله أخي الكريم...

من أجل معالجة كلا المسألتين، تستطيع أن تجعل مكان هذا السطر (الإجراء المستقل):

Me.Productsubform.Form.quantity = Me.Productsubform.Form.quantity & Me.ActiveControl.Caption

هذا السطر (الأطول، ولكنه يموي معالجة المسألتين معاً):

If Me.Productsubform.Form.prod & "" <> "" Then Me.Productsubform.Form.quantity = Val(Me.Productsubform.Form.quantity & Me.ActiveControl.Caption)

والملف المرفق يحوي هذا التعديل... والله أعلم.

db10.rar

اعطاك الله خير الدراين دار الدنيا ودار الاخرة وجعلها الله في ميزان حسناتك

سلمت يمينك هذا هو مااريده تماماً ولاحرمنا الله من فضلك وعلمك

تحياتي وخالص ودي