{"id":55000161,"date":"2013-02-01T00:00:00","date_gmt":"2020-01-24T15:58:23","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=161"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Kombinations_und_Listenfelder_per_Callback_fuellen","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Kombinations_und_Listenfelder_per_Callback_fuellen.html","title":{"rendered":"Kombinations- und Listenfelder per Callback füllen"},"content":{"rendered":"

Es gibt verschiedene Arten, Kombinations- und Listenfelder mit Daten zu füllen: Sie können diese an Tabellen oder Abfragen binden, einfach mit einer Wertliste füllen oder die Namen der Felder einer Tabelle darin anzeigen. Es gibt jedoch noch eine weitgehend unbekannte Methode, die Nachteile der übrigen Möglichkeiten ausbügelt, aber auch etwas aufwendiger zu implementieren ist. Dabei kommt eine sogenannte Callback-Funktion zum Einsatz, welche die anzuzeigenden Daten zum Kombinationsfeld hinzufügt.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1207_KombinationsfeldCallback.mdb<\/b>.<\/p>\n

Kombinationsfelder und Listenfelder füllen<\/h2>\n

Der Optimalfall beim Füllen eines Kombinationsfeldes ist das Vorhandensein einer Tabelle oder Abfrage als Datenherkunft. In diesem Fall behalten Sie den Wert Tabelle\/Abfrage <\/b>für die Eigenschaft Herkunfts-typ <\/b>bei.<\/p>\n

Dies ist jedoch nicht immer gegeben: Wenn Sie beispielsweise eine Liste aller in einem Verzeichnis enthaltenen Dateien in einem Kombinationsfeld anzeigen wollen, liegen die Daten zunächst nicht in einer Tabelle vor. Nun gibt es die Möglichkeit, die Daten einfach in Form einer Wertliste aneinanderzureihen.<\/p>\n

Dazu fügen Sie alle Dateinamen durch Semikola voneinander getrennt zu einer Zeichenkette zusammen, stellen die Eigenschaft Herkunftsart<\/b> des Kombinations-feldes auf Wertliste <\/b>ein und weisen die Zei-chen-kette per VBA der Eigenschaft RowSource <\/b>zu. Dies hat allerdings den Nachteil, dass die Wertliste eines Kombinationsfeldes nicht beliebig lang sein darf – genau genommen sind es weniger als 40.000. Welche Anzahl genau möglich ist, können Sie mit einem kleinen Testformular ermitteln. Dieses finden Sie in der Beispieldatenbank unter dem Namen frmLangeWertliste<\/b>. Beim Laden löst das Formular die folgende Prozedur aus:<\/p>\n

Private Sub <\/span>Form_Load()\r\n     Dim <\/span>l As Long<\/span>\r\n     For l = 1 To 100000\r\n         On Error Resume Next<\/span>\r\n         Me!cboLangeWertliste.RowSource = _\r\n             String(l, \"a\")\r\n         If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n             MsgBox<\/span> \"Maximal \" & l & \" Zeichen.\"\r\n             Exit Sub<\/span>\r\n         End If<\/span>\r\n     Next<\/span> l\r\nEnd Sub<\/span><\/pre>\n
Die Prozedur fügt schlicht und einfach eine immer längere Zeichenkette für die Eigenschaft Wertliste <\/b>ein – bis dies irgendwann einen Fehler auslöst. Auf dem Testsystem lieferte dies beispielsweise eine zulässige Länge von 32.751 Zeichen. übrigens: Unter älteren Access-Versionen war die Anzahl der Zeichen auf 2.048 festgelegt – dort war der Einsatz von Callback-Funktionen noch wesentlich öfter gefragt.<\/p>\n
Wenn Sie nun den Inhalt von Verzeichnissen mit vielen Dateien darstellen möchten, kann dies einen Fehler auslösen, wenn die Anzahl der erlaubten Zeichen für die Eigenschaft RowSource <\/b>überschritten wird.<\/p>\n
Liste per Callback-Funktion füllen<\/h2>\n
Die in diesem Artikel vorgestellte Funktion verwendet eine weitere Alternative, bei der statt eines der verfügbaren Werte Tabelle\/Abfrage<\/b>, Wertliste <\/b>oder Feldliste <\/b>einfach der Name einer VBA-Funktion als Wert der Eigenschaft Herkunftsart <\/b>angegeben wird. Die Angabe eines Wertes für die Eigenschaft Datensatzherkunft <\/b>ist in diesem Fall nicht nötig.<\/p>\n
Die verwendete Callback-Funktion hat einen speziellen Aufbau, der wie folgt aussieht:<\/p>\n
Function <\/span>DateienEinlesen(ctl As <\/span>Control, _\r\n         lngID As Long<\/span>, lngRow As Long<\/span>, _\r\n         lngColumn As Long<\/span>, intCode As Integer<\/span>) _\r\n         As Variant<\/span>\r\n     Select Case intCode\r\n         Case <\/span>acLBInitialize\r\n             DateienEinlesen = True<\/span>\r\n         Case <\/span>acLBOpen\r\n             DateienEinlesen = Timer\r\n         Case <\/span>acLBGetRowCount\r\n             DateienEinlesen = 1\r\n         Case <\/span>acLBGetColumnCount\r\n             DateienEinlesen = 1\r\n         Case <\/span>acLBGetColumnWidth\r\n             DateienEinlesen = -1\r\n         Case <\/span>acLBGetValue\r\n             DateienEinlesen = \"Test\"\r\n         Case <\/span>acLBGetFormat\r\n             DateienEinlesen = Null\r\n         Case Else<\/span>\r\n             Debug.Print<\/span> intCode\r\n     End Select<\/span>\r\nEnd Function<\/span><\/pre>\n
Dies wirkt auf den ersten Blick etwas unübersichtlich, was sich aber gleich noch ändern wird – zu Ungunsten der übersicht, denn die obige Variante enthält nur die einfachste Variante der Prozedur, die lediglich einen einzigen Wert in das Ziel-Listenfeld schreibt. Schauen wir uns jedoch zunächst den groben Aufbau an.<\/p>\n
Die Funktion wird mehrfach aufgerufen und soll dabei verschiedene Anweisungen ausführen. Diese Anweisungen tragen Sie unter den entsprechenden Verzweigungen der Select Case<\/b>-Bedingung ein. Welcher Teil der Select Case<\/b>-Bedingung ausgeführt wird, entscheidet der beim Aufruf übergebene Wert für den Parameter intCode<\/b>. Dieser kann einen Zahlenwert annehmen, der einer der folgenden Konstanten entspricht:<\/p>\n