Nachschlagespalten verwenden

Zeigen Sie statt der ID den Namen eines verknüpften Datensatzes oder statt einer Statusnummer ein Symbol mit Text an, und lassen Sie Benutzer den Wert aus einer Liste wählen.

Voraussetzungen: WKL Forms Object Library 1.23 oder höher.

Editor = wedLookup mit RowSource (Tabelle, Abfrage, SQL oder Werteliste), BoundColumn und DisplayColumn funktioniert wie ein Access-Kombinationsfeld. Editor = wedImageLookup mit AddImageItem ordnet gespeicherten Werten ein Symbol und einen Text zu.

With Me!List1.Object
    With .Columns.Add("LagerID", "Lager")
        .Editor = wedLookup
        .RowSource = "SELECT LagerID, Lagername FROM tblLager ORDER BY Lagername"
        .BoundColumn = 1          ' stored value: LagerID
        .DisplayColumn = 2        ' shown: Lagername
    End With
    With .Columns.Add("Prioritaet", "Priorität")
        .Editor = wedLookup
        .RowSource = "'niedrig';'normal';'hoch'" ' value list
    End With
    With .Columns.Add("Status", "Status")
        .Editor = wedImageLookup
        .AddImageItem 0, "Info", "offen"
        .AddImageItem 1, "Settings", "in Arbeit"
        .AddImageItem 2, "Shield", "erledigt"
    End With
End With
 
Debug.Print Me!List1.Object.CellValue(7, "LagerID"), Me!List1.Object.CellText(7, "LagerID")

• CellValue gibt den gespeicherten Wert zurück, CellText den angezeigten Text.
• Der Excel-Export schreibt den angezeigten Text; RawValues:=True schreibt die gespeicherten Werte.
• Die Symbolnamen sind die von ImageField: Bilder aus dem Bildkatalog der Datenbank, eingebaute Namen oder Dateipfade.
• DisplayColumn = 0 zeigt die gebundene Spalte selbst an.

• API-Referenz (Englisch): WklColumn.RowSource, AddImageItem
• Spalten und Bänder festlegen
• WklTreeList