title image


Smiley z.B. so:


'Alle Einträge im Listenfeld auswählen

Dim I As Long, strSQL As String

strSQL = "Select WasAuchImmer FROM DeineTabelle WHERE GenauDas="

For I = 0 To Me!DeineListenfeld.ListCount - 1

'WHERE Kriterium zusammensetzen

strSQL = strSQL & Me.DeineListenfeld.Column(0, I) & " AND GenauDas="

Next I

'Das letzte "AND GenauDas=" abschneiden

strSQL = MID(strSQL, 1, Len(strSQL) - Len("AND GenauDas="))

Debug.Print strSQL

'strSQL Verwenden





Gruß

Tax





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: