Hierarchisches Datenblatt erstellen

In diesem Tutorial legen Sie eine Tabelle mit Bestellungen und Bestellpositionen an und platzieren eine WklTreeList auf einem Formular. Sie legen Spalten, ein Band, eine Formatregel und eine Summe in der Fußzeile fest und bearbeiten in der Formularansicht eine Zelle. Die Definition wird einmal in der Entwurfsansicht festgelegt und mit dem Formular gespeichert. Das dauert etwa fünfzehn Minuten.

• Microsoft 365 Access oder Access Runtime in der 32- oder 64-Bit-Version mit der WKL Forms Object Library 1.23 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 tblPositionen (PositionID COUNTER PRIMARY KEY, ElternID LONG, Bezeichnung TEXT(50), Menge LONG, Preis CURRENCY)"
CurrentDb.Execute "INSERT INTO tblPositionen (ElternID, Bezeichnung, Menge, Preis) VALUES (0, 'Bestellung 1001', 0, 0)"
CurrentDb.Execute "INSERT INTO tblPositionen (ElternID, Bezeichnung, Menge, Preis) VALUES (1, 'Position 1', 1, 99)"
CurrentDb.Execute "INSERT INTO tblPositionen (ElternID, Bezeichnung, Menge, Preis) VALUES (1, 'Position 2', 2, 15.25)"
CurrentDb.Execute "INSERT INTO tblPositionen (ElternID, Bezeichnung, Menge, Preis) VALUES (0, 'Bestellung 1002', 0, 0)"
CurrentDb.Execute "INSERT INTO tblPositionen (ElternID, Bezeichnung, Menge, Preis) VALUES (4, 'Position 1', 1, 12)"

Erstellen Sie ein leeres Formular, speichern Sie es als frmPositionen und bleiben Sie in der Entwurfsansicht. Wählen Sie Formularentwurf › Steuerelemente › ActiveX-Steuerelemente, markieren Sie WKL TreeList und klicken Sie auf OK. Ziehen Sie das Steuerelement so breit auf, dass drei Spalten Platz haben, und nennen Sie es List1. Speichern Sie das Formular.

Lassen Sie das Formular in der Entwurfsansicht geöffnet. Fügen Sie ein Standardmodul mit dieser Prozedur ein, setzen Sie den Cursor hinein und drücken Sie F5:

Public Sub DefineList()
With Forms!frmPositionen!List1.Object
    .RecordSource = "tblPositionen"
    .KeyField = "PositionID": .ParentField = "ElternID": .TextField = "Bezeichnung"
    .ExpandLevel = 1
    .Bands.Add "Werte", "Werte"
    .Columns.Add("Bezeichnung", "Position").Width = 2600
    .Columns.Add("Menge", "Menge", "Werte").Summary = wsuSum
    With .Columns.Add("Preis", "Preis", "Werte")
        .Format = "Currency"
        .Summary = wsuSum
    End With
    .FormatRules.Add("Preis", wrkValue, wroGreater, 30).Bold = True
    .ShowFooter = True
End With
DoCmd.Close acForm, "frmPositionen", acSaveYes
End Sub

Die Prozedur schließt das Formular und speichert es; die Definition liegt mit dem Formular in ColumnLayout. Öffnen Sie das Formular für den nächsten Schritt in der Formularansicht.

Dieselben Einstellungen gelingen auch ohne Code: im Eigenschaftenblatt über die Zeile Benutzerdefiniert [...] und die Designer-Seiten Datenherkunft, Spalten, Bänder und Formatregeln.

Markieren Sie die Zelle Menge von Position 2, geben Sie 3 ein und drücken Sie die Eingabetaste.

• Zwei Bestellungen mit ihren Positionen; Bestellung 1001 ist aufgeklappt. Der Spaltenkopf zeigt das Band Werte über Menge und Preis.
• Die Preise erscheinen im Währungsformat von Windows; 99,00 € (Position 1 von Bestellung 1001) ist fett, weil der Wert größer als 30 ist.
• Die Fußzeile zeigt die Summen von Menge und Preis über die Datensätze.
• Nach Schritt 4 ist die Menge von Position 2 in tblPositionen gleich 3, und die Summe in der Fußzeile ist um 1 gestiegen.

• Nachschlagespalten verwenden und Zellen bedingt formatieren.
• Struktur aus flachen Datensätzen aufbauen.
• Liste nach Excel exportieren.
• Überblick über die Konzepte.