ExpressMan1
asked on
Access VBA Syntax error Update query between 2 dates
Getting a Syntax error. I am trying to update a field based on the date on a form. Forms!frmRateTool!CurrentD ate or Me.CurrentDate (Not sure which one to use). Not sure how to write the "Between line.
Dim db As DAO.Database
Dim qdfFuel As DAO.QueryDef
Dim strSQLFuel As String
Dim strDb As String
strDb = "C:\Users\Austin\Documents \Access Development\RateTool.accdb "
strSQLFuel = "UPDATE (tblFedExServices INNER JOIN tblFuel " & _
"ON tblFedExServices.FuelServi ceID = tblFuel.FuelServiceID) INNER JOIN tblRate " & _
"ON (tblFuel.OriginCountryID = tblRate.OriginCountryID) " & _
"AND (tblFedExServices.ServiceI D = tblRate.ServiceID) SET tblRate.FuelPercentage = tblFuel.[FuelPercentage] " & _
"WHERE " & Chr(34) & Me.CurrentDate & Chr(34) & _
"Between # & [tblFuel].[StartDate] & # And # & [tblFuel].[EndDate] & #;"
Set db = OpenDatabase(strDb)
Set qdfFuel = db.CreateQueryDef("", strSQLFuel)
qdfFuel.Execute
Dim db As DAO.Database
Dim qdfFuel As DAO.QueryDef
Dim strSQLFuel As String
Dim strDb As String
strDb = "C:\Users\Austin\Documents
strSQLFuel = "UPDATE (tblFedExServices INNER JOIN tblFuel " & _
"ON tblFedExServices.FuelServi
"ON (tblFuel.OriginCountryID = tblRate.OriginCountryID) " & _
"AND (tblFedExServices.ServiceI
"WHERE " & Chr(34) & Me.CurrentDate & Chr(34) & _
"Between # & [tblFuel].[StartDate] & # And # & [tblFuel].[EndDate] & #;"
Set db = OpenDatabase(strDb)
Set qdfFuel = db.CreateQueryDef("", strSQLFuel)
qdfFuel.Execute
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Perfect! Thank You Gustav
You are welcome!
/gustav
/gustav
"Between [tblFuel].[StartDate] And [tblFuel].[EndDate];"
Ron