اخفاء خيار من بين اكثر من خيار

[qathi]

السلام عليكم أستاذتي واخواني الافاضل

أرجو المساعدة في التالي

المطلوب موضح في الصور التالية :

 

قمت بوضع الكود التالي لكن يظهر خطاء ولا يقوم باخفاء الخيار المحدد بالكود

If Vn2 = False Then
[mm]!K2.Visible = False
End If

 

 

شاكرا لكم على حسن التعاون معنا

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

مرفق الملف للتعديل:

Database1.accdb

[ناقل]

استبدلها بهذا

If Vn1 = 0 Then
Me.K1.Visible = False
End If

 

كودك بعد التعديل ....

On Error Resume Next
If Vn1 = 0 Then
Me.K1.Visible = False
End If

If Vn2 = 0 Then
Me.K2.Visible = False
End If

If Vn3 = 0 Then
Me.K3.Visible = False
End If

If Vn4 = 0 Then
Me.K4.Visible = False
End If

If Vn5 = 0 Then
Me.K5.Visible = False
End If

 

[qathi]

بارك الله في أخي @ناقل ..

بالفعل .. نجح الامر

جزاك الله عني خيرا