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

Hallo,

benötige wieder mal eure Hilfe.

Ich möchte im Formular in einem Textfeld ein "Datum von" und ein "Datum bis" eingeben und nach diesem soll, nach Aktualisierung, in einer Spalte in einer Abfrage (ist als Unterformular auch im Hauptformular drin) gesucht und dann im Unterformular angezeigt werden.

Es sind ungebundene Textfelder. Eingabeformat ("28".00.0000;;_) weil ich den 28. immer vorgeben will.

Standardwert: =[abf_Kunde_Debitor_Umsatz-Unterformular].[Formular]![Period].[NachAktualisierung]

Gebe ich das Datum in dem Feld ein, bekomme ich aber nur die Fehlermeldung, dass ich einen Wert eingegeben habe, der für dieses Feld nicht gültig ist.

Wie bekomme ich diese Meldung weg und wie komme ich an mein Ziel nach diesen Daten zu suchen und sie dann im Unterformular anzeigen zu lassen?

Könnt ihr mir bitte weiterhelfen?

Vielen Dank im Voraus
Hatice

:)

 

Moin,
hast du evtl. für das Feld unter Format "Datum" eingestellt? Nimm das wieder raus und lasse nur das Eingabeformat.
maike

 

Hi,

Nein das Format Feld ist leer.

Hab jetzt die beiden Felder gelöscht und neu angelegt.jetzt kann ich datum eingeben ohne das eine Fehlermeldung kommt.

Wie aber bekomme ich es hin das er mir dann die Ergebnisse im unterformular anzeigt?

Vg
Hatice

 

Indem du einen Filter setzt, z.B. ?

Code:

maike

 

Hallo,

der Standardwert ist ungültig und macht auch keinen Sinn.

 

Das ist nun mein Code und der Standardwert ist auch weg.

Private Sub txt_DatumBis_AfterUpdate()

Dim strFilter As String
Dim strDatumVon As String
Dim strDatumBis As String

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

strFilter = "IrgendeinDatum between " & strDatumVon & " and " & strDatumBis
Me!Period.Form.Filter = strFilter
Me!Period.Form.FilterOn = True

End Sub

Bekomme aber die Meldung das das Feld period nicht gefunden werden kann

 

Dann schau nach wie das Unterformular-Steuerelement tatsächlich heißt.

Und wie heißt das Feld das du filtern willlst - doch sicher nicht "IrgendeinDatum", oder?

 

Die beiden Sachen habe ich noch ersetzt allerdings bleiben die Felder trotzdem leer.

Vg Hatice

 

Hast du "IrgendeinDatum" mit dem Namen des Feldes in der Tabelle ersetzt?
Der Formularfeldname - sofern davon verschieden- wäre hier nämlich falsch.
Wenn du dir den Filter mit Debug.Print mal ausgeben lässt, wie sieht der dann aus?
Eine Abfrage auf die Datenherkunft des Formulars mit dem Filter als Kriterium liefert Datensätze?
maike

 

irgendeindatum habe ich mit "Period" ersetzt. das ist der Name des Feldes in der Tabelle.
die Formular Feldhasen sind darumbinde und Datumbis. in diese möchte ich je zwei Daten einsetzen nach denen, nach dem aktualisieren, gesucht und die entsprechenden Daten im unterformular ausgegeben werden sollen.

ich wollte eben nach euren Ratschlägen keine Parameter abfragenden der abfragebmavhen sondern nur über das Formular selbst.

außerdem möchte ich im Formular über kombinationsfeldern nach z.B. Kundenummer etc. suchen. aber auch dieses Problem habe ich noch nicht lösen können. morgen muss ichbezogner machen und endlich eine Lösung finden.

neue Woche neues Glück :-/

vg

 

Und das Unterformular-Steuerelement im Hauptformular heißt auch Period *confused.gif* ?

Das Unterformular-Steuerelement ist der große Kasten rund um das Unterformular *wink.gif* , der sich auf dem Hauptformular befindet, nicht das Steuerelement auf dem Unterformular.
Was hat denn Debug.Print ergeben und was der Test mit der Abfrage?
maike

 

Die Formularfelder haben folgende Steuerelementinhalte:

DatumVon: (Textformat: Nur-Text, Eingabeformat: "28".00.0000;;_)
=[abf_Kunde_Debitor_Umsatz-Unterformular].[Formular]![Period].[NachAktualisierung]

DatumBis: (Textformat: Nur-Text, Eingabeformat: "28".00.0000;;_)
=[abf_Kunde_Debitor_Umsatz-Unterformular].[Formular]![Period].[NachAktualisierung]

Und dann hängen bei beiden nach Aktualisierung noch folgende Ereignisprozeduren an:

Private Sub txt_DatumBis_AfterUpdate()

Dim strFilter As String
Dim strDatumVon As String
Dim strDatumBis As String

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

strFilter = "Period BETWEEN " & strDatumVon & " and " & strDatumBis

Me!abf_Kunde_Debitor_Umsatz_Unterformular.Form.Filter = strFilter
Me!abf_Kunde_Debitor_Umsatz_Unterformular.Form.FilterOn = True

End Sub

Private Sub txt_DatumVon_AfterUpdate()

Dim strFilter As String
Dim strDatumVon As String
Dim strDatumBis As String

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

strFilter = "Period BETWEEN " & strDatumVon & " and " & strDatumBis

Me!abf_Kunde_Debitor_Umsatz_Unterformular.Form.Filter = strFilter
Me!abf_Kunde_Debitor_Umsatz_Unterformular.Form.FilterOn = True

End Sub

Hatice

 

Hi, Code:

ich hatte schonmal darauf hingewiesen, dass dies kein gültiger Inhalt ist, das gilt sowohl für den Standardwert als auch für den Steuerelementinhalt.

Was bezweckst du damit? Wie sieht die dort angesprochene Ereignisprozedur aus?

 

Der Zweck ist in meiner letzten Antwort beschrieben.

Ich habe hier immer wieder gesagt bekommen, dass ich die Finger von den Parameterabfragen in der Hauptabfrage lassen soll.

Jetzt versuche ich es übers Formular aber anscheinend mache ich mehr Fehler als sonst was *frown.gif*

 

Meine Fragen sehe ich da nicht beantwortet. Am besten du lädst mal eine Beispiel-DB hoch, dann kann man sich selbst ein Bild machen.