مشكلة اخفاء زر واظهاره بصلاحيات

[AliAli47]

السلام عليكم 

لدي برنامج عملتلو صلاحيات بالتشيك بوكس 

الكود المستعمل 

 "post_append='" & [Form_login].post & "'" هذا الكود لمنح الصلاحية

If DLookup("isadmin", "validities", "post_append='" & [Form_login].post & "'") = False Then

     Command16.Visible = False

المشكلة انه عندما اقوم بالغاء تفعيل الصلاحية الزر لا يخنفي من الفورم

 قد جربت نفس الكود ولكن بتعطيل الزر باستعمال Enabled 

مثل ماهو ظاهر في الكود وقد اشتغلت بدون مشاكل 

If DLookup("isadmin", "validities", "post_append='" & [Form_login].post & "'") = False Then

     Command16.Enabled = False

[biskra]

في المثال المرفق تجد المبدأ للتعامل مع الزر الذي تريد إخفاؤه/إظهاره بشرط التشيك بوكس

 

Button(1).zip

[AliAli47]

11 hours ago, biskra said:

في المثال المرفق تجد المبدأ للتعامل مع الزر الذي تريد إخفاؤه/إظهاره بشرط التشيك بوكس

 

Button(1).zip 23.7 kB · 3 downloads

أنا ابحث عن طريقة لاخفاء الزر كليا وليس تعطيله  

[biskra]

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