Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
verschiedene Filter gleichzeitig anwenden
Gehe zu Seite Zurück  1, 2
zurück: Logo mit transparentem Hintergrung in Formular zeigen weiter: Filter in einem Formular Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Willi Wipp
Moderator


Verfasst am:
05. Feb 2009, 15:44
Rufname:
Wohnort: Raum Wiesbaden

Re: verschiedene Filter gleichzeitig anwenden (VI) - Re: verschiedene Filter gleichzeitig anwenden (VI)

Nach oben
       Version: Office 2003

Hi flobuster,

eventuell hilft Dir ja schon ein Blick in das Thema Abhaengige Kombinationsfelder weiter?

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
KasperX
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. Feb 2009, 16:21
Rufname:


AW: verschiedene Filter gleichzeitig anwenden - AW: verschiedene Filter gleichzeitig anwenden

Nach oben
       Version: Office 2003

Hei Leute,

erstmal VIELEN Dank!

Wollte heute genau sowas umsetzen - und ihr habt mir seeehr viel Zeit gespart. Razz

@Willi: Du Coder Gott. Geniale Umsetzung mit dem Nz Vergleich und dem Mid - ich selbst haette mich in ewigen if Schleifen verfangen und hunderte Stringvergleiche durchgeführt. Und das entfernen der Leerzeichen mit Trim - Super!

Allerdings habe ich den Code noch etwas erweitert, damit der Filter-String wirklich zusammengesetzt wird. In Willis Version wird immer nur nach dem letzten Feld gefiltert, da die Variable strFilter immer überschrieben und nicht erweitert wird.

Zudem hab ich mal ne MsgBox angefügt, um den String angezeigt zu bekommen (zwecks Debugging).
Diese ist in der entgültigen Version zu löschen.
Code:
Private Sub Srch_Start_Click()
    Dim str_Srch_Kennzeichen As String
    Dim str_Srch_Typ As String
    Dim str_Srch_Klasse As String
    Dim str_Filter As String
 
    Me![Srch_Start].SetFocus
    str_Srch_Kennzeichen = "*" & Me![Srch_Kennzeichen] & "*"
    str_Srch_Typ = "*" & Me![Srch_Typ] & "*"
    str_Srch_Klasse = "*" & Me![Srch_Klasse] & "*"
    If Trim(Nz(Me![Srch_Kennzeichen], "")) <> "" Then
        str_Filter = str_Filter & _
                     " AND [Kennzeichen] Like '" & str_Srch_Kennzeichen & "'"
    End If
    If Trim(Nz(Me![Srch_Typ], "")) <> "" Then
        str_Filter = str_Filter & " AND [Typ] Like '" & str_Srch_Typ & "'"
    End If
    If Trim(Nz(Me![Srch_Klasse], "")) <> "" Then
        str_Filter = str_Filter & _
                     " AND [Klasse] Like '" & str_Srch_Klasse & "'"
    End If
    If str_Filter = "" Then
        Me.Filter = ""
        ' Falls Suchfelder leer sind dann keinen Filter setzen
        Me.FilterOn = False
      Else
        str_Filter = Mid$(str_Filter, 6)   ' Mid um das erste AND zu entfernen
        Me.Filter = str_Filter
        Me.FilterOn = True
    End If
    Me![Srch_Start].SetFocus
    MsgBox str_Filter
End Sub
Kurze Erklärung zu
Code:
    str_Srch_Kennzeichen = "*" & Me![Srch_Kennzeichen] & "*"
Duch die Sternchen vor und nach dem Suchtext sucht der Filter nach der Zeichenkette irgendwo im jeweiligen Feld des Datensatzes. [Vergleichbar mit Wildcards in der Windowssuche].

BSP: Suche nach 12 bei Kennzeichen gibt folgende Datensätze aus:

M-AB 12
BGL-BC 312
1234

Grüße und vielen Dank Exclamation

KasperX
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite Zurück  1, 2
Diese Seite Freunden empfehlen

Seite 2 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Filter im Listenfeld aus Abfrage 1 hansemann2510 686 23. Aug 2007, 21:22
hansemann2510 Filter im Listenfeld aus Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Kriterien aus 2 Spalten gleichzeitig 4 waldi26 701 07. Jul 2007, 13:11
waldi26 Kriterien aus 2 Spalten gleichzeitig
Keine neuen Beiträge Access Tabellen & Abfragen: Query Filter mit leerem Feld ignorieren 8 blabub 1005 26. Jun 2007, 14:53
Gast Query Filter mit leerem Feld ignorieren
Keine neuen Beiträge Access Tabellen & Abfragen: Text in zwei Spalten gleichzeitig suchen 11 Gormigust 811 14. Mai 2007, 19:35
KlausMz Text in zwei Spalten gleichzeitig suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Eingabe neuer Datensätze in mehrere Tabellen gleichzeitig? 1 matof 603 15. März 2007, 19:26
Thomas2007 Eingabe neuer Datensätze in mehrere Tabellen gleichzeitig?
Keine neuen Beiträge Access Tabellen & Abfragen: Wareneingang: letzes Datum + Menge gleichzeitig abfragen 2 Boris 805 13. Dez 2006, 13:19
Boris Wareneingang: letzes Datum + Menge gleichzeitig abfragen
Keine neuen Beiträge Access Tabellen & Abfragen: Zwei verschiedene Datentypen Joinen 3 DaGunMan 1010 30. Aug 2006, 08:08
lothi Zwei verschiedene Datentypen Joinen
Keine neuen Beiträge Access Tabellen & Abfragen: Recordset Filter 1 Gast 5164 03. Aug 2006, 08:40
SGast Recordset Filter
Keine neuen Beiträge Access Tabellen & Abfragen: verschiedene Daten in einem Feld ausgeben 4 JensG 698 02. Aug 2006, 09:54
JensG verschiedene Daten in einem Feld ausgeben
Keine neuen Beiträge Access Tabellen & Abfragen: Filter für Anzeigeformular 2 chris1337 687 10. Mai 2006, 08:27
chris1337 Filter für Anzeigeformular
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit variablem Filter A2K 5 Gast 983 18. Apr 2006, 11:52
Gast Abfrage mit variablem Filter A2K
Keine neuen Beiträge Access Tabellen & Abfragen: eine spalte - verschiedene Dezimalstellen 7 Gast 807 06. Apr 2006, 15:00
SGast eine spalte - verschiedene Dezimalstellen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editor Forum