اخفاء مربعات نصوص

[عدي الزرفي1]

السلام عليكم

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

المطلوب 

عند اختيار نوع الصنف من الكومبو بوكس 

اذا كان الصنف = ضابط 

يتم اخفاء حقول رتب المنتسبين 

واذا كان الصنف = منتسب 

يتم اخفاء حقول رتب الضباط 

 

اخفاء مربع النص.rar

[AlwaZeeR]

وعليكم السلام ورحمة الله وبركاته

تفضل:

مع تغيير اسم الكومبو الى Snf

ضع هذا الكود في حدث بعد التحديث للكمبو السابق

For i = 1 To 5
Select Case Me.Snf
Case "ضابط"
Me("m" & i).Visible = False
Me("d" & i).Visible = True
Case Else
Me("d" & i).Visible = False
Me("m" & i).Visible = True
End Select
Next i

 

[عدي الزرفي1]

شكرا جزيلا تمام

ولكن ممكن شرح الكود 

يا استاذ وبارك الله فيك 

 

[عدي الزرفي1]

ممكن شرح الكود 

يا استاذ وبارك الله فيك