[ تمت الإجابة ]كود تمكين الحقول الفارغة فقط,

في حال كان هذا طلبك يرجى الرد بتمت الإجابة !!

ka_last.rar

تمت الاجابة اشكرك اخى العزيز

ولكن لى استفسار من فضلك

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

Private Sub Form_Current()

   Form.AllowEdits = False

   If IsNull(Me.InNo) Then InNo.Enabled = True
   If IsNull(Me.InDate) Then InDate.Enabled = True 
   If IsNull(Me.LotNo) Then LowNo.Enabled = True

End Sub

أخى الكريم m_orouk

إخوانى الكرام

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

الملف المرفق لأول يقوم بالبحث فى النموذج عن كل ما هو Text Box ويطبق عليه التمكين فقط فى حالة أن يكون فارغاً.

الملف المرفق الثانى يقوم بنفس الوظيفة ولكنه ـ بناءاً على طلبى من الأخوة ـ يقوم باتاحة الحقل ولكنه يغلقه حتى يمكن البحث فيه.

وبذلك أعتقد أن أى من الأخوة يريد أحد هذه الخواص سيجدها فى الموضوع بأكثر من شكل.

"تمت الإجابة فى منتدى أوفيسنا بواسطة أخونا الكريم Youssef"

تحياتى

محمد ندا

Last_Disabled.rar

last_Locked.rar

ونظراً لأننى عند التطبيق وجدت أن بالنموذج لدى كثير من مربعات الكومبو Combo Box

فقد أضفت الكومبو أيضاً ليكون مشمولاً فى عملية عدم التمكين لنفس السبب.

بالمرفق

تحياتى

محمد ندا

last_Lock_ComboToo.rar

جزاكم الله خيرا على هذا التفاعل ..

استفدت منه كثيرا

تحياتي

مرحباً بك الأخ سيرانو عضواً ومشاركاً ...

ستجد هنا الكثير من الأساتذة لتتعلم منهم كما تعلمت أنا وآلاف غيرى.

تحياتى

محمد ندا