اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

شكرا

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information