Beitrag aus SmartTools Access Weekly
Schaltfläche in Access-Formular flexibel ein- oder ausblenden
Access 365 2024 2021 2019 2016 2013 2010
FRAGE Ich verwende in einem Access-Formular ein Ja/Nein-Feld Bezahlt verbunden mit einem Kontrollkästchen. Außerdem gibt es eine Schaltfläche Quittung drucken, über die ein Bericht zum Ausdruck des aktuellen Datensatzes als Quittung aufgerufen wird. Ich möchte erreichen, dass diese Schaltfläche tatsächlich nur bei aktiviertem Kontrollkästchen sichtbar ist. Das wird wahrscheinlich nur per VBA möglich sein. Haben Sie dazu eine Lösung?
D. Prange
ANTWORT Nutzen Sie eine Kombination aus den Ereignisprozeduren "Beim Anzeigen" des Formulars und "Beim Klicken" des Kontrollkästchens. In der Ereignisprozedur "Beim Anzeigen" des Formulars verwenden Sie folgende Anweisung:
Private Sub Form_Current()
btnQuittungDrucken.Visible = _
(kkBezahlt And Not Me.NewRecord)
End Sub
"btnQuittungDrucken" ersetzen Sie durch den Namen der Schaltfläche und "kkBezahlt" durch den Namen des Kontrollkästchens in Ihrem Formular. Diese Anweisung sorgt bei einem Datensatzwechsel dafür, dass die Schaltfläche nur angezeigt wird, wenn das Kontrollkästchen aktiviert ist und es sich nicht um einen neuen Datensatz handelt. In der Ereignisprozedur "Beim Klicken" des Kontrollkästchens verwenden Sie folgende Anweisung:
Form_Current
Diese Anweisung ruft die Ereignisprozedur "Beim Anzeigen" des Formulars auf und sorgt auf diesem Wege ebenfalls dafür, dass die Schaltfläche nur sichtbar ist, wenn das Kontrollkästchen aktiviert und der aktuelle Datensatz kein neuer Datensatz ist.