اخفاء زر مبني علي شرط

[moamen salem]

السلام عليكم بعد اذنكم عامل نموذج وفيه زر اسمه S1 وعند نموذج الواجهة اسمه الشاشة الرئيسية وبه حقل باسم p1 ومصدرة جدول المستخدمين عمود ادارية وهو عبارة عن اختار صح او خطأ فعايز لما المستخدم يفتح النموذج لو زر p1  اللي في نموذج الواحهة قيمته صح يكون الزر ممكن لو غير كدة يكون غير ممكن مع اني عملتها مرة وظبط بس للاسف مش راضية تظبط تاني ودا الكود اللي مستخدمه حاليا 

Private Sub Form_Open(Cancel As Integer)
If [Forms]![الشاشة الرئيسية]![p1] = 1 Then
Me.s1.Enabled = True
Else
Me.s1.Enabled = False
End If
End Sub
 

[أواب]

جرب وضع الكود في حدث (في الحالي)

Private Sub Form_Current()

 

[ابو جودي]

4 ساعات مضت, moamen salem said:

السلام عليكم بعد اذنكم عامل نموذج وفيه زر اسمه S1 وعند نموذج الواجهة اسمه الشاشة الرئيسية وبه حقل باسم p1 ومصدرة جدول المستخدمين عمود ادارية وهو عبارة عن اختار صح او خطأ فعايز لما المستخدم يفتح النموذج لو زر p1  اللي في نموذج الواحهة قيمته صح يكون الزر ممكن لو غير كدة يكون غير ممكن مع اني عملتها مرة وظبط بس للاسف مش راضية تظبط تاني ودا الكود اللي مستخدمه حاليا 

Private Sub Form_Open(Cancel As Integer)
If [Forms]![الشاشة الرئيسية]![p1] = 1 Then
Me.s1.Enabled = True
Else
Me.s1.Enabled = False
End If
End Sub
 

ياريت مرفق للقاعدة لو تكرمت 

[كرار صبري _ أبو جنى]

و عليكم السلام ...

من رخصة الاساتذة ... 

استعمل   Visible

بدلا من   Enabled 

5 ساعات مضت, moamen salem said:

السلام عليكم

و عليكم السلام ...

من رخصة الاساتذة ... 

استعمل   Visible

بدلا من   Enabled 

[كرار صبري _ أبو جنى]

14 ساعات مضت, moamen salem said:

السلام عليكم

بعد البحث وجدت Enabled ... 

تفضل ... 

Enabled.rar