Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: lutschi83 am Dezember 03, 2015, 11:06:04

Titel: Filter auf Unterformular setzen
Beitrag von: lutschi83 am Dezember 03, 2015, 11:06:04
Hallo Zusammen,

ich benötige mal wieder eure Hilfe!
Ich habe ein Formular "Auswertung" mit einem Unterformular "Auswertung_ufa" in der Datenblattansicht, das aus einer Abfrage resultiert. Wenn ich das Formular jetzt anzeige, bekomme ich natürlich alle Werte der Auswertung angezeigt. Nun möchte ich mit Hilfe der Textfelder aus dem Formular "Auswertung" filtern. Dabei möchte ich das so variabel gestalten, dass verschiedene Textfelder ausgefüllt werden können um den gewünschten Datensatz zu erhalten.
Anbei sende ich euch ein Bild von meinem bisherigen Test. Leider funktioniert dies nicht.
Ich hoffe das ist machbar und ihr könnt mir helfen!
Vielen Dank schon einmal im Voraus!
Grüße
Titel: Re: Filter auf Unterformular setzen
Beitrag von: DF6GL am Dezember 03, 2015, 11:20:26
Hallo,

Leider funktioniert dies nicht.  ??

Schon 100000 Mal nachgefragt:

WAS funktioniert WO und WANN nicht?

Gibt es FEHLERMELDUNGEN ?

Wird in VBA-Editor (Code) etwas markiert?

Ist "....Auswertung_ufa...."  der Name des UFO-Steuerelementes?



und weiterhin:  Code bitte als Text hierher kopieren und nicht als Bild einbringen!

Tipps: 
NZ-Funktion bei Textfeldern benutzen.
ME als Referenz auf das akt. Form benutzen --> Me!Auswertung_ufa.Form.Filter =...
Haltepunkt setzen und Code (Inhalt der Variablen) untersuchen  ---> selber debuggen
Kriteriums-String mit Debug.Print im Direktfenster ausgeben und untersuchen
Titel: Re: Filter auf Unterformular setzen
Beitrag von: lutschi83 am Dezember 03, 2015, 11:35:58
Ja, Entschuldigung für die schlechte Erläuterung meiner Frage. Es gibt keine Fehlermeldung. Es macht einfach nichts, wenn ich auf filtern klicke.
Private Sub Filter_Click()

Dim strVon As String
Dim strBis As String
Dim strKrit As String

    If IsDate(Me.txtvon) And IsDate(Me.txtbis) Then
        strVon = Format(Me!txtvon, "\#yyyy\-mm\-dd\#")
        strBis = Format(Me!txtbis, "\#yyyy\-mm\-dd\#")
        strKrit = "Datum Between " & strVon & " AND " & strBis
        Forms!Auswertung!Auswertung_ufa.Form.Filter = strKrit
        'Debug.Print strKrit
        Forms!Auswertung!Auswertung_ufa.Form.FilterOn = True
       
       Else
        Forms!Auswertung!Auswertung_ufa.Form.Filter = ""
        Forms!Auswertung!Auswertung_ufa.Form.FilterOn = False
    End If


End Sub

Hab jetzt hinbekommen, dass ich das Datum filtern kann. Aber wie bekomme ich hin, dass ich in diverse Textfelder Kriterien eingeben kann, die dass dann filtern?


Titel: Re: Filter auf Unterformular setzen
Beitrag von: MaggieMay am Dezember 03, 2015, 11:50:52
Sorry, aber was heißt denn das nun schon wieder:
Zitatdass ich in diverse Textfelder Kriterien eingeben kann, die dass dann filtern?

Wenn du diverse Filterkriterien miteinander kombinieren möchtest, empfehle ich die Musterlösung "1. Suchformular in 10 Minuten..." aus dem Forum office-loesung (http://www.office-loesung.de/ftopic13271_0_0_asc.php).
Titel: Re: Filter auf Unterformular setzen
Beitrag von: lutschi83 am Dezember 03, 2015, 12:29:28
Ich möchte halt mehrere Filter kombinieren.
Entschuldigt bitte meine laienhafte Ausdrucksweise. Ich bin leider kein DB-Spezialist, sondern blutiger Anfänger.
Kann ich das an meinem geposteten Code nicht anfügen?
Titel: Re: Filter auf Unterformular setzen
Beitrag von: DF6GL am Dezember 03, 2015, 13:21:03
Hallo,

das hat mit Spezialist nichts zu tun. Probleme müssen einfach klar, präzise und vollständig beschrieben werden.

Bemühe mal die Forensuche , z. B. nach "Suchformular" und Du kannst Dich an Beispielen vergnügen...  ;)