Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Formular Filter erweitern?
zurück: werte aus tabelle über ein formular in excel exportieren weiter: Datenübergabe an 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
carstiee09
Access Einsteiger


Verfasst am:
22. Apr 2009, 14:12
Rufname:

Formular Filter erweitern? - Formular Filter erweitern?

Nach oben
       Version: Office XP (2002)

Hallo,

habe in meinem formular ein ufo mit folgendem code:
Code:
Private Sub Straße_KeyUp(KeyCode As Integer, Shift As Integer)
    a = FilterNeu("Straße LIKE '" & Straße.Text & "*'", 3)
End Sub
das normale formular wird gefiltert mit diesem code:
Code:
Public Function FilterNeu(FltWert As String, FltArt As Integer)
    If FltArt = 1 Then
        Me!UForm1.Form.Filter = FltWert & " AND " & "Straße LIKE '*" & Me!Straße & "*'"
    End If
        Me!UForm1.Form.Filter = FltWert & " AND " & "PLZ LIKE '*" & Me!Plz & "*'"
    End If
    Me!UForm1.Form.FilterOn = True
    End If
End Function
der filter an sich funktioniert einwandfrei, ich kann jedoch immer nur nach einem kriterium filtern, möchte nach mehrere kriterien gleichzeitig filtern, d.h. erst die straße, danach die plz oder umgekehrt. weiß jedoch leider nicht wie ich den code umschreiben kann.

hättet ihr da eine idee?

gruß Carsten
JörgG
Access-Team


Verfasst am:
22. Apr 2009, 18:33
Rufname:
Wohnort: b. Dresden


AW: Formular Filter erweitern? - AW: Formular Filter erweitern?

Nach oben
       Version: Office XP (2002)

Hallo,

dazu sollte das ausreichen:
Code:
Private Function FilterNeu(Optional ByVal sFltWert As String = "", _
                           Optional ByVal iFltArt As Integer = 0)
    Select Case iFltArt
      Case 0:
        Me!UForm1.Form.Filter = ""
      Case 1:
        Me!UForm1.Form.Filter = "Strasse LIKE '*" & sFltWert & "*' " & _
                            "AND PLZ LIKE '*" & Me!PLZ & "*'"
      Case 2:
        Me!UForm1.Form.Filter = "Strasse LIKE '*" & Me!Strasse & "*' " & _
                            "AND PLZ LIKE '*" & sFltWert & "*'"
    End Select
    Me!UForm1.Form.FilterOn = iFltArt > 0
End Function

Private Sub Strasse_Change()  '"bei Änderung"
    Call FilterNeu(Me!Strasse.Text, 1)
    Me!Strasse.SelStart = 100
End Sub

Private Sub PLZ_Change()      '"bei Änderung"
    Call FilterNeu(Me!PLZ.Text, 2)
    Me!PLZ.SelStart = 100
End Sub

Private Sub Form_Open(Cancel As Integer)
    Call FilterNeu   
End Sub

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
carstiee09
Access Einsteiger


Verfasst am:
23. Apr 2009, 09:41
Rufname:

AW: Formular Filter erweitern? - AW: Formular Filter erweitern?

Nach oben
       Version: Office XP (2002)

Hi Jörg,

danke dir für die Antwort, es funktioniert einwandfrei. wie kann ich denn den Code umstellen so das er mir mehrer Kriterien durchsucht wie z.B. Name, Vorname, Ort uzw. ich ihn erweitern kann.

wäre es auch möglich, dass er mir die daten gleich schon im formular anzeigt welchen name ich suche?

gruß Carsten
JörgG
Access-Team


Verfasst am:
23. Apr 2009, 13:55
Rufname:
Wohnort: b. Dresden

AW: Formular Filter erweitern? - AW: Formular Filter erweitern?

Nach oben
       Version: Office XP (2002)

Hallo,

Du könntest in der Funktion die Case-Anweisung erweitern:
Code:
        Me!UForm1.Form.Filter = "Strasse LIKE '*" & sFltWert & "*' " & _
                                "AND PLZ LIKE '*" & Me!txtPLZ & "*' " & _
                                "AND Ort LIKE '*" & Me!txtOrt & "*' " & _
                           "AND Nachname LIKE '*" & Me!txtNachname & "*' " & _
                            "AND Vorname LIKE '*" & Me!txtVorname & "*'"
