Thema Datum  Von Nutzer Rating
Antwort
Rot Combobox Data Filtern
22.02.2024 10:21:38 Chris
Solved
22.02.2024 10:54:04 Chris
Solved

Ansicht des Beitrags:
Von:
Chris
Datum:
22.02.2024 10:21:38
Views:
608
Rating: Antwort:
 Nein
Thema:
Combobox Data Filtern

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"


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Combobox Data Filtern
22.02.2024 10:21:38 Chris
Solved
22.02.2024 10:54:04 Chris
Solved