|
Hi,
ich habe ein kleines Form, welches über ein Recordsource befüllt wird.
Dieses möchte ich jetzt gerne Filtern anhand eines Arrays welches ich mir zusammenbaue aus einer DLookup einer anderen Tabelle (Code dafür ist dabei)
Allerdings verstehe ich nicht ganz wie ich das hinbekomme.
Hier ist mein Code für die generierung des Array:
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, ",")
PR Sollte hier dann ein Array sein was (zumindest in C#) so aussehen Sollte: [1,2,3,4,5,6,7,8,9]
Jetzt will ich dann meinen Recordsource so befüllen:
Me.RecordSource = " SELECT Tbl_KB.*, Tbl_KB.KBNR " & _
" FROM Tbl_KB" & _
" WHERE (((Tbl_KB.P) IN " & PR & "))" & _
" ORDER BY Tbl_KB.KBNR DESC;"
Ohne die WHERE Zeile funktioniert die ganze befüllung, sobald die drinnen ist geht es nicht mehr.
Kann mir hier jemand Helfen den Fehler zu finden?
|