das kann ein ganz schöner Programmieraufwand werden, wenn auch noch der AND/OR variabel sein soll Wink

Idea Schau dir auch mal das an: Access Tipps & Tricks: Suchformular in 10 Minuten erstellt

Question
Zitat:
dass er mir die daten gleich schon im formular anzeigt welchen name ich suche?
das verstehe ich jetzt nicht, Du bist doch im Formular und aktivierst den Formularfilter. Die og Textfelder sind doch ungebundene Textfelder zB im Formularkopf, damit sollte das eigentlich so sein!?
_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
carstiee09
Access Einsteiger


Verfasst am:
23. Apr 2009, 14:38
Rufname:


AW: Formular Filter erweitern? - AW: Formular Filter erweitern?

Nach oben
       Version: Office XP (2002)

habe den Code angepasst jedoch zeigt er jetzt mir leider keine Suchergebnisse mehr an, komisch Confused
Zitat:
das verstehe ich jetzt nicht, Du bist doch im Formular und aktivierst den Formularfilter. Die og Textfelder sind doch ungebundene Textfelder zB im Formularkopf, damit sollte das eigentlich so sein!?
damit meine ich, dass wenn ich gleich in die suche geh, er mir sozusagen einen vorschlag gibt nach welchem name ich suche. wie eine art autofeld.

der code schaut so aus:
Code:
Private Sub Straße_Change()  '"bei Änderung"
    Call FilterNeu(Me!Straße.Text, 1)
    Me!Straße.SelStart = 100
End Sub

Private Sub PLZ_Change()      '"bei Änderung"
    Call FilterNeu(Me!Plz.Text, 2)
    Me!Plz.SelStart = 100
End Sub

Private Sub Name_Change()      '"bei Änderung"
    Call FilterNeu(Me!Name.Text, 3)
    Me!Name.SelStart = 100
End Sub

Private Sub Form_Open(Cancel As Integer)
    Call FilterNeu
End Sub

Private Function FilterNeu(Optional ByVal sFltWert As String = "", _
                           Optional ByVal iFltArt As Integer = 0)
    Select Case iFltArt
      Case 0:
        Me!UForm1.Form.Filter = ""
      Case 1:
        Me!UForm1.Form.Filter = "Straße LIKE '*" & sFltWert & "*' " & _
                                "AND PLZ LIKE '*" & Me!Plz & "*' " & _
                                "AND NameLIKE '*" & Me!Name& "*' "

      Case 2:
        Me!UForm1.Form.Filter = "PLZ LIKE '*" & sFltWert & "*' " & _
                                "AND Straße LIKE '*" & Me!Straße & "*' " & _
                                "AND NameLIKE '*" & Me!Name& "*' "
      Case 3:
        Me!UForm1.Form.Filter = "NameLIKE '*" & sFltWert & "*' " & _
                                "AND Straße LIKE '*" & Me!Straße & "*' " & _
                                "AND PLZ LIKE '*" & Me!PLZ & "*' "
                         
    End Select
    Me!UForm1.Form.FilterOn = iFltArt > 0
End Function
JörgG
Access-Team


Verfasst am:
23. Apr 2009, 15:13
Rufname:
Wohnort: b. Dresden

AW: Formular Filter erweitern? - AW: Formular Filter erweitern?

Nach oben
       Version: Office XP (2002)

Hallo,

so wie die Funktion oben steht müsste Dich der Debugger mit Meckermeldungen beglücken Wink

Exclamation Name ist ein reserviertes AC-Wort, ändere das Feld besser in Nachname oder setze es in []-Klammern. Vermeide Leer-/Sonderzeichen, Straße --> Strasse!
Code:
Private Function FilterNeu(Optional ByVal sFltWert As String = "", _
                           Optional ByVal iFltArt As Integer = 0)
    Select Case iFltArt
      Case 0:
        Me!UForm1.Form.Filter = ""
      Case 1:
        Me!UForm1.Form.Filter = "Straße LIKE '*" & sFltWert & "*' " & _
                               "AND PLZ LIKE '*" & Me!PLZ & "*' " & _
                            "AND [Name] LIKE '*" & Me![Name] & "*'"

      Case 2:
        Me!UForm1.Form.Filter = "PLZ LIKE '*" & sFltWert & "*' " & _
                         "AND Straße LIKE '*" & Me!Straße & "*' " & _
                         "AND [Name] LIKE '*" & Me![Name] & "*'"
      Case 3:
        Me!UForm1.Form.Filter = "[Name] LIKE '*" & sFltWert & "*' " & _
                            "AND Straße LIKE '*" & Me!Straße & "*' " & _
                               "AND PLZ LIKE '*" & Me!PLZ & "*'"
    End Select
    Me!UForm1.Form.FilterOn = iFltArt > 0
