Private Sub Befehl3_Click()
Dim db As DAO.Database
Dim qryDef As QueryDef
Dim i As Long, x As Long
Dim v As Variant
Dim sSQL As String, sIN As String, sWhere As String
Set db = CurrentDb
With LST
For Each v In .ItemsSelected
ReDim Preserve vnt(x)
vnt(x) = .ItemData(v)
x = x + 1
Next
End With
sSQL = "SELECT * FROM tbl_Staaten"
sSQL = createWherePart(sSQL, getINPart)
db.QueryDefs.Delete "QUE_STAAT"
Set qry = db.CreateQueryDef("QUE_STAAT", sSQL)
DoCmd.OpenQuery "QUE_STAAT"
End Sub
*********************************** Modul 1 *************************************************
Option Compare Database
Public vnt() As Variant
Function getINPart() As String
Dim sIN As String
For i = LBound(vnt()) To UBound(vnt())
sIN = sIN & "'" & vnt(i) & "'" & ","
Next i
getINPart = sIN
End Function
Function createWherePart(ByVal sSQL As String, ByVal sIN As String) As String
Dim sWhere As String
sWhere = sSQL & Chr(32) & "Where [Staat] In(" & Left(sIN, Len(sIN) - 1) & ")"
createWherePart = sWhere
End Function
******************************************** Ende Modul *****************************************