Hallo Zusammen
Wie kann ich dise Zeilen so umschreiben das es nicht nur auf dem selbem Formular funktionier?
Private Sub Anrede_Exit(Cancel As Integer)
If transPersArt = „Geschäft“ Then
Me.frmEingAdresse.Visible = False
Me.frmEingKommunikation.Visible = False
Else
If transPersArt = „Privat“ Then
Me.frmEingAdresse.Visible = True
Me.frmEingKommunikation.Visible = True
End If
End If
End Sub
Möchte das in einem Unterformular die Formulare sichtbar machen.
Danke für die Antwort