Good Day to all and Thank you in Advance,
I am stumped on why I am receiving the following error message.
The select statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation in incorrect?
My code is as follows:
stSQL = "SELECT Sum(CheckStubInfo.[BF Amt]) AS [SumOfBF Amt], Sum(CheckStubInfo.[Protein Amt]) AS [SumOfProtein Amt], Sum(CheckStubInfo.[OS Amt]) AS [SumOfOS Amt], Sum(CheckStubInfo.[PPD Amt]) AS [SumOfPPD Amt], Sum(CheckStubInfo.[SCC Amt]) AS [SumOfSCC Amt], Sum([BF Amt])+Sum([Protein Amt])+Sum([OS Amt])+Sum([PPD Amt])+Sum([SCC Amt]) AS MilkValue, Round(Sum([BF Lbs])/Sum([Milk LBS])*100,4) AS AvgBF, Round(Sum([Protein Lbs])/Sum([Milk LBS])*100,4) AS AvgPro, Round(Sum([OS Lbs])/Sum([Milk LBS])*100,4) AS AvgOS, Sum(CheckStubInfo.[Milk Lbs]) AS [SumOfMilk Lbs], Sum(CheckStubInfo.[Gross Pay]) AS [SumOfGross Pay]" _
& "Round(Sum([Gross Pay])/Sum([Milk Lbs])*100,4) AS [Avg Price], Sum(CheckStubInfo.[AdditionalPayments]) AS MiscAdj, Sum(CheckStubInfo.[Quality Amt]) AS Quality, Sum(CheckStubInfo.[Volume Amt]) AS Vol, Sum(CheckStubInfo.[Pickup Amt]) AS HaulChrg, Sum(CheckStubInfo.[Purchases]) AS Purch, Sum(CheckStubInfo.[Deductions]) AS Deduct, Sum(CheckStubInfo.[Estimated Check]) AS [Guess Check], Sum(CheckStubInfo.[Net Check]) AS [NetChk] FROM CheckStubInfo WHERE CheckStubInfo.Date = #" & DLookup("LastDay", "SetPayrollDates") & "# AND CheckStubInfo.Grade = 'A' ;"
I am stumped on why I am receiving the following error message.
The select statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation in incorrect?
My code is as follows:
stSQL = "SELECT Sum(CheckStubInfo.[BF Amt]) AS [SumOfBF Amt], Sum(CheckStubInfo.[Protein Amt]) AS [SumOfProtein Amt], Sum(CheckStubInfo.[OS Amt]) AS [SumOfOS Amt], Sum(CheckStubInfo.[PPD Amt]) AS [SumOfPPD Amt], Sum(CheckStubInfo.[SCC Amt]) AS [SumOfSCC Amt], Sum([BF Amt])+Sum([Protein Amt])+Sum([OS Amt])+Sum([PPD Amt])+Sum([SCC Amt]) AS MilkValue, Round(Sum([BF Lbs])/Sum([Milk LBS])*100,4) AS AvgBF, Round(Sum([Protein Lbs])/Sum([Milk LBS])*100,4) AS AvgPro, Round(Sum([OS Lbs])/Sum([Milk LBS])*100,4) AS AvgOS, Sum(CheckStubInfo.[Milk Lbs]) AS [SumOfMilk Lbs], Sum(CheckStubInfo.[Gross Pay]) AS [SumOfGross Pay]" _
& "Round(Sum([Gross Pay])/Sum([Milk Lbs])*100,4) AS [Avg Price], Sum(CheckStubInfo.[AdditionalPayments]) AS MiscAdj, Sum(CheckStubInfo.[Quality Amt]) AS Quality, Sum(CheckStubInfo.[Volume Amt]) AS Vol, Sum(CheckStubInfo.[Pickup Amt]) AS HaulChrg, Sum(CheckStubInfo.[Purchases]) AS Purch, Sum(CheckStubInfo.[Deductions]) AS Deduct, Sum(CheckStubInfo.[Estimated Check]) AS [Guess Check], Sum(CheckStubInfo.[Net Check]) AS [NetChk] FROM CheckStubInfo WHERE CheckStubInfo.Date = #" & DLookup("LastDay", "SetPayrollDates") & "# AND CheckStubInfo.Grade = 'A' ;"