Elite Veteran
Beiträge: 877
  
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-Entwickler-Konferenz: https://www.donkarl.com/?aek
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |
