Syntax Error (missing operator) 1

[DYM03]

I keep getting a Syntax Error in the code below but I cannot figure out what is missing. Please help!


db1.Execute "SELECT EmployeeTime " _
& "WHERE [EMPLOYEE_NAME] = '" & [EmpName] & "';"

 

[TonyJollans]

Hi DYM03,

SELECT EmployeeTime FROM ???

Enjoy,
Tony

 

[DYM03]

I didn't paste it all, sorry. But I finally figured out the syntax error. Now I a message saying that I cannot execute a select clause but I need to pull specific records in the recordset. How would I use the select clause or select specific records. I have posted my code below.

Set rstEmployees = db1.OpenRecordset("EmployeeTime", dbOpenDynaset)

db1.Execute "SELECT * FROM EmployeeTime WHERE [EMPLOYEE_NAME] = '" & [EmpName] & "';"

db1.Execute "UPDATE EmployeeTime SET [EMPLOYEE_NAME] = '" & [EmpName] & "', [PERFROM] = '" & [PerFrom] & " ', [PERTO] = '" & [PerTo] & " ', [REG] = '" & [Reg] & "', [OTP] = '" & [Otp] & "', [VAC] = '" & [Vac] & " ', [SCK] = '" & [Sck] & "', [HOL] = '" & [Hol] & "', [LWO] = '" & [Lwo] & "', [LWP] = '" & [Lwp] & "', [TOTAL] = '" & [Total] & "';"

db1.Close

MsgBox EmpName & " Has been updated", vbOKOnly

 

[TonyJollans]

Hi DYM03,

What is the purpose of the SELECT? Are you just trying to specify which records to update? If so, all you need to do is add a WHERE clause to your UPDATE ..

db1.Execute "UPDATE EmployeeTime SET ... & [Total] & "' WHERE [EMPLOYEE_NAME] = '" & [EmpName] & "';"

Enjoy,
Tony