Mehrere Zeilen im Listenfeld per VBA markieren

28/11/2008 - 14:51 von Patrick Pohlmann | Report spam
Hallo Zusammen,

ich bin schon seit einiger Zeit am googeln, finde aber nicht das Richtige.
Ich hoffe jemand kann mir helfen.

Ich habe ein Listenfeld mit ca. 700 eintràgen (ist immer Situationsabhàngig)
Von diesen Eintràgen möchte ich die vorab markieren, die dafür gem. eones
Tabelleneintrages vorgesehen sind.

Die Datenbasis des Listenfeld sieht also so aus:

ItemID;Beschriebung;Markieren
1;Test1;Wahr
12;Test2;Falsch
72;Test3;Falsch
6;Test4;Wahr

usw.

Wie schaffe ich es, dass die Datensàtze mit der ItemId 1 und 6 markiert
werden?

Vielen Dank für Eure Hilfe.

Grüße

Patrick!
 

Lesen sie die antworten

#1 Patrick Pohlmann
28/11/2008 - 15:12 | Warnen spam
Vielen Dank Karl,

Du bist wie immer Gold Wert.

Viele Grüße

Patrick!



"Karl Donaubauer" schrieb im Newsbeitrag
news:
Patrick Pohlmann wrote:
ich bin schon seit einiger Zeit am googeln, finde aber nicht das
Richtige. Ich hoffe jemand kann mir helfen.

Ich habe ein Listenfeld mit ca. 700 eintràgen (ist immer
Situationsabhàngig) Von diesen Eintràgen möchte ich die vorab
markieren, die dafür gem. eones Tabelleneintrages vorgesehen sind.

Die Datenbasis des Listenfeld sieht also so aus:

ItemID;Beschriebung;Markieren
1;Test1;Wahr
12;Test2;Falsch
72;Test3;Falsch
6;Test4;Wahr

usw.

Wie schaffe ich es, dass die Datensàtze mit der ItemId 1 und 6
markiert werden?



Eigenschaft "Mehrfachauswahl" des Listenfeldes auf "Erweitert"
einstellen und

Dim i As Long

For i = 0 To Me!Listenfeld.ListCount - 1
If Me!Listenfeld.Column(2, i) Then
Me!Listenfeld.Selected(i) = True
End If
Next i

oder schmissiger aber immer mit expliziter True/False-Setzung:

For i = 0 To Me!Listenfeld.ListCount - 1
Me!Listenfeld.Selected(i) = Me!Listenfeld.Column(2, i)
Next i


HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com

Ähnliche fragen