<\/p>\n
Lernen Sie, wie man Listenfeldern beibringt, sich die zuletzt markierten Werte zu merken.<\/p>\n
Formulare, Listenfelder, VBA<\/p>\n
Access 97 und höher<\/p>\n
ListenfelderMitGedaechtnis97.mdb, ListenfelderMitGedaechtnis00.mdb<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Wenn ein Benutzer ein Formular öffnet, eine Auswahl etwa anhand eines ungebundenen Listenfeldes trifft und diese beim nächsten öffnen des Formulars wieder vorfinden möchte, hat er üblicherweise Pech. Zumindest, soweit er keine speziellen Vorbereitungen dafür trifft. Was prinzipiell für alle Steuerelemente interessant ist, veranschaulicht dieser Beitrag anhand von Text-, Kombinations- und Listenfeldern.<\/b><\/p>\n
Die einfachste Variante, einem Steuerelement beim öffnen eines Formulars den zuletzt geöffneten Wert zuzuweisen, bietet der Einsatz einer globalen Variablen. Beim denkbar einfachsten Beispiel aus einem Formular mit einem ungebundenen Textfeld (siehe Bild 1) benötigen Sie nur eine global deklarierte Variable sowie zwei Routinen mit wenigen Zeilen.<\/p>\n
Die globale Variable deklarieren Sie in einem neuen Standardmodul namens mdlGlobal:<\/p>\n
Public gstrText As String<\/pre>\nAnschließend fügen Sie dem Formular zwei Ereignisprozeduren für die Ereignisse Beim öffnen und Beim Schließen zu.<\/p>\n
Die folgende Routine speichert beim Schließen des Formulars den aktuellen Inhalt des Textfeldes in der globalen Variablen gstrText:<\/p>\n
Private Sub Form_Close()\r\n ''Beim Speichern: Schreibe den Inhalt\r\n ''des Textfeldes in die Variable\r\n gstrText = Me!txtText\r\nEnd Sub<\/pre>\nBeim öffnen des Formulars soll der Inhalt dieser Variablen – soweit vorhanden – wieder eingelesen werden. Das erledigt die zweite Ereignisprozedur:<\/p>\n
Private Sub Form_Open(Cancel As Integer) ''Wenn gstrText nicht leer ...\r\n If Not gstrText = \"\" Then ''... schreibe den Text in das\r\n ''Textfeld\r\n Me!txtText = gstrText\r\n End If\r\nEnd Sub<\/pre>\nBei Kombinationsfeldern ist die Sache genauso einfach.<\/p>\n
Das folgende Beispiel aus Bild 2 beschäftigt sich mit einem Kombinationsfeld, das die Artikel der Nordwind-Datenbank anzeigen soll und dazu über die Datensatzherkunft <\/p>\n
SELECT Artikel.[Artikel-Nr],<\/p>\n
Artikel.Artikelname FROM Artikel;<\/p>\n
an diese Tabelle gebunden ist.<\/p>\n
Damit das Kombinationsfeld nicht den im ersten Feld der Abfrage enthaltenen Primärschlüssel der Tabelle, sondern den Artikelnamen aus dem zweiten Feld anzeigt, enthalten die Eigenschaften Spaltenanzahl und Spaltenbreite die Werte 2 und 0cm.<\/p>\n
Auch der im Kombinationsfeld angezeigte Wert kann in einer einzigen globalen Variablen gespeichert werden:<\/p>\n
Public glngArtikelnummer As Long<\/pre>\nDie Routine, die den aktuellen Datensatz des Kombinationsfelds in der globalen Variablen glngArtikelnummer speichern soll, sieht so aus:<\/p>\n
Private Sub Form_Close()\r\n ''Wenn Kombinationsfeld nicht leer ...\r\n If Not IsNull(Me!cboArtikel) Then\r\n ''... schreibe Inhalt in Variable\r\n glngArtikelnummer = _ Me!cboArtikel\r\n End If\r\nEnd Sub<\/pre>\nDas Einlesen beim öffnen des Formulars übernimmt die folgende Routine:<\/p>\n
Private Sub Form_Open(Cancel As Integer)\r\n ''Wähle den gespeicherten Wert aus\r\n Me!cboArtikel = glngArtikelnummer\r\nEnd Sub<\/pre>\nFalls Sie dafür sorgen wollen, dass das Kombinationsfeld beim ersten öffnen des Formulars den ersten Eintrag anzeigt, verwenden Sie die folgende Routine:<\/p>\n
Private Sub Form_Open(Cancel As Integer)\r\n ''Wenn kein Wert zwischengespeichert\r\n ''ist ...\r\n If glngArtikelnummer = 0 Then\r\n ''... wähle den ersten Wert aus,\r\n Me!cboArtikel = _ Me!cboArtikel.ItemData(0)\r\n Else\r\n ''sonst den gespeicherten Wert:\r\n Me!cboArtikel = _ glngArtikelnummer\r\n End If\r\nEnd Sub<\/pre>\n
<\/p>\n
<\/b><\/p>\n
Bild 1: Ein einfaches Formular mit einem ungebundenen Textfeld<\/span><\/b><\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 2: Formular mit einem ungebundenen, aber mit einer Datensatzherkunft versehenen Kombinationsfeld <\/span><\/b><\/p>\n
Diese prüft, ob die Variable den Wert 0 enthält (was bei Variablen des Datentyps Long der Standardwert ist – bei anderen Datentypen müssen Sie den Vergleich entsprechend anpassen) und stellt in diesem Fall das Kombinationsfeld auf den ersten Eintrag ein.<\/p>\n
<\/p>\n
Listenfelder verhalten sich diesbezüglich genauso wie Kombinationsfelder.<\/p>\n
Neben der globalen Variablen gibt es noch eine zweite Variante, wie Sie den Inhalt von Steuerelementen in Variablen speichern können – und zwar über eine statische Variable.<\/p>\n
Eine globale Variable hat die Eigenschaft, dass sie – innerhalb einer Routine festgelegt und gefüllt – ihren Wert zwischen zwei Aufrufen ein und derselben Routine beibehält.<\/p>\n
Quellcode 1: Diese Funktion merkt sich in einer statischen Variablen eine Artikelnummer.<\/b><\/p>\n
Public Function Artikelnummer(Optional varArtikelnummer As Variant)\r\n Static svarArtikelnummer As Variant\r\n ''Wenn keine Artikelnummer übergeben wurde, ...\r\n If IsMissing(varArtikelnummer) Then\r\n ''verwende die statisch gespeicherte Artikelnummer,\r\n Artikelnummer = svarArtikelnummer\r\n Else\r\n ''sonst die per Parameter übergebene Artikelnummer\r\n svarArtikelnummer = varArtikelnummer\r\n End If\r\nEnd Function<\/pre>\nNun können Sie die Variable weder in der Beim öffnen- noch in der Beim Schließen-Ereignisprozedur unterbringen, weil ja beide Routinen auf diese Variable zugreifen müssen, aber ihr Gültigkeitsbereich nur auf eine Routine festlegt werden kann.<\/p>\n
Also legen Sie eine separate Routine an, die sowohl einen Wert entgegennehmen als auch zurückgeben kann. Diese Routine sieht etwa wie in Quellcode 1 aus und muss sich in einem Standardmodul befinden.<\/p>\n
Der Aufruf erfolgt wiederum von zwei Routinen, die beim öffnen und beim Schließen des Formulars ausgelöst werden. Diesmal soll sich die Anwendung den in einem Listenfeld ausgewählten Datensatz merken (siehe Bild 3).<\/p>\n
Die passenden Ereignisprozeduren sehen so aus:<\/p>\n
Private Sub Form_Close()\r\n ''speichert die Artikelnummer in der ''statischen Variablen\r\n Artikelnummer Me!lstArtikel\r\nEnd Sub\r\nPrivate Sub Form_Open(Cancel As Integer)\r\n ''versucht, die Artikelnummer aus der\r\n ''statischen Variablen einzulesen\r\n Me!lstArtikel = Artikelnummer\r\nEnd Sub<\/pre>\n
<\/p>\n
<\/b><\/p>\n
Bild 3: Ein Listenfeld mit Gedächtnis<\/span><\/b><\/p>\n
Dauerhaften Erfolg bieten beide Lösungen nicht: Sowohl globale als auch statische Variablen werden spätestens beim Schließen der Datenbankanwendung gelöscht und stehen beim nächsten öffnen nicht mehr zur Verfügung.<\/p>\n
Was also tun Auch hier gibt es zumindest zwei Varianten: Die erste speichert die relevanten Werte einfach in einer Tabelle, die zweite verwendet dazu die Registry.<\/p>\n
Speichern von Werten in einer Tabelle<\/b><\/p>\n
Die erste Variante verwendet die Tabelle aus Bild 4 zum Speichern der Informationen. Die Tabelle ist so aufgebaut, dass sie problemlos die Inhalte mehrerer Steuerelemente aufnimmt.<\/p>\n
Man gibt einfach eine Bezeichnung für das Steuerelement sowie den zu speichernden Wert an. Gegebenenfalls ergänzt man den Steuerelementnamen noch um den Formularnamen (etwa frmTest_txtTest), um den Einsatz gleichnamiger Steuerelemente in unterschiedlichen Formularen zu erlauben.<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 4: Tabelle zum Speichern von Datenbankoptionen<\/span><\/b><\/p>\n
Stellen Sie die Eigenschaft Indiziert des Feldes Optionsbezeichnung auf den Wert Ja(Ohne Duplikate) ein – den Grund erfahren Sie weiter unten.<\/p>\n
Und wieder sorgen die bekannten zwei Ereignisse für das Speichern und Lesen der Steuerelementinhalte – hier wieder für ein Formular mit einem Listenfeld wie in Bild 3.<\/p>\n
Etwas trickreich ist die Routine zum Schreiben des aktuellen Wertes (s. Quellcode 2): Sie versucht einfach, einen neuen Datensatz mit der Optionsbezeichnung frmListenfeldTabelle_lstArtikel und dem aktuellen Wert des Listenfeldes für das Feld Wert anzulegen.<\/p>\n
Quellcode 2: Das Schließen des Formulars speichert den Wert des Listenfeldes in einer Tabelle.<\/b><\/p>\n
Private Sub Form_Close()\r\n Dim db As DAO.Database\r\n Set db = CurrentDb\r\n On Error Resume Next\r\n ''Versuchen, einen Wert für die Option in die Tabelle zu schreiben, was einen Fehler auslöst, \r\n ''wenn der Wert schon vorhanden ist ...\r\n db.Execute \"INSERT INTO tblOptionen(Optionsbezeichnung, Wert) \" _ & \"VALUES(''frmListenfeldTabelle_lstArtikel'', ''\" & Me!lstArtikel & \"'')\", dbFailOnError\r\n ''... der aber abgefangen wird, indem die folgende Anweisung den vorhandenen Wert einfach auf \r\n ''den aktuellen Wert ändert.\r\n If Err.Number > 0 Then\r\n db.Execute \"UPDATE tblOptionen SET Wert = ''\" & Me!lstArtikel _ & \"'' WHERE Optionsbezeichnung = ''frmListenfeldTabelle_lstArtikel''\"\r\n End If\r\n Set db = Nothing\r\nEnd Sub<\/pre>\nDadurch, dass Sie weiter oben einen eindeutigen Index für das Feld Optionsbezeichnung festgelegt haben, löst das Anlegen eines Datensatzes mit einer bereits vorhandenen Optionsbezeichnung einen Fehler aus, der zwar durch die vorherige On Error Resume Next-Anweisung übergangen, aber durch die Bedingung If Err.Number > 0 Then… erkannt wird.<\/p>\n
In dem Fall legt die Routine keinen neuen Datensatz an, sondern ändert einfach den Inhalt des Feldes Wert des bestehenden Datensatzes ab.<\/p>\n
Wichtig ist in diesem Zusammenhang, dass eine Execute-Anweisung nur einen Fehler auslöst, wenn als zweiter Parameter der Wert dbFailOnError eingetragen ist!<\/p>\n
Das Auslesen übernimmt in der Routine aus Quellcode 3 eine einfache DLookup-Anweisung: <\/p>\n
Sie fragt den Inhalt des Feldes Wert für den passenden Datensatz ab und weist der Variablen lngArtikel entweder den gespeicherten Wert oder, falls der entsprechende Datensatz nicht vorhanden ist, den Wert 0 zu.<\/p>\n
Quellcode 3: Beim öffnen des Formulars liest diese Routine den Wert des Listenfeldes aus der Tabelle aus.<\/b><\/p>\n
Private Sub Form_Open(Cancel As Integer)\r\n Dim lngArtikel As Long\r\n ''Artikel aus der Optionstabelle einlesen ...\r\n lngArtikel = Nz(DLookup(\"Wert\", \"tblOptionen\", _ & \"Optionsbezeichnung = \" _ & \"''frmListenfeldTabelle_lstArtikel''\"), 0)\r\n ''... und, wenn dieser nicht null ist, im Listenfeld \r\n ''auswählen.\r\n If Not lngArtikel = 0 Then\r\n Me!lstArtikel = lngArtikel\r\n End If\r\nEnd Sub<\/pre>\nQuellcode 4: Schreiben eines Wertes in die Registry<\/b><\/p>\n
Private Sub Form_Close()\r\n SaveSetting \"Beispielanwendung\", \"Steuerelemente\", _ \"lstListenfeldRegistry_lstArtikel\", Me!lstArtikel\r\nEnd Sub<\/pre>\nQuellcode 5: Lesen eines Wertes aus der Registry<\/b><\/p>\n
Private Sub Form_Open(Cancel As Integer)\r\n Me!lstArtikel = GetSetting(\"Beispielanwendung\", _ \"Steuerelemente\", \"lstListenfeldRegistry_lstArtikel\", 0)\r\nEnd Sub<\/pre>\n
<\/p>\n
<\/b><\/p>\n