استبدال عنصر ( نعم / لا ) بزر يعمل بنفس الطريقة

[MrTid]

السلام عليكم احبتي 
واجهتني مشكلة اثناء استخدام عنصر ( نعم او لا ) وهو صغر حجم العنصر 
هل يوجد طريقة من خلالها استطيع باخفاء المربع الصغر الخاص بهاواستبدالها بزر ( تمت العملية بنجاح )  يقوم بنفس العمل 
اي عندما اقوم بالكبس على الزر سوف يتم تفعيلة .. علما اني عامل استعلام وحاطط في شرط لو الزر مفعل اطبعلي كلمة تم العملية بنجاح 
تحياتي لكم اخوتي 
 

test.accdb

تم تعديل أغسطس 25, 2019 بواسطه MrTid

[عاشق الرقي]

أولاً قم بإخفاء الزر من الخصائص

ثم ضع في خصائص زر ( تمت العملية بنجاح) عند النقر ... هذا الأمر وسوف يتم تفعيل الزر المطلوب

Private Sub op1_Click()
Me.op = True
End Sub

أتمنى يكون هذا المطلوب

[MrTid]

تمام اخي وهو المطلوب ..لكن هناك شي 
او ارد ان  اقوم تمت عملية النجاح 
هل يمكن ايضا الكبس على الزر والغائه 

[MTGFM]

ضع هذا الكود 

5 ساعات مضت, MrTid said:

تمام اخي وهو المطلوب ..لكن هناك شي 
او ارد ان  اقوم تمت عملية النجاح 
هل يمكن ايضا الكبس على الزر والغائه 

Private Sub chek_Click()
If op = True Then
Me.op = False
Else
Me.op = True
End If
End Sub

 

 

تم تعديل أغسطس 27, 2019 بواسطه MTGFM

[MrTid]

وهو المطلوب ...بيض الله وجهك اخي الكريم