Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Dlookup Datum: größer als [x] und kleiner als [y]

368 views
Skip to first unread message

Tobias Schlecht

unread,
Jun 9, 2005, 1:58:35 PM6/9/05
to
Hi NG,

trotz einiger vielversprechender Google-Ergebnisse hab ich die wirkliche
Lösung noch nicht gefunden, oder stelle mich schlicht zu doof an.

Habe die Formularfelder (Datumsformat)

[Beginn]

[Ende]

Auf Klick soll nun geprüft werden ob in der Tabelle "TabAT" im Feld ATDATE
(Datumsformat) ein Datum gespeichert ist, dass zwischen Beginn und Ende
liegt.

Wenn "ja" soll ein Bericht geöffnet werden

Wenn "nein" eine msgbox erscheinen

Meine bisherigen Versuche mit der Dlookup-Funktion führten leider nicht zu
Erfolgen, was möglicherweise auch daran liegt, dass ich die Kriterien
(Format...) nicht richtig angegeben habe.

Eher unbedarft was VBA angeht, wäre ich über Lösungsmöglichkeiten für
Dummies sehr dankbar.

Vielen Dank schon mal,

Tobias

Reiner Wahnsiedler

unread,
Jun 9, 2005, 5:01:05 PM6/9/05
to
Hallo,

ungetestet: DLookup("ATDATE","TABAB","ATDATE>#" & me.beginn & "# AND #" &
me.Ende /& "#")

HTH,

Reiner Wahnsiedler
(Dipl. Inform. TU)

-------------------------------------------
Reiner Wahnsiedler Datenbanken
und Projektmanagement GmbH
Thalkirchdorfer Weg 10
86199 Augsburg
Tel.: 0821 / 409546
Fax: 0821 / 409548
www.wahnsiedler.de
in...@wahnsiedler.de
"Tobias Schlecht" <t.sch...@web.de> schrieb im Newsbeitrag
news:e9QMszR...@TK2MSFTNGP09.phx.gbl...

Peter Doering

unread,
Jun 9, 2005, 7:02:39 PM6/9/05
to
Hallo,

Reiner Wahnsiedler wrote:
> "Tobias Schlecht" <t.sch...@web.de> schrieb im Newsbeitrag
> news:e9QMszR...@TK2MSFTNGP09.phx.gbl...
>>

>> Habe die Formularfelder (Datumsformat)
>>
>> [Beginn]
>>
>> [Ende]
>>
>> Auf Klick soll nun geprüft werden ob in der Tabelle "TabAT" im Feld ATDATE
>> (Datumsformat) ein Datum gespeichert ist, dass zwischen Beginn und Ende
>> liegt.
>>
>> Wenn "ja" soll ein Bericht geöffnet werden
>>
>> Wenn "nein" eine msgbox erscheinen
>>
>> Meine bisherigen Versuche mit der Dlookup-Funktion führten leider nicht zu
>> Erfolgen, was möglicherweise auch daran liegt, dass ich die Kriterien
>> (Format...) nicht richtig angegeben habe.
>>
>> Eher unbedarft was VBA angeht, wäre ich über Lösungsmöglichkeiten für
>> Dummies sehr dankbar.
>

> ungetestet: DLookup("ATDATE","TABAB","ATDATE>#" & me.beginn & "# AND #" &
> me.Ende /& "#")

Das Datum muss wie in SQL-Statements ueblich formatiert werden, siehe FAQ
6.8 (www.donkarl.com). Danach koennte der Aufruf etwa so aussehen:

If IsNull(DLookup("ATDATE","TABAB","ATDATE Between " & _
Format(me.beginn, "\#yyyy\-mm\-dd\#") & " And " & _
Format(me.Ende, "\#yyyy\-mm\-dd\#"))) Then
MsgBox "Nix da"
Else
DoCmd.OpenReport ...
End If

(ebenfalls Luftcode).

Gruss - Peter

--
Ich beantworte keine Fragen per Email.
Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Tobias Schlecht

unread,
Jun 10, 2005, 1:26:53 AM6/10/05
to
Vielen Dank!!!
Luftcode funktioniert!

Beste Grüße,
Tobias

"Peter Doering" <nos...@doering.org> schrieb im Newsbeitrag
news:3gs04fF...@individual.net...

0 new messages