Hallo zusammen,
ich habe aktuell ein VBA Project in Access, das ganze arbeitet mit Form's.
Ich habe in einem Form eine Combobox (Dropdown Auswahl dings ;-P), das seine Daten aus einer Access Datenbank Tabelle bekommt.
Jetzt möchte ich den Inhalt filtern, dazu habe ich eine andere Access Datenbank Tabelle mit dem, was zu sehen sein soll, alles andere soll versteckt sein.
Ich habe damit bereits eine Tabelle gefiltert, aber ich weiß leider nicht wie ich den Code auf die Combobox anpasse.
Das ist der Code der in der Tabelle funktioniert (Die Tabelle wird über ein Formular befüllt):
Dim ProjektRechte() As String
ProjektRechte = Split(DLookup("ProjektRechte", "Tbl_Bearbeiter_Projektberechtigungen", "UserID=" & DLookup("ID", "Tbl_Bearbeiter", "Bearbeiter='" & Benutzer & "'")), ",")
Me.RecordSource = " SELECT Tbl_KtsB.*, Tbl_KtsB.Ktsb_Nr " & _
" FROM Tbl_KtsB" & _
" ORDER BY Tbl_KtsB.Ktsb_Nr DESC;" '" WHERE (((Tbl_KtsB.Projekt) IN " & ProjektRechte & "))" &
For Each I In ProjektRechte
If strfilter = "" Then
strfilter = "([Projekt]=" & I
Else
strfilter = strfilter & " or [Projekt]=" & I
End If
Next I
strfilter = strfilter & ") AND ([Geschlossen]='öffnen' or [Geschlossen] is null or [Geschlossen]='')"
Me.Filter = strfilter
Me.FilterOn = True
Wäre super wenn mir jemand hierbei helfen kann, die Combobox heißt "Projekt"
|