Mehrfachauswahl Listenfeld

[StefanF81]

Guten Morgen,

ich hab mal wieder ein kleines Problem... Und zwar: Ich habe in einem Formular
eine Text Feld und eine Listenfeld(Mehrfachselektion ist möglich) und einen
Button. Beim drücken des Button soll auf die markierten Werte im Listenfeld ein
Update auf eine Tabelle durchgeführt werden.

Meine Frage: Über welche Methode des Listenfelds komme ich an die markierten Werte so dass ich diese mit einer Schleife abarbeiten kann???

Vielen Dank schonmal für eure Antworten.

Gruß Stefan

[O. Helper]

Hallo Stefan,

hier ein Beispiel, es gibt Dir den Wert der gebundenen Spalte aller markierten Einträge aus:

[highlight=code]
Private Sub LoopTroughMultiList()
Dim i As Integer

For i = 0 To Me.lstMultiSel.ItemsSelected.Count - 1
Debug.Print Me.lstMultiSel.ItemsSelected(i)
Next i

End Sub
[/highlight]

[StefanF81]

hallo Olaf,

vielen Dank für deine Antwort. Ich hab meine Problem inzwisch so gelöst:

For Each varitm In Liste6.ItemsSelected
        
        artikelNr = Liste6.ItemData(varitm)
        anzahl = CurrentDb.OpenRecordset("SELECT COUNT(*) AS Anz FROM bestand2 where bestand2.[rechnung erhalten]=true AND bestand2.artikelnr='" & artikelNr & "' and bestand2.bestellNr='" & Me.Text1 & "' ", dbOpenSnapshot, dbReadOnly).Fields("Anz").Value
        
        If anzahl = 0 Then
        
            
            db.Execute "UPDATE bestand2 set [rechnung erhalten]=true, RechnungsDatum='" & Me.Text3 & "' WHERE bestand2.bestellnr='" & Me.Text1 & "' AND bestand2.artikelnr='" & artikelNr & "'", dbFailOnError
        
        Else
            
            MsgBox ("Für den Artikel  '" & artikelNr & "' der Bestellung  '" & Me.Text1 & "' wurde schon eine Rechnung erhalten")
            
        End If
        
        
    Next varitm