End Function
Idea Für eine Autovervollständigung kannst Du die Text- durch Kombifelder ersetzen.
_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
carstiee09
Access Einsteiger


Verfasst am:
23. Apr 2009, 15:41
Rufname:

AW: Formular Filter erweitern? - AW: Formular Filter erweitern?

Nach oben
       Version: Office XP (2002)

okay, jetzt haut er mir einen syntax fehler rause Shock

"Die Methode 'Form' für das Objekt '_SubForm' ist fehlgeschlagen. der Code schaut genau aus wie deiner.

bin etwas ratlos
JörgG
Access-Team


Verfasst am:
23. Apr 2009, 18:11
Rufname:
Wohnort: b. Dresden

AW: Formular Filter erweitern? - AW: Formular Filter erweitern?

Nach oben
       Version: Office XP (2002)

Hallo,

für UForm1 ist der Name des Ufosteuerelementes zu verwenden, das Element wo das Ufo drinsteckt, beide Namen können/sollten identisch sein.

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
carstiee09
Access Einsteiger


Verfasst am:
23. Apr 2009, 19:32
Rufname:


AW: Formular Filter erweitern? - AW: Formular Filter erweitern?

Nach oben
       Version: Office XP (2002)

habe es jetzt hinbekommen, nachdem ich alle Namen in der Tabelle, Abfrage, UFO gleich genannt habe. ist ja echt ein Aufwand! bin noch nicht so fit in Access aber lerne jeden Tag mehr und mehr dazu.

Danke Dir für Deine Hilfe
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
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: Formular --> Tabelle ? 6 AlexisM 835 27. Apr 2005, 10:56
AlexisM Formular --> Tabelle ?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrageergebnis als neues Formular anzeigen 2 mila 3034 12. Apr 2005, 12:38
mila Abfrageergebnis als neues Formular anzeigen
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Formular Daten in einer Tabelle speichern? 1 Gast 1017 24. März 2005, 16:24
Willi Wipp Formular Daten in einer Tabelle speichern?
Keine neuen Beiträge Access Tabellen & Abfragen: Formular: Groesse? 1 Gast 732 24. März 2005, 13:35
Sanne Formular: Groesse?
Keine neuen Beiträge Access Tabellen & Abfragen: Automatische Aktualisierung von generiertem Wert im Formular 9 GandalfTCM 1041 09. Feb 2005, 17:40
lothi Automatische Aktualisierung von generiertem Wert im Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Wert übernehmen von einem Formular in das andere 2 mactoolz 1244 03. Feb 2005, 17:46
ralphkr Wert übernehmen von einem Formular in das andere
Keine neuen Beiträge Access Tabellen & Abfragen: mehrer abfragen ein formular 1 romu 719 10. Jan 2005, 15:54
lothi mehrer abfragen ein formular
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit Formular gestalten 3 HBurmei 1977 03. Dez 2004, 22:17
mapet Abfrage mit Formular gestalten
Keine neuen Beiträge Access Tabellen & Abfragen: Add Record - Formular in ein Nebenformular 6 User007 926 27. Okt 2004, 11:49
Gast Add Record - Formular in ein Nebenformular
Keine neuen Beiträge Access Tabellen & Abfragen: Standardwert in Formular aus einer Abfrage? 3 Gast 1777 04. Okt 2004, 12:53
Pfobeman Standardwert in Formular aus einer Abfrage?
Keine neuen Beiträge Access Tabellen & Abfragen: Kriterien aus nem Formular die mich fertig machen!!! 19 Martin von der Bergwiese 2658 24. Aug 2004, 12:53
Lorenz Kriterien aus nem Formular die mich fertig machen!!!
Keine neuen Beiträge Access Tabellen & Abfragen: Komplexe Beziehungen... wie baue ich mein Formular auf 6 Gast 1867 25. Jun 2004, 14:36
Florianbur Komplexe Beziehungen... wie baue ich mein Formular auf
 

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