Formular öffnen mit Kriterium Datum

Bernd

unread,

Mar 24, 2009, 2:09:04 PM3/24/09

to

Hallo
ich möchte ein von einem Formular aus (Formular 1) ein anderes Formular
(Daten123HauptFrm) öffnen, dass das zu öffnende Formular auf die Daten
beschränkt, die in dem Feld DatumTat in "Formular 1" vorhanden ist. Das
Datumsfeld in "Daten123HauptFrm" heisst Datum1

Der Code wurde von MS Access erstellt:

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Daten123HauptFrm"

stLinkCriteria = "[Datum1]=" & "#" & Me![DatumTat] & "#"
DoCmd.OpenForm stDocName, , , stLinkCriteria

In Access bekomme ich nun folgende Fehlermeldung:

Syntaxfehler in Datum in Abfrageausdruck '[Datum1]=#24.03.2009#'.

Kann irgend jemand helfen?

Danke im Voraus

Gunter Avenius

unread,

Mar 24, 2009, 2:17:49 PM3/24/09

to

Hallo Bernd,

Bernd schrieb folgendes:

www.donkarl.com?FAQ6.8 geht darauf ein.

Gruß
Gunter
--
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

Bernd

unread,

Mar 24, 2009, 3:35:12 PM3/24/09

to

Danke für die Info. Das habe ich versucht, aber hat mir nicht
weitergeholfen.

"Gunter Avenius" <nos...@avenius.net> schrieb im Newsbeitrag
news:5rc2j0gsxfag$.dlg@ID-300043.user.individual.de...

Peter Doering

unread,

Mar 24, 2009, 4:04:43 PM3/24/09

to

Hallo,

Bernd wrote:
> "Gunter Avenius" ...
>> Bernd schrieb folgendes:

>>
>>> ich möchte ein von einem Formular aus (Formular 1) ein anderes Formular
>>> (Daten123HauptFrm) öffnen, dass das zu öffnende Formular auf die Daten
>>> beschränkt, die in dem Feld DatumTat in "Formular 1" vorhanden ist. Das
>>> Datumsfeld in "Daten123HauptFrm" heisst Datum1
>>>
>>> Der Code wurde von MS Access erstellt:
>>>
>>> Dim stDocName As String
>>> Dim stLinkCriteria As String
>>>
>>> stDocName = "Daten123HauptFrm"
>>>
>>> stLinkCriteria = "[Datum1]=" & "#" & Me![DatumTat] & "#"
>>> DoCmd.OpenForm stDocName, , , stLinkCriteria
>>>
>>> In Access bekomme ich nun folgende Fehlermeldung:
>>>
>>> Syntaxfehler in Datum in Abfrageausdruck '[Datum1]=#24.03.2009#'.
>>>
>>> Kann irgend jemand helfen?
>>
>> www.donkarl.com?FAQ6.8 geht darauf ein.
>

> Danke für die Info. Das habe ich versucht, aber hat mir nicht
> weitergeholfen.

Zeig doch mal, wie du es umgesetzt hast.

Gruss - Peter

--
Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Thomas Möller

unread,

Mar 24, 2009, 4:06:47 PM3/24/09

to

Hallo Bernd,

Bernd schrieb:

>>> ich möchte ein von einem Formular aus (Formular 1) ein anderes Formular
>>> (Daten123HauptFrm) öffnen, dass das zu öffnende Formular auf die Daten
>>> beschränkt, die in dem Feld DatumTat in "Formular 1" vorhanden ist. Das
>>> Datumsfeld in "Daten123HauptFrm" heisst Datum1
>>>
>>> Der Code wurde von MS Access erstellt:
>>>
>>> Dim stDocName As String
>>> Dim stLinkCriteria As String
>>>
>>> stDocName = "Daten123HauptFrm"
>>>
>>> stLinkCriteria = "[Datum1]=" & "#" & Me![DatumTat] & "#"
>>> DoCmd.OpenForm stDocName, , , stLinkCriteria
>>>
>>> In Access bekomme ich nun folgende Fehlermeldung:
>>>
>>> Syntaxfehler in Datum in Abfrageausdruck '[Datum1]=#24.03.2009#'.
>>>
>>> Kann irgend jemand helfen?
>>
>> www.donkarl.com?FAQ6.8 geht darauf ein.
>

> Danke für die Info. Das habe ich versucht, aber hat mir nicht
> weitergeholfen.

Dein Code könnte so aussehen:

Dim strFormName As String
Dim strLinkCriteria As String
Dim strDatum As String

strFormName = "Daten123HauptFrm"
strDatum = Format(Me![DatumTat], "\#yyyy\-mm\-dd\#")

strLinkCriteria = strDatum
DoCmd.OpenForm strFormName, , , strLinkCriteria

HTH
--
Thomas

Homepage: www.Team-Moeller.de

Henry Habermacher

unread,

Mar 24, 2009, 10:12:15 PM3/24/09

to

Hallo Bernd

Bernd wrote:
> ich möchte ein von einem Formular aus (Formular 1) ein anderes Formular
> (Daten123HauptFrm) öffnen, dass das zu öffnende Formular auf die Daten
> beschränkt, die in dem Feld DatumTat in "Formular 1" vorhanden ist. Das
> Datumsfeld in "Daten123HauptFrm" heisst Datum1
>
> Der Code wurde von MS Access erstellt:
>
> Dim stDocName As String
> Dim stLinkCriteria As String
>
> stDocName = "Daten123HauptFrm"
>
> stLinkCriteria = "[Datum1]=" & "#" & Me![DatumTat] & "#"
> DoCmd.OpenForm stDocName, , , stLinkCriteria

Versuch's mal so:
strLinkCriteria = BuildCriteria("Datum1", dbDate, "=" & Me!DatumTat

Gruss
Henry

--
Die NEK1 verpasst? Kein Problem. Details in FAQ
Microsoft MVP Office Access
Keine E-Mails auf Postings in NGs. Danke.
Access FAQ www.donkarl.com

Henry Habermacher

unread,

Mar 25, 2009, 12:10:05 AM3/25/09

to

Hallo Henry

Ich schenke Dir noch ein ).

Henry Habermacher wrote:
> strLinkCriteria = BuildCriteria("Datum1", dbDate, "=" & Me!DatumTat

strLinkCriteria = BuildCriteria("Datum1", dbDate, "=" & Me!DatumTat)

Gruss
Ingrid