Office: (Office 2010) Datum suche über Formular im Abfrage

Hallo,

anbei eine Beispieldatenbank. So in etwa soll das ganze funktionieren.

VG

 

Hi,
die Tabellenbeziehungen sind falsch, du kannst nicht Textfelder mit Zahlenfeldern verknüpfen. Außerdem solltest du die Fremdschlüssel mit den Autowert-IDs verknüpfen und den IDs eindeutige Namen geben. Die Textfelder "Dept Nr" und "CL Nr" wären dann überflüssig.
Sonderzeichen in den Bezeichnungen sind ebenfalls zu vermeiden.

Wenn man das bereinigt und den fehlenden Code einfügt und anpasst, sollte es wohl klappen mit dem Filtern.

...und "Period" muss natürlich vom Typ Datum sein!

 

Hi,

die Tabellen stammen aus einem ODBC SQL Server. An deren Grundstruktur kann ich nichts mehr ändern.

Ich habe nur eine Beispiel DB erstellt, damit ihr so im groben mal sehen könnt, was ich denn eigentlich vorhabe. Natürlich sind in der eigentlichen Abfrage keine Text- mit Zahlenfeldern verknüft.

Ich muss mit den Tabellen, die mir zur Verfügung stehen, ohnde deren Struktur zu verändern (dafür habe ich auch gar keine Berechtigungen) ein userfreundliches Formular erstellen.

VG
Hatice

 

Und das Datumsfeld ist ebenfalls in Wirklichkeit kein Textfeld?

 

Die Spalte "Period" in der Tabelle ist vom Typen Datum/Uhrzeit.

Die Textfelder DatumVon und DatumBis sind in dem Formular, das ich selbst erstellt habe.

 

Die Sache mit der Vorbelegung des Tages über das Eingabeformat funktioniert nicht, darauf musst du verzichten, oder dir eine andere Eingabemöglichkeit ausdenken.

 

Die Vorbelegeung des Tages sollte nur ein Punkt zur Userfreundlichkeit werden aber wenn das zu kompliziert wird, dann ist es eben so.

Wäre ja schon froh wenn ich div. Parameter auswählen könnte, ein Filter auf das Datum setzen und dann die Daten im Unterformular anzeigen lassen könnte.

 

Dem sollte nun doch nichts mehr im Wege stehen, oder?

 

Anscheinend doch :-(

Fehler beim Kompilieren: Unzulässig oder nicht ausreichend definierter Verweis.

Code:
Private Sub txt_DatumVon_AfterUpdate()

Dim strfilter As String
Dim txt_DatumVon As String
Dim txt_DatumBis As String

txt_DatumVon = Format(Nz(txt_DatumVon, Date), "\#yyyy\-mm\-dd\#")
txt_DatumBis = Format(Nz(txt_DatumBis, Date), "\#yyyy\-mm\-dd\#")

strfilter = "period between" & txt_DatumVon & " and " & txt_DatumBis

Me.abf_Kunde_Debitor_Umsatz_Unterformular.Form .strfilter
Me.abf_Kunde_Debitor_Umsatz_Unterformular.Form.FilterOn = True

 

Code:

Die Syntax musst du schon beachten:
Code:

Edit: Und hier sollte noch ein Leerzeichen hin:
Code:

Computer verzeihen auch kleine Fehler nicht *tongue.gif* .
maike

 

Es ist wirklich zum Mäuse melken.

Bei jeder Ausführung kommen immer wieder neue Fehler hinzu, die natürlich von mir eingearbeitet werden, da ich am rumexperementieren bin, um das Ganze ans Laufen zu bekommen.

Ich verzweifle gerade an div. Punkten.

 

That's life *wink.gif* .
Zerlege die "div. Punkte" in einzelne Fragen und mach ein neues Thema für jede auf.
maike

 

Code:
Private Sub txt_DatumVon_AfterUpdate()

Dim strfilter As String
Dim txt_DatumVon As String
Dim txt_DatumBis As String

txt_DatumVon = Format(Nz(txt_DatumVon, Date), "\#yyyy\-mm\-dd\#")
txt_DatumBis = Format(Nz(txt_DatumBis, Date), "\#yyyy\-mm\-dd\#")

strfilter = "period between " & txt_DatumVon & " and " & txt_DatumBis

Me.abf_Kunde_Debitor_Umsatz_Unterformular.Form.Filter = strfilter
Me.abf_Kunde_Debitor_Umsatz_Unterformular.Form.FilterOn = True

End Sub


Fehlermeldung: Mein Angesprochenes Objekt "abf_Kunde_Debitor_Umsatz_Unterformular" ist entweder nicht auf oder existiert nicht!

HÄh? Wie soll ich das denn verstehen? Existieren tut es und öffnen soll er es ja selbst, wenn er den Filter auf das Datum ausgeführt hat.

Brauche bitte eure Hilfe

Danke

Hatice

 

Also:
1. Zum xten: Ist abf_Kunde_Debitor_Umsatz_Unterformular der Name des Unterformular-Steuerelementes im Hauptformular? Das kann ein anderer Name sein, als der des Unterformulars selbst: DBWiki Unterformular-Steuerelement
2. Das Unterformular kann nur gefiltert werden, wenn es bereits geöffnet ist.

klingt irgendwie so, als wenn das nicht so wäre?
maike

 

1. Ja, mein Unterformular-Steuerelement heisst wirklich "abf_Kunde_Debitor_Umsatz-Unterformular" (siehe Screenshot)

2. Klar ist das Unterformular auf aber ich finde die Fehlermeldung unlogisch.