Hallo,



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 , 22 mal gelesen