Frage zum Zeitplan / Doppelbelegung
Karl Donaubauer
Gesendet: 30.01.14 19:31
Betreff: RE: Frage zum Zeitplan / Doppelbelegung



Elite Veteran

Beiträge: 793
500100100252525
Ort: Wien
Hallo!

Hagen - 30.01.14 19:01

Diese Abfrage hat funktioniert, allerdings war die Tabelle leer:

SELECT a.RmBez, a.RSStart, a.RSEnde, a.RSId, a.RSStatus, b.KDNachname
FROM tblReservierung AS a LEFT JOIN tblKunde AS b ON a.KDId = b.KDId
WHERE (((a.RSStart)<=#01-01-2014#) AND ((a.RSEnde)>=#01-31-2014#));

Bei der Abfrage mit " " kam: Kriterien in Abfrage unverträglich


Du kannst versuchen, den Code folgendermaßen zu ändern:

Füge am Anfang von procFill nach diese Zeile:

Dim blnForm As Boolean

folgende Zeile hinzu:

Dim strStart As String, strEnd As String

nach diesen beiden Zeilen:

lngStart = obj!txtVon
lngEnd = obj!txtBis

fügst du hinzu:

strStart = Format(obj!txtVon, "\#mm\-dd\-yyyy\#")
strEnd = Format(obj!txtBis, "\#mm\-dd\-yyyy\#")

Diese zwei Zeilen:

" WHERE a.RSStart<=" & lngEnd & _
" And a.RSEnde >" & lngStart & _

ersetzt du durch:

" WHERE a.RSStart<=" & strEnd & _
" And a.RSEnde >" & strStart & _

Achte beim Testen darauf, ob eh nicht Tag und Monat verwechselt werden o.ä.

-----
Servus
Karl
*********
Access News: https://youtu.be/XMOHBSudo-U
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Top of the page Bottom of the page