August 03, 2021, 17:23:30

Neuigkeiten:

Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!


Abfrage im Formular

Begonnen von martenk, Juli 14, 2021, 09:17:33

⏪ vorheriges - nächstes ⏩

martenk

Hallo Gemeinschaft

ic möchte gerne folgendes erreeichen

ein Formular

oben im kopf drei Felder -
Datum von
Datum Bis
Haustyp

darunter ein Unterformular welches in Abhängigkeit der ausgewählten Felder gefiltert wird

könnt ihr mir dabei helfen


MzKlMu

Hallo,
wozu ein Unterformular?
Du kannst direkt im Formular filtern.
Erst alle anzeigen (oder keine) dann filtern.
Welche Bedingungen sollen es sein?
Von, bis, Haustyp (Zahl oder Text)?
Und oder Oder?
Gruß
Klaus

martenk

dachte so

und ja -

es soll möglich sein

von bis und haus - oder nur haus


martenk

ich habs nun so probiert

Wie "*" & [Formulare]![Statistik]![Objekt]

>=[Formulare]![Statistik]![von] Und <=[Formulare]![Statistik]![bis]

bei Objekt klappt es nach F9 nur der Datumsbereich wird nicht gefiltert

martenk


DF6GL

Juli 14, 2021, 12:37:11 #5 Letzte Bearbeitung: Juli 14, 2021, 12:52:27 von DF6GL
Hallo,

wir eieren im Kreise...



Zitatic möchte gerne folgendes erreeichen

ein Formular

oben im kopf drei Felder -
Datum von
Datum Bis
Haustyp



Formular mit Datenherkunft zu einer Abfrage ohne Parameter oder zu einer Tabelle.

3 ungebundene Textfelder ("txtObjektNr", "txtVon" und "txtBis")

Schalltfläche ("btnFiltern")  mit Klick-Ereignisprozedur:

Sub btnFiltern_Click()

 Me.Filter = " [Objekt-Nr] wie '" & Me!txtObjektNr & "*'  and [(1) am]  between " & Format (nz(Me!txtVon,Date),"\#yyyy-mm-dd\#") & " and " & Format (nz(Me!txtBis,Date),"\#yyyy-mm-dd\#")
 Me.FilterOn =True

End  Sub

martenk

also nicht so, wie ich es jetzt habe

mit hauptformular und unterfom wo ich die daten habe

DF6GL

Hallo,

wenn du auf "Unterformular"  weiterhin beharrst,

dann musst Du Dich auf das UFO-Steuerelement beziehen...

Me!Ufo_Steuerelementname.Filter = .....

martenk

Me![Reservierungen-Unterformular].Filter = " [Objekt-Nr] wie '" & Me!Objekt & "*'  and [(1) am]  between " & Format(Nz(Me!von, Date), "\#yyyy-mm-dd\#") & " and " & Format(Nz(Me!bis, Date), "\#yyyy-mm-dd\#")
dann bekomme ich die Meldung

Objekt unterstützt diese Eiegnschaft oder Methode nicht

DF6GL

Hallo,

zeig mal, was Du jetzt geschrieben hast...

Evtl. fehlt:

Me!Ufo_Steuerelementname.Form.Filter = .....

martenk

  Me![Reservierungen-Unterformular].Form.Filter = " [Objekt-Nr] wie '" & Me!Objekt & "*'  and [(1) am]  between " & Format(Nz(Me!von, Date), "\#yyyy-mm-dd\#") & " and " & Format(Nz(Me!bis, Date), "\#yyyy-mm-dd\#")

nun Fehler

Syntaxfehler fehlender Operator in Abfrageausdruck '[Objekt-Nr] wie 'D8*' and [(1) am] between #2020-05-01# and #2021-07-14#'

DF6GL

Hallo,

ok, übersetzen wir schnell noch ins Englische:

...= " [Objekt-Nr] Like '" & Me!Objekt & "*'  and

martenk

Me![Reservierungen-Unterformular].Form.Filter = " [Objekt-Nr] like '" & Me!Objekt & "*'  and [(1) am]  between " & Format(Nz(Me!von, Date), "\#yyyy-mm-dd\#") & " and " & Format(Nz(Me!bis, Date), "\#yyyy-mm-dd\#")
 Me![Reservierungen-Unterformular].Form.FilterOn = True

filter leider nichts - leeres ufo Datenfeld

DF6GL

Hallo,

gibt es denn überhaupt Daten mit den eingegebenen Werten?

Und sind die Parameter aus der Abfrage entfernt?

martenk

das wars - lieben Dank

nun noch ein letztes - wenn ich eine Summe über die gefilterte Liste über das Feld Miete haben möchte - wie würdest du das machen?