wobei kommst Du nicht klar?
z. B.
Dim Element As Variant
Dim MitarbeiterNr as Long
Dim Bedingung As String
Dim StrSQl as String
If Me!lst_Mitarbeiter.ItemsSelected.Count = 0 Then Exit Sub
For Each Element In Me!lst_Mitarbeiter.ItemsSelected
MitarbeiterNr = Me!lst_Mitarbeiter.ItemData(Element)
Bedingung = Bedingung & "," & MitarbeiterNr
Next Element
Bedingung = Mid(Bedingung,2)
strSQl="Select * from Tabelle where Nr in (" & Bedingung & ")"
Gruß vom Bodensee
Franz, DF6GL
PS: Bitte nach Tipps oder Lösungsvorschlägen immer eine Erfolgs- / Mißerfolgsmeldung posten!
geschrieben von DF6GL , 26.10.2005, 18:50 Uhr , 19 mal gelesen