مساعدة فى الكود

[mom20088]

الاخوة الاعضاء 

كل عام وانتم بخير بمناسبة الشهر الكريم اعادة الله عليكم بالخير واليمن والبركات

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

If [Text482] = 0 Then
[Qproduced].Enabled = False
MsgBox "can not produce becuase the avalialbe limit of raw material is equal to zero"
Else
[Qproduced].Enabled = True
End If
End Sub
End

شكرا لكم يا اخوتى الكرام

[علي المصري]

جرب التالي

Private Sub Text482_AfterUpdate()
If Me.Text482 = 0 Then
 Me.Qproduced.Enabled = False
 MsgBox "Can not produce becuase the avalialbe limit of raw material is equal to zero", vbOKOnly, "Attention"

 Else
 
 Me.Qproduced.Enabled = True
 
 End If

End Sub

 

[mom20088]

اشكرك أخى العزيز على اجابتك على سؤالى 

لكن هناك مشكلة عندما وضعت الكود فى text482 بتحصل مشكلة معايا لان text482 حقل حسابى يعتمد على قيمة حقل تانى لذلك يلزم انى اعمل refresh  قبل ما الكود يشتغل 

انا محتاج طلب اخى العزيز :

انا  عملت مفتاح refresh فى النموذج ومحتاج اكتب كود يقول انى اول ما افتح النموذج يضغط على زر refersh عشان قيمة حقل text482 تتحسب معايا

شكرا

[ابوخليل]

بعد اذن الاستاذ علي

اجعل الكود في حدث الحالي للنموذج

بكذا اي تغيير او حركة في النموذج يحدث نفسه

[mom20088]

أشكركم على مجهودكم معايا وجزاكم الله خير الجزاء

 

[علي المصري]

في ‏١٧‏/‏٠٦‏/‏٢٠١٦ at 03:57, ابوخليل said:

بعد اذن الاستاذ علي

اجعل الكود في حدث الحالي للنموذج

بكذا اي تغيير او حركة في النموذج يحدث نفسه

الأستاذ لا يأخذ الاذن من تلميذه

شكرا أبو خليل على كل ما تقدمه من عون للجميع

جعله الله في ميزان حسناتك