Hoi Ihrs 
ich möchte in Abhängigkeit von ein Wert im Hauptformular Seiten (inkl. UFO) aus- oder einblenden.
Als Beispiel:
Feld-1 = 1
Feld-1 = 2
Maigrüsse aus Hamburg
Wander
Hallo,
m. W. kannst Du „Formular-Seiten“ nicht ausblenden. Es ist allenfalls möglich, die einzelnen Steuerelemente sichtbar/unsichtbar zu steuern. Statt Formular-Seiten empfehle ich eher ein Registersteuelement. Dort ist das Ein/Ausblenden von Registerseiten besser zu behandeln.
Viele Grüße vom Bodensee
Franz , DF6GL
PS: Feedback erwünscht!
Hoi Franz,
Statt Formular-Seiten
empfehle ich eher ein Registersteuelement. Dort ist das
Ein/Ausblenden von Registerseiten besser zu behandeln.
Genau das möchte ich
Besten Gruß
Wander
Hoi Franz,
Statt Formular-Seiten
empfehle ich eher ein Registersteuelement. Dort ist das
Ein/Ausblenden von Registerseiten besser zu behandeln.Genau das möchte ich
Hast Du dann auch so ein Ding verwendet?
Welchen Namen hat es dann?
Viele Grüße vom Bodensee
Franz , DF6GL
PS: Feedback erwünscht!
Hoi Franz,
Hast Du dann auch so ein Ding verwendet?
Aber klar doch. Ich nutze ein Formular worin ich mehrere Registerkarten eingefügt habe.
Welchen Namen hat es dann?
Zum Beispiel „Fragen“ oder „History“
Besten Gruß
Wander
Hallo
Welchen Namen hat es dann?
Zum Beispiel „Fragen“ oder „History“
Das ist zu ungenau…
Wie heißt das Registersteuerelement?
Wie heißen die Registerseiten?
Im Prinzip so:
Sub Form_Current()
Select Case Me!Feld1
Case 1
Me!Register1!Fragen.Visible = True
Me!Register1!History.Visible = True
Me!Register1!C.Visible = False
Me!Register1!D.Visible = False
Case 2
Me!Register1!Fragen.Visible = False
Me!Register1!History.Visible = False
Me!Register1!C.Visible = True
Me!Register1!D.Visible = True
Case else
Me!Register1!Fragen.Visible = True
Me!Register1!History.Visible = True
Me!Register1!C.Visible = True
Me!Register1!D.Visible = True
End Select
End Sub
Viele Grüße vom Bodensee
Franz , DF6GL
PS: Feedback erwünscht!
Hoi Franz,
Wie heißt das Registersteuerelement?
Vorausgesetzt Du meinst die erste Registerseite damit, dann heisst es „Stammdaten“.
Wie heißen die Registerseiten?
2 Registerseiten heißen „Fragen“ und „History“.
Wenn ich das Prinzip verstanden habe kann ich anschleissend flexibel Registerseiten aus- und einblenden.
Sub Form_Current()
Select Case Me!Feld1
Case 1
Me!Register1!Fragen.Visible = True
Me!Register1!History.Visible = True
Me!Register1!C.Visible = False
Me!Register1!D.Visible = False
Case 2
Me!Register1!Fragen.Visible = False
Me!Register1!History.Visible = False
Me!Register1!C.Visible = True
Me!Register1!D.Visible = True
Case else
Me!Register1!Fragen.Visible = True
Me!Register1!History.Visible = True
Me!Register1!C.Visible = True
Me!Register1!D.Visible = True
End Select
End Sub
Ich nehme an, daß wenn ich Text als Case abfragen möchte, dass ich diese dann in „“ setzen muss. Zum Beispiel Case „Vorname“.
Anschliessend packe ich es wohin?
Sonniges aus Hamburg
Wander
Hallo,
Wie heißt das Registersteuerelement?
Vorausgesetzt Du meinst die erste Registerseite damit, dann
heisst es „Stammdaten“.
nein, ich meine das Regeister-STEUERELEMENT, nicht eine Registersteuerelement-SEITE…
Aber Du hast vermutlich schon den richtigen Namen gesagt…
Wie heißen die Registerseiten?
2 Registerseiten heißen „Fragen“ und „History“.
ok , hier haben wir die SEITEN, nicht das Steuerelement.
Wenn ich das Prinzip verstanden habe kann ich anschleissend
flexibel Registerseiten aus- und einblenden.
Ja, eigenlich muß man sagen: Die Registerseiten werden beim Anzeigen eines Datensatzes entspr. aus/eingeblendet.
Sub Form_Current()
Select Case Me!Feld1
Case 1
Me!Register1!Fragen.Visible = True
Me!Register1!History.Visible = True
Me!Register1!C.Visible = False
Me!Register1!D.Visible = False
Case 2
Me!Register1!Fragen.Visible = False
Me!Register1!History.Visible = False
Me!Register1!C.Visible = True
Me!Register1!D.Visible = True
Case else
Me!Register1!Fragen.Visible = True
Me!Register1!History.Visible = True
Me!Register1!C.Visible = True
Me!Register1!D.Visible = True
End Select
End Sub
Ich nehme an, daß wenn ich Text als Case abfragen möchte, dass
ich diese dann in „“ setzen muss. Zum Beispiel Case „Vorname“.
Ja, in der Tat mit Gänsefüssen, aber das Beispiel sagt mir, daß Du vermutlich etwas anderes willst. „Vorname“ dürfte kein Inhalt von „Feld1“ sein…eher eine Beschriftung eines Bezeichnungsfeldes, oder der Name eines Bezeichnungsfeldes. Oder Du willst etwas ganz Anderes, z. B.:
Select Case Me!Vorname
Case „Max“
Case „Boldi“
Anschliessend packe ich es wohin?
Als Prozedur des Formular-Ereignisses „Beim Anzeigen“ im VBA-Editor.
Viele Grüße vom Bodensee
Franz , DF6GL
PS: Feedback erwünscht!
Hi,
wenn du unbedingt Sichtbarkeiten verwenden willst dann benutze diesen Code:
If Me!Feld1 = „1“ Then
Me!UnterformularA.Visible = True
Me!UnterformularB.Visible = True
Me!UnterformularC.Visible = False
Me!UnterformularD.Visible = False
Elseif Me!Feld1 = „2“ Then
Me!UnterformularA.Visible = False
Me!UnterformularB.Visible = False
Me!UnterformularC.Visible = True
Me!UnterformularD.Visible = True
End If
Wenn du Register benutzen möchtest ist es besser diese nachzubauen, anstatt das Registersteuerlement oder Sichtbarkeiten zu verwenden, da beide Sachen sehr unschön sind und die PC Leistung reduzieren.
Wenn du Fragen dazu hast, wie du das machen kannst, kannst du mich gerne fragen.
MfG
Philipp K.