Mehrfachauswahl in Listenfeld

27/07/2008 - 20:21 von Steffen Strauss | Report spam
Hallo NG,

In einem Formular Mitarbeiter
habe ich ein Listenfeld in dem verschiedene Tàtigkeiten aufgeführt
werden sowie ein Textfeld in dem mittels diesem Code

Dim strNeueZeile As String
Dim ctlLst As Control
Dim ctlTxt As Control
Dim varElem As Variant

Set ctlLst = Me.Liste26
Set ctlTxt = Me.Text24
strNeueZeile = vbNewLine
ctlTxt.Value = ""
For Each varElem In ctlLst.ItemsSelected
ctlTxt.Value = ctlTxt.Value & ctlLst.Column(1, varElem) & strNeueZeile
Next

per Einzel- oder Mehrfachauswahl die entsprechenden Tàtigkeiten
gespeichert werden.
Das funktioniert soweit ganz gut.
Was mich stört:
Mitarbeiter x hat 3 Tàtigkeiten--> Im Listenfeld sind 3 Tàtigkeiten
markiert. Gehe ich zu Mitarbeiter y ist zwar das Textfeld angepasst ( Y
hat nur 2 Tàtigkeiten ) im Listenfeld aber immer noch die 3 Tàtigkeiten
von X markiert.
Wie kann ich das Listenfeld beim Blàttern den entsprechenden Tàtigkeiten
anpassen d.h. die Markierungen in Übereinstimmung mit den Tàtigkeiten
bringen ?

Danke und Gruß
Steffen
 

Lesen sie die antworten

#1 Gottfried Lesigang
28/07/2008 - 00:49 | Warnen spam
Am Sun, 27 Jul 2008 20:21:15 +0200 schrieb Steffen Strauss:

Wie kann ich das Listenfeld beim Blàttern den entsprechenden Tàtigkeiten
anpassen d.h. die Markierungen in Übereinstimmung mit den Tàtigkeiten
bringen ?



Erst per Schleife alle selektierten deselektieren, dann die neuen
selektieren.

Beim Blàttern: Ich denke du meinst das Form_Current-Ereignis.

HTH
Gottfried

Home: www.develes.net
Mail:

Ähnliche fragen