Alle Elemente im Listenfeld auswählen (Access 97, 2000)
Veröffentlicht am 30.12.2003
Frage:
Bei meiner Adressverwaltung habe ich einen Etikettendruck eingebaut. Im Formular habe ich ein Listenfeld, das auf Mehrfachauswahl Erweitert eingestellt ist. Das Listenfeld enthält alle Adressen aus einer Tabelle.
Kann man mit einer Schaltfläche, die man zum Beispiel „Alle auswählen“ nennt, alle Einträge der Liste markieren?
Antwort:
Access-97-Datenbank mit Demo-Datenbank
Ein Listenfeld hat für jeden Listeneintrag eine Eigenschaft namens Selected, die man lesen bzw. setzen kann. Wenn Sie die Mehrfachauswahl des Listenfeldes auf Einfach gesetzt haben, kann immer nur eine Selected-Eigenschaft den Wert True haben. Alle anderen Selected-Eigenschaften bleiben False.
Bei einem Listenfeld mit Mehrfach- bzw. Einzelauswahl können Sie mit einer For-Schleife alle Listeneinträge durchlaufen und die Selected-Eigenschaft auf True setzen:
Dim i As Integer
For i = 0 To Me!lstAuswahl.ListCount - 1
Me!lstAuswahl.Selected(i) = True
Next i
Die ListCount-Eigenschaft ergibt die Anzahl der Einträge im Listenfeld.