Office: (Office 2003) ungebundenes Listenfeld filtern

Hallo zusammen

in suche nach einer möglichkeit ein ungebundenes Listenfeld per VBA zu filtern ( mit Button)
Im Formular verwende ich dazu diesen Code und es klappt.
Wie muß ich den für ein Listenfeld anpassen?

Private Sub Rahmen244_AfterUpdate()
Select Case Me!Rahmen244
Case 1
Me.FilterOn = False
Case 2
Me.Filter = "Status ='Nicht begonnen'"
Me.FilterOn = True
Case 3
Me.Filter = "Status ='begonnen'"
Me.FilterOn = True
Case 4
Me.Filter = "Status ='abgeschlossen'"
Me.FilterOn = True
End Select
End Sub


Jens

:)

 

Eine Listbox hat (leider) keine Filtereigenschaft.
Du musst also die .RowSource mit entsprechenden WHERE Klauseln anpassen

 

Ein Listenfeld musst Du über die RowSource-Eigenschaft (Datensatzherkunft) filtern.
Beispiel:
Code:

Siehe auch die Hilfe im VBA-Editor zu RowSource.

 

Basiert das ungebundene Listenfeld auf einer Abfrage oder Tabelle? Dann arbeite mit RowSource:

Code:

 

Hallo Arne,
vielen Dank ersteinmal für deine Hilfe.
Ich habe jetzt den Code eingefügt, aber ich erhalte bei der Auswahl Case 2 bis 4 keine Daten im Listenfeld mehr angezeigt. Wo könnte danoch der Fehler liegen?

Private Sub Rahmen244_AfterUpdate()
Dim strSQL As String

strSQL = "SELECT Projekte.Projektnummer, Projekte.Projektname, Projekte.Auftraggeber, Projekte.Kunde, Projekte.KdNr, Projekte.Status FROM Projekte ORDER BY Projekte.Projektnummer DESC; " 'hier den ursprünglichen SQL-String des Listenfeldes

Select Case Me!Rahmen244
Case 2
strSQL = strSQL & " WHERE Status ='Nicht begonnen'"
Case 3
strSQL = strSQL & " WHERE Status ='begonnen'"
Case 4
strSQL = strSQL & " WHERE Status ='abgeschlossen'"
End Select

Me!Liste137.RowSource = strSQL

End Sub

mfg
Jens

 

Das Problem ist die Reihenfolge (ORDER BY kommt nach dem WHERE, außerdem stört das Semikolon am Ende des Ursprungsqlstrings). Ändere den Code wie folgt:

Code:

 

Hallo Arne

Danke für deine super Hilfe.
Es funktioniert genau wie ich es mir vorgestellt habe.

Mit freundlichem Gruß Jens*Smilie