Einen Filter aus mehreren Kombinationsfeldern generieren

13/09/2007 - 20:02 von Günter Gerold | Report spam
Hallo,

um eine Tabelle in einem Formular nach mehreren Kriterien Filtern zu können,
habe ich mehrere Kombofelder zum Auswàhlen der Kriterien erstellt.

Um das Ganze zu einem Filter zusammenzubasteln habe ich folgendes
ausgeknobelt:

Dim strFilter As String

If Kombinationsfeld1.Value <> "" Then
strFilter = "[feld1] =" & "'" & Nz(Kombinationsfeld1.Value) & "' AND "
End If
If Kombinationsfeld2.Value <> "" Then
strFilter = strFilter & "[spedition] =" & "'" &
Nz(Kombinationsfeld2.Value) & "' AND "
End If

'und soweiter

strFilter = Left(strFilter, Len(strFilter) - 5) 'Den String um das letzte
" AND " kürzen
Forms![frmErfasserAuswertung].Filter = strFilter
Forms![frmErfasserAuswertung].FilterOn = True

vielleicht kanns mal jemand gebrauchen...
 

Lesen sie die antworten

#1 Karl Donaubauer
13/09/2007 - 20:15 | Warnen spam
Günter Gerold wrote:
um eine Tabelle in einem Formular nach mehreren Kriterien Filtern zu
können, habe ich mehrere Kombofelder zum Auswàhlen der Kriterien
erstellt.

Um das Ganze zu einem Filter zusammenzubasteln habe ich folgendes
ausgeknobelt:

Dim strFilter As String

If Kombinationsfeld1.Value <> "" Then
strFilter = "[feld1] =" & "'" & Nz(Kombinationsfeld1.Value) & "' AND
"
End If
If Kombinationsfeld2.Value <> "" Then
strFilter = strFilter & "[spedition] =" & "'" &
Nz(Kombinationsfeld2.Value) & "' AND "
End If

'und soweiter

strFilter = Left(strFilter, Len(strFilter) - 5) 'Den String um das
letzte " AND " kürzen
Forms![frmErfasserAuswertung].Filter = strFilter
Forms![frmErfasserAuswertung].FilterOn = True

vielleicht kanns mal jemand gebrauchen...



Wenn es viele Kombis sind, dann würde ich eine Schleife
durch alle veranstalten (ca. wie in www.donkarl.com?FAQ6.5).
Dann muss man den stringbastelnden Code nur einmal schreiben.

cu
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com + Info zur
Access-Entwickler-Konferenz (AEK10) im Oktober in Nürnberg

Ähnliche fragen