Accesformulare

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

Hallo,

Wie kann ich dise Zeilen so umschreiben das es nicht nur auf
dem selbem Formular funktionier?

??

Möchte das in einem Unterformular die Formulare sichtbar
machen.

??

Was ist „transPersArt“ ?

Beschreib das Ganze nochmal und verständlicher.

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

Moin,

wenn das überhaupt klappt, dann überall, wo die Variable transPersArt und der Feldname Anrede sowie die Formulare frmEingAdresse und frmEingKommunikation vorhanden sind - was willst Du mehr?

Möchte das in einem Unterformular die Formulare sichtbar
machen.

Dieser Satz ist rätselhaft. Du kannst wohl Unterformulare ein- und ausblenden, aber doch nicht das Formular selbst. Und dann auch noch zweie…

Gruß Ralf

Hallo Franz
Habe ein Hauptformular mit 3 Unterformulare
Wenn ich eine Schaltfläche mit folgenden Befehl Me.frmSpezAdrlist.Visible = True auf dem Hauptformular programmiere kann ich das Unterformular (frmSpezAdrlist) sichtbar machen.

Jedch möchte ich die Schaltfläche nicht auf dem Hauptformular sondern auf ein Unterformular haben.
Somit geht der Me. Befehl nicht mehr!!!
Jetzt suche ich den richtigen Befehl.

Ich hoffe es war dieses mal veständlich.
Danke für deine Mühe
Chris

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Hi @all,

da die Frage in letzter Zeit häufiger gestellt wurden, habe ich eine neue FAQ:3034 zum Thema erstellt.

Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)

Hallo,

mhmm, welchen Sinn hat das, ein UFO-Steuerelement aus dem dazugehörenden Unterform auszublenden?

Das ist genau so, als würdest Du Dich selber in ein Zimmer einschließen und den Schlüssel zum Fenster rauswerfen.

Egal, so geht es:

Im Unterformular1:

Sub btnAusblenden_Click()
Me.Parent!UFO-Steuerelement1.Visible=false
End Sub

Dabei ist „UFO-Steuerelement1“ der UFO-Steuerelementname im HF, das das Unterformular1 anzeigt.

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

Hallo Franz
danke viel mal es hat geklappt.
schöne Woche
Chris