كيف يعمل هذا الكود ؟

A=حقل السعر

B= حقل البضاعة

C= حقل التاريخ

في حدث [ بعد التحديث ] لحقل السعر ضع الكود التالي

IF A=100 Then
Me.B.Enable=False
Me.C.Enable=False
Else
Me.B.Enable=True
Me.C.Enable=True
End if

عفوا على المداخلة ،

من خلال طلب الأخ سحاب

اقتباس

اذا ادخلت في حقل السعر قيمه اكبر من 100 فإن حقلي البضاعة والتاريخ لا تنتفح ويكون مظللين أي غير مفعله

ومن خلال رد الأخ أحمد الحربي للكود فأعتقد أن

IF A>100 Then بدلا من IF A=100 Then

أو بالإمكان أستخدام IF A=>100 Then

تكمل بقية الكود كما أوضحه العزيز أحمد

أقدم أعتذاري على المداخلة

تحياتي

الوارث

مشكورين يا اخ احمد وانت كمان يا عزيزي الوريث

نفس شغلي اللي انا سويته بس الفرق الداله الحمد لله اخيرا وجدتها تسلمووووووووون

ولكن يوجد خطأ لما ذا لا ادري

على الرغم انني مسمي نفس العناصر

السلام عليكم

اخواني الكرام

هل تتكرمون بالمساعدة ،

حيث انني نقلت الكود التالي و لكنه لم يعمل

فما السبب ؟

و شكرا لكم

الكود

IF A=100 Then

Me.B.Enable=False

Me.C.Enable=False

Else

Me.B.Enable=True

Me.C.Enable=True

End if

شرح الموضوع على الوصلة التالية

http://www.arabteam2000.com/ib/index.php?s...topic=35355&hl=

اكتب enabled وليس enable

تأكد ايضا من مراجع msoffice

شكرا جزيلا اخي غازي

بالفعل عمل الكود حسب التعديل الذي ذكرته

السلام عليكم

يبدو انني اطمع بمزيد من الاستفسارات

لو انني اردت اضافة شرط الى الكود السابق بحيث يتم تمكين حقل البضاعة فقط في حالة اذا كان السعر اكبر من 100 و الكمية اكبرمن 50

فكيف يتم دمج ذلك في الكود ؟

و شكرا للجميع

أخي الكريم ،،، السلام عليكم ورحمة الله وبركاته

إفرض أن السعر ( A ) ،،،، والكمية ( B )

سوف يكون الشرط هكذا :

IF A>100 and B>50 Then

شاكر

السلام عليكم

شكرا اخي شاكر

و للاسف لم يعمل الكود بالشكل المطلوب

حيث بدأ بتمكين الحقل c بمجرد ادخال اي بيان في a حتى و لو كان مخالف للشرط

أخي الكريم تأكد أنك لا يمكنك السيطرة على الحقل وأنت به أي أن المؤشر عليه ولتلاشي ذلك

اعمل التالي

افرض أن المؤشر موجود بخانة الكمية من خلال الكمية اعمل حدث بعد التحديث واكتب به

if price > 100 then me!price.enabled = false

end if

هذا اذا كان السعر اكبر من 100 فانه يتم تعطيل خانة السعر وهكذا لبقية الحقول

عزيزي // هلا وضعت وصلة بالمثال الذي تعمل عليه حتى أتمكن من تعديله ؟؟؟؟

شاكر

طيب يا اخوان لو افترضت انه عندي حقل c هو عبارة عن ناتج جمع حقل a وحقل b

السؤال أريد إذا كان الحقل c الي فيه ناتج جمع الحقلين إذا كان أكثر من 100 فانه يجعل الحقلين a و b مظللين

للرفع

يا اخواني الكرام أرجوا أبدا الرأي والمساعدة

كيف إذا كان ناتج الحقل c اكبر من 100

طبعا الحقل c هو عباره عن ناتج جمع الحقلين a و b

فأنه يظلل الحقلين a و b

كيفك اخ سحاب

اليك هزا البرنامج

بعد التحديس

جرب هزا المثال

تحيات ابو سمرا

سحاب112.rar

اخي سمير مشكووووووووور

ولكن ما قصده هو

انه يوجد عندي ثلاث حقول

حقل a

حقل b

حقل c

تمام

الحقل c هو عباره عن ناتج جمع الحقلين a و b

فإذا أصبح الناتج في الحقل c أكبر من 100 فأنه يظلل الحقلين a و b

يعني المدخلات بس تكون من a و b

ارجوا اني شرحت السؤال بصيغه مفهومه

مع اخلص تحياتي

للرفع

في حال دخلت القيمه في حقل c

اكتر من 100

ازا ظللنا a b

كيف بدن نرجع نصلح القيمه بمعن نقص الرقم تحت 100

فهمي شو بتعني في هزا الموضوع

تحات ابو سمرا

انسخ هزا الاجرا بعد التحديس c

============

Private Sub c_AfterUpdate()

If [c] > 100 = 0 Then

a.Enabled = True

b.Enabled = True

Else

MsgBox "الرقم اكتر من 100"

b.Enabled = False

a.Enabled = False

End If

End Sub