Datensätze in einem Bereich neben der Liste bearbeiten

In diesem Tutorial bauen Sie eine Kundenliste, deren Datensätze sich in einem Bereich rechts öffnen: Ein Doppelklick öffnet das Bearbeitungsformular neben der Liste, der Benutzer zieht den Bereich breiter, und die Schaltfläche zum Schließen oder Esc schließt ihn wieder. Das dauert etwa zehn Minuten.

• Microsoft 365 Access oder Access Runtime, in 32 oder 64 Bit, mit der WKL Forms Object Library 1.48 oder höher, installiert und für den aktuellen Windows-Benutzer registriert (Freigegebenes Paket installieren).
• Eine neue Datenbank an einem vertrauenswürdigen Speicherort.
• Jedes WKL-Steuerelement öffnet seinen Designer auf dieselbe Weise: in der Entwurfsansicht im Eigenschaftenblatt (F4), Registerkarte Andere, Zeile Benutzerdefiniert, [...] (Designer eines Steuerelements öffnen).

Führen Sie diese Zeilen nacheinander im Direktbereich (Strg+G) aus:

CurrentDb.Execute "CREATE TABLE tblKunden (KundeID COUNTER PRIMARY KEY, Firma TEXT(50), Ort TEXT(50))"
CurrentDb.Execute "INSERT INTO tblKunden (Firma, Ort) VALUES ('Albers', 'Bonn')"
CurrentDb.Execute "INSERT INTO tblKunden (Firma, Ort) VALUES ('Bauer', 'Köln')"

Legen Sie ein an tblKunden gebundenes Formular mit den Textfeldern Firma und Ort an, jeweils etwa 6 cm breit. Setzen Sie Horizontaler Anker beider Textfelder auf Beide, damit sie der Breite des Bereichs folgen. Setzen Sie Bildlaufleisten auf Nein und speichern Sie das Formular als frmKundeBearbeiten.

Legen Sie ein ungebundenes Formular frmKunden an und bleiben Sie in der Entwurfsansicht. Platzieren Sie im Detailbereich:

Lassen Sie zwischen beiden einen Zwischenraum von einigen Millimetern und die Verankerung beider bei Oben links.

Wählen Sie Formularentwurf › Steuerelemente › ActiveX-Steuerelemente, markieren Sie WKL Drawer, klicken Sie auf OK und ziehen Sie das Steuerelement als schmale Leiste (etwa 0,2 cm) in den Zwischenraum, so hoch wie die Liste. Nennen Sie es drw1.

Markieren Sie drw1, öffnen Sie das Eigenschaftenblatt, Registerkarte Andere, und klicken Sie in der Zeile Benutzerdefiniert auf [...]. Wählen Sie auf der Seite Bereich unter Inhalt den Eintrag sfBearbeiten. Die Statuszeile nennt lstKunden als Steuerelement daneben, und die Vorschau zeigt die Liste, die Leiste und den Bereich. Schalten Sie auf der Seite Verhalten die Option Esc schließt ein. Klicken Sie auf OK und speichern Sie das Formular.

Öffnen Sie das Codemodul des Formulars und fügen Sie Folgendes hinzu:

Private Sub Form_Load()
    Me!drw1.Object.Close
End Sub
 
Private Sub lstKunden_DblClick(Cancel As Integer)
    Me!drw1.Object.Open "frmKundeBearbeiten"
End Sub
 
Private Sub drw1_AfterOpen(ByVal SourceObject As String)
    Me!sfBearbeiten.Form.Filter = "KundeID = " & Me!lstKunden
    Me!sfBearbeiten.Form.FilterOn = True
End Sub

Wechseln Sie in die Formularansicht. Die Liste nimmt die ganze Breite ein. Doppelklicken Sie auf Bauer: Die Liste wird schmaler, und der Bereich zeigt den Datensatz von Bauer, mit dem Fokus darin. Ziehen Sie die Leiste nach links; der Bereich wird breiter, und die Textfelder folgen. Drücken Sie Esc: Der Bereich schließt sich. Schließen Sie das Formular, öffnen Sie es erneut und doppelklicken Sie auf einen Kunden: Der Bereich öffnet sich in der Breite, auf die Sie ihn gezogen haben.

Eine Liste, die jeden Datensatz in einem Bereich daneben öffnet, in der Breite, die der Benutzer zuletzt gewählt hat, mit angewendeten Verankerungen des Bearbeitungsformulars, und die sich mit dem × auf der Leiste oder mit Esc schließt.

• Datensätze neben der Liste bearbeiten – Breiten je Inhalt, Grenzen und Abbrechen.
• WklDrawer
• API-Referenz (Englisch): WklDrawer