Umschalteffekte für Schaltflächen (Access 97, 2000)
Veröffentlicht am 30.12.2003
Umschaltflächen verfügen über keine Möglichkeit, zwei oder mehrere Zustände durch unterschiedliche Symbole zu repräsentieren.
Diese Funktionalität können Sie aber nachahmen, indem Sie zwei Schaltflächen deckungsgleich übereinander anordnen und bei Bedarf einzeln einblenden.
Erstellen Sie zuerst zwei gleich große übereinander liegende Schaltflächen, und weisen Sie diesen die Namen btnNr1 und btnNr2 zu. Da nur die erste Schaltfläche standardmäßig sichtbar sein sollte, ändern sie die Sichtbar-Eigenschaft der zweiten Schaltfläche in Nein ab.
Legen Sie dann für das Beim Klicken-Ereignis beider Schaltflächen zwei identische Ereignisprozeduren an. Das folgende Listing zeigt die beiden Ereignisprozeduren:
Private Sub btnNr1_Click()
Me![btnNr2].Visible = Not Me![btnNr2].Visible
Me![btnNr2].SetFocus
Me![btnNr1].Visible = Not Me![btnNr1].Visible
End Sub
Private Sub btnNr2_Click()
Me![btnNr1].Visible = Not Me![btnNr1].Visible
Me![btnNr1].SetFocus
Me![btnNr2].Visible = Not Me![btnNr2].Visible
End Sub
Bei einem Klick auf die erste Schaltfläche wird diese nun ausgeblendet und die zweite Schaltfläche eingeblendet.