Eine Befehlsleiste bauen

In diesem Tutorial setzen Sie eine Befehlsleiste in den Kopf eines Kundenformulars: einen Hauptbefehl, eine geteilte Schaltfläche zum Speichern und eine Menüschaltfläche für die Ansicht. Alle drei füllen Sie ohne Code im Designer; dazu kommen die Ereignisprozeduren, die auf sie reagieren.

• Microsoft 365 Access oder Access Runtime, in 32 oder 64 Bit, mit der WKL Forms Object Library 1.27 oder höher, installiert und für den aktuellen Windows-Benutzer registriert (Freigegebenes Paket installieren).
• Ein an eine Tabelle gebundenes Formular, zum Beispiel frmKunden auf tblKunde.
• Jedes WKL-Steuerelement öffnet seinen Designer auf dieselbe Weise: in der Entwurfsansicht im Eigenschaftenblatt (F4), Registerkarte Andere, Zeile Benutzerdefiniert, [...] (Designer eines Steuerelements öffnen).

Öffnen Sie frmKunden in der Entwurfsansicht, blenden Sie den Formularkopf ein und fügen Sie dreimal WKL Button ein (Formularentwurf › Steuerelemente › ActiveX-Steuerelemente). Nennen Sie die Schaltflächen im Eigenschaftenblatt (Registerkarte Andere) btnNeu, btnSpeichern und btnAnsicht, und legen Sie die Hintergrundfarbe des Formularkopfs fest.

Markieren Sie btnNeu, klicken Sie im Eigenschaftenblatt in der Zeile Benutzerdefiniert auf [...] und legen Sie auf der Seite Schaltfläche fest: Art „Befehlsschaltfläche“, Beschriftung &Neu, Symbol E710, Stil „Hauptbefehl“. Setzen Sie auf der Seite Darstellung den Hintergrund auf die Farbe des Formularkopfs.

Für btnSpeichern: Art „Geteilte Schaltfläche“, Beschriftung &Speichern, Symbol E74E. Tragen Sie auf der Seite Menü zwei Zeilen ein:

Für btnAnsicht: Art „Menüschaltfläche“, Beschriftung &Ansicht, Stil „Unauffällig“. Auf der Seite Menü:

Öffnen Sie das Formularmodul und fügen Sie hinzu:

Private Sub btnNeu_Click()
    DoCmd.GoToRecord , , acNewRec
End Sub
 
Private Sub btnSpeichern_Click()
    If Me.Dirty Then Me.Dirty = False
End Sub
 
Private Sub btnSpeichern_MenuItemClick(ByVal Key As String)
    Select Case Key
        Case "pdf": DoCmd.OutputTo acOutputForm, Me.Name, acFormatPDF
        Case "xlsx": DoCmd.OutputTo acOutputForm, Me.Name, acFormatXLSX
    End Select
End Sub
 
Private Sub btnAnsicht_MenuItemClick(ByVal Key As String)
    Me.OrderBy = IIf(Key = "name", "Name", "Ort")
    Me.OrderByOn = True
End Sub

Wählt der Benutzer im Menü „Nach Ort“, setzt das Menü dort das Häkchen und entfernt es bei „Nach Name“, bevor MenuItemClick eintritt, weil beide Einträge zur Optionsgruppe „sortierung“ gehören.

In der Formularansicht zeigt der Kopf die drei Schaltflächen im Office-Stil. „Neu“ fügt einen Datensatz hinzu, der Hauptteil von „Speichern“ speichert ihn, sein Pfeil öffnet die beiden Exportvarianten, und „Ansicht“ öffnet ein Menü mit der abgehakten Sortierung. Leertaste oder Eingabetaste drücken die Schaltfläche mit dem Fokus, Alt+Nach-unten oder F4 öffnen ein Menü.

• Menü unmittelbar vor dem Öffnen füllen, für Einträge, die vom aktuellen Datensatz abhängen.
• Ansicht mit Segmenten umschalten
• API-Referenz (Englisch): WklButton