Açılan_Kutu25'in güncelleştirme sonrasında olayına aşağıdaki kodu ekle.
Private Sub Açılan_Kutu25_AfterUpdate()
Select Case Me.Açılan_Kutu25
Case "ETİKET"
Me.ETİKETTABLO1_alt_formu.Visible = True
Me.GARANTİTABLO1_alt_formu.Visible = False
Me.KİTAPTABLO1_alt_formu.Visible = False
Case "GARANTİ"
Me.ETİKETTABLO1_alt_formu.Visible = False
Me.GARANTİTABLO1_alt_formu.Visible = True
Me.KİTAPTABLO1_alt_formu.Visible = False
Case "KULLANMA KLV."
Me.ETİKETTABLO1_alt_formu.Visible = False
Me.GARANTİTABLO1_alt_formu.Visible = False
Me.KİTAPTABLO1_alt_formu.Visible = True
End Select
End Sub