اختار اسم من حقل يظهر لك حقل أخر

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

Private Sub S1_AfterUpdate()
Select Case S1.Value
Case 1, 2
Me.S2.Visible = True
Case 3, 4
Me.S2.Visible = False
End Select
End Sub

شكرا لك وجزاك الله كل خير ورحم الله والديك ....