Hi,
ich habe die ganze abfrage geschickt...
genau so steht es in meinem Code:
Dim UID As String
Dim RPR As String
Dim PR() As Integer
UID = DLookup("ID", "Tbl_B", "Benutzer='" & Benutzer & "'")
RPR = DLookup("PR", "Tbl_BPR", "UID=" & UID)
PR = Split(RPR, ",")
Me.RecordSource = " SELECT Tbl_KB.*, Tbl_KB.KBNR " & _
" FROM Tbl_KB" & _
" WHERE (((Tbl_KB.P) IN " & PR & "))" & _
" ORDER BY Tbl_KB.KBNR DESC;"
|