Listenfeld mit Mehrfachauswahl; Zugriff auf andere Spalten

[mstadler71]

Mahlzeit allerseits

ich möchte -prozessabhängig- aus einer Mehrfachauswahl eines Listenfeldes eine oder eben mehrerer Spaltenwerte auslesen

Die Anweisung:

 For Each vValue In Forms("formular")("Listfeld").ItemsSelected     
   Aktion Forms("formular")("Listfeld").ItemData(vValue)
 Next

liefert nur den Wert der gebundenen Spalte.
Kann mir jemand weiterhelfen wie ich auf die anderen Spalten zugreifen kann?

Danke!

[Beaker s.a.]

Hallo,
IMO gibt das die Auflistung nicht her. Du hast aber ja den
Wert von .ItemData(vValue) und könntest damit ein RS öffnen
um andere Felder auszulesen.

Code [Auswählen] Erweitern

Dim rst As DAO.Recordset

For Each vValue In Forms("formular")("Listfeld").ItemsSelected     
   Aktion Forms("formular")("Listfeld").ItemData(vValue)
   Set rst = CurrentDb.Openrecordset ( _
              "SELECT Feldname(n) " _
            & "FROM Tabelle " _
            & "WHERE IdFeld = " & Forms("formular")("Listfeld").ItemData(vValue)
   'mach was mit Feld(x)
 NextBefindet sich deine Prozedur eigentlich ausserhalb des Formular-
Moduls? Oder warum verwendest du die ausgeschriebene Formular-
referenz statt Me. ?

gruss ekkehard

[mstadler71]

Hallo Beaker
danke! habe es zwischenzeitig ähnlich gelöst
ja, Prozedur ist außerhalb des Formulars abgelegt

lg
Michael