Felder des UFO's verstecken

[boehnli01]

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

[DF6GL]

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

[boehnli01]

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

[DF6GL]

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.

[boehnli01]

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

[DF6GL]

Hallo,

mhmm, kann ich nicht nachvollziehen...



Das "Hauptform" steckt nicht zufällig selber in einem UFO?