In Ihren Datenbanken setzen Sie häufig Listenfelder ein, aus denen der Anwender einen, mehrere oder alle Einträge auswählen kann. Tipp aus Access_aktuell: Zur Vereinfachung der Auswahl können Sie für diese Liste 2 Schaltflächen „Alle auswählen“ und „Nichts auswählen“ einbauen. Dazu stellt ein Listen-Steuerelement die Auflistung „Selected“ zur Verfügung. Für jeden Eintrag in der Liste kann auf diesem Weg der Status auf „True/Wahr“ oder „False/Falsch“ gesetzt werden. Über die folgende Anweisung können Sie z. B. den 3. Eintrag in der Liste markieren und so eine Vorauswahl treffen:

Me.1stAuswahl.Selected(2) = True

Adressiert wird in der Auflistung „Selected“ immer ab Element „0“ bis zum letzten Eintrag gemäß „.ListCount-1“. Um alle oder keine Einträge in der Liste zu markieren, geben Sie zunächst in einem beliebigen oder einem neuen Modul die folgende Prozedur ein:

Sub SelectInList(1st As ListBox, bolOnOff As Boolean)
Dim I&
For I = 0 To 1st.ListCount – 1 1st.Selected(I) = bolONOff
Next I
End Sub

Diese kleine Prozedur geht in einer Schleife alle Einträge der Liste durch und setzt deren “Markierstatus” auf den über den 2. Parameter „bolOnOff“ spezifizierten Wert.

Für die Schaltfläche „Alle auswählen“ rufen Sie die Prozedur über die Ereignisprozedur „Beim Klicken“ wie folgt auf:

SelectInList Me.1stAuswahl, True

„1stAuswahl“ ersetzen Sie dabei durch den Namen des Listen-Steuerelementes in Ihrem Formular. Für die Schaltfläche „Nichts auswählen“ rufen Sie die Prozedur wie folgt auf:

SelectInList Me.1stAuswahl, False

Bitte beachten Sie, dass die Eigenschaft „Mehrfachauswahl“ der jeweiligen Liste auf „Erweitert“ eingestellt sein muss!