Hallo zusammen,
ich habe ein UFO das in 3 verschiedene Hauptformulare geht. Nun möchte ich z.B im ersten Haupformular nur die Felder a & b des UFOs zeigen, im zweiten Hauptformular nur die Felder c & d und im 3ten Haupfomular alle UFO Felder.
Gibt es die Möglichkeit gewisse Felder des UFO's für das este Hauptformular zu verstecken ohne das diese Felder im zweiten Hauptformular ebenfalls versteckt sind.
Im voraus Danke für Eure Hilfe .
Gruss Cédric
Hallo,
man muß halt feststellen, in welchen Hauptform sich das (Unter)Form befindet...
Im Unterform:
Sub Form_Load()
Select Case Me.Parent.Name
Case "Hauptform1"
Me.Textfeld1.Visible=false
Me.Textfeld2.Visible=true
.
.
Case "Hauptform2"
Me.Textfeld1.Visible=true
Me.Textfeld2.Visible=false
.
.
Case Else
End Select
End Sub
Erstmal vielen Dank für die schnelle Hilfe.
Ich habe noch etwas wichtiges vergessen: Es sind keine Textfelder die verstecken will, sondern Kontrollkästchen.
Habe deinen code meinen Feldern angepasst, aber es hat nicht funktioniert.
Private Sub Form_Load()
Select Case Me.Parent.Name
Case "frm_terminliste"
Me.Label16.Visible = False
Me.Label18.Visible = False
Me.lable11.Visible = True
Case "frm_new_requisition"
Me.Label11.Visible = False
Me.Label18.Visible = False
Me.Label16.Visible = True
Case "frm_KontrolleAB"
Me.Label11.Visible = False
Me.Label16.Visible = False
Me.Label18.Visible = True
Case Else
End Select
End Sub
Was habe ich falsch gemacht ?
Danke und gruss
Cédric
Hallo,
wo befindet sich der Code?
Heißen die Hauptformulare wirklich genau so wie angegeben?
Setz einen Haltepunkt an den Anfang des Codes , fahre mit Einzelschritt durch und check den Ablauf.
hi,
der code befindet sich im UFO auf Form Load
die error-msg sagt bei Select Case Me.Parent.Name:
expression you entered has a invalid reference to the parent property.
ja, die forms sind richtig.
habe den code nochmals geändert -- > will ja die kontrollkästchen verstecken, nicht die titel (label) der kontrollkästchen.
Private Sub Form_Load()
Select Case Me.Parent.Name
Case "frm_terminliste"
Me.EmailAB.Visible = False
Me.Emailreq.Visible = False
Me.Email.Visible = True
Case "frm_new_requisition"
Me.Email.Visible = False
Me.EmailAB.Visible = False
Me.Emailreq.Visible = True
Case "frm_KontrolleAB"
Me.Email.Visible = False
Me.Emailreq.Visible = False
Me.EmailAB.Visible = True
Case Else
End Select
End Sub
Hallo,
mhmm, kann ich nicht nachvollziehen...
Das "Hauptform" steckt nicht zufällig selber in einem UFO?