-
For one thing if you don't have your little duckies in order, ie.,... ',",(,&,space, , ...after pasting that perfect code and here are a few I would like to add (!!###@@**!!) you'll get the dreaded syntax error blah. Well, when I think I finally have it figured out they hit me with the even worse "Data type mismatch in criteria expression".
VB adamantly rejects this-
Dim today As Date
today = Date
Set rs = g_DB.Execute("SELECT FeedBins.Bin, Sum(FeedBins.FeedIn) AS TotalIn, Sum(FeedBins.FeedOut) AS TotalOut, FeedBins.Date " & _
"From FeedBins " & _
"GROUP BY FeedBins.Bin, FeedBins.Date " & _
"Having (((FeedBins.Date)='" & today & "')) " & _
"ORDER BY FeedBins.Bin DESC")
Why?
-
Date parameters need to be bracketed with #, in Access queries.
Try replacing
"Having (((FeedBins.Date)='" & today & "')) " & _
with
"Having (((FeedBins.Date)=#" & today & "#)) " & _
-
This is my change.
"Having (((FeedBins.Date)=#'" & today & "'#)) " & _
This came back.
"Syntax error in date in query expression"
-
Copy JHausmann's code and paste it, and try again.
Your changed code isn't exactly what JHausmann gave to you.
The single quote shouldn't be there.
Joon
-
You are absolutely right.
I'll go get my eyes checked today.