Private Sub RegisterStr245_Change() 'Regsiterkartensteuerung
Form_Kunden.Text_Baustein_Bericht.Visible = False
End Sub
Ich habe 7 Registerkarten. Sobald ich eine verlasse, wird die Combobox "Text_Baustein_Bericht" ausgeblendet.
Einblenden der Combo geschieht so:
Private Sub Resultat_DblClick(Cancel As Integer)
Form_Kunden.Text_Baustein_Bericht.Visible = True 'Zeigt das Kombinationsfeld für Textbausteine an
Form_Kunden.Text_Baustein_Bericht.Requery
End Sub
Aber wie kann ich erreichen, dass die Combobox eingeblendet wird, sobald die Registerkarte "Besuchsberichte" aktiv ist?
Ich habe das mal so versucht, aber sie wird nicht eingeblendet.
Private Sub Form_Activate()
Form_Kunden.Text_Baustein_Bericht.Visible = True
End Sub
Was muss ich wo ändern, damit das geht?
Gruß Achim
Hi Achim,
das Register hat die Eigenschaft "bei Änderung":
http://www.access-o-mania.de/forum/index.php?topic=17503.0
Dort kannst Du die Nummer des Registers abfragen und abängig davon ein- bzw. ausblenden.
Harald
Hallo Harald,
ich kann dir irgendwie nicht folgen.
In den Eigenschaften der RegsiterStr245 steht in der Zeile "Bei Änderung" [Ereignisprozedur].
Wo finde ich diese Nummer der Steuerkarte, von der du sprichst?
Und wie spreche ich die an?
Gruß Achim
Hi Achim,
auf die Schnelle ein Beispiel zur Demo.
Das Formular enthält ein Register mit zwei Unterformularen.
Je nach angesteuertem UFO wird das Kombifeld im Hauptformular ein- bzw. ausgeblendet.
Private Sub Form_Open(Cancel As Integer)
Me.Formular_Formularsicht.SetFocus ' damit kein Error auftritt, wenn der Focus auf dem auszublendendem Steuerelement ist
Me.KombiFeld.Visible = False
End Sub
Private Sub RegisterStr2_Change()
Select Case Me.RegisterStr2
Case 0
Me.Formular_Formularsicht.SetFocus
Me.KombiFeld.Visible = False
Case 1
Me.KombiFeld.Visible = True
End Select
End Sub
Die Nummer findest Du in der Entwicklungssicht bei den Eigenschaften des Registers in dessem Register "Format" bei PageIndex-Eigenschaft (SeiteIndex).
Harald
[Anhang gelöscht durch Administrator]
Hallo Harald,
ich habe es nun mit deiner Hilfe gelöst.
Vielen Dank nochmal und einen schönen Abend noch.
Private Sub RegisterStr245_Change() 'Registerkartensteuerung
Select Case Me.RegisterStr245
Case 1
Form_Kunden.Text_Baustein_Bericht.Visible = True
Case Else
Form_Kunden.Text_Baustein_Bericht.Visible = False
End Select
End Sub
Hallo,
oder als Einzeiler: ;D ;D
Private Sub RegisterStr245_Change() 'Registerkartensteuerung
Me.Text_Baustein_Bericht.Visible = Me.RegisterStr245 = 1
End Sub