اخفاء واظهار textbox اعتماداً على قيمة الـ Combobox

تفضل ، هذا هو الكود المطلوب:

Public Sub Show_Hide()

    Select Case Me.النوع
        Case "عمومي"
        
            Me.عمومي.Visible = True
            Me.خصوصي.Visible = False
            
        Case "خصوصي"
    
            Me.عمومي.Visible = False
            Me.خصوصي.Visible = True
    
    End Select
    
End Sub

Private Sub Form_Current()

    Call Show_Hide
End Sub

Private Sub النوع_AfterUpdate()

    Call Show_Hide
End Sub

جعفر

236.m.mdb.zip

شكرا جزيلا على الاجابة استاذ جعفر
تم حل المشكلة
عشت يا طيب

حيا الله من يانا :)

السلام عليكم اخى 

انا حاولت تطبيق ما قمت بشرحه بس لم اجد ان 

التكست بوكس بتاع العمومى اختفى او الخصوصى 

فهل انا اختلط عليا الامر او شىء من هذا القبيل 

برجاء التوضيح

اخي محمد

انزل المرفق في مشاركتي رقم 2 ، وسترى الكود ونتيجة الكود :)

جعفر