title image


Smiley Re: Schau dir mal das Beispiel im DBWiki ...
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

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: