My Recordset is updating all records instead of the data I want it to pull. What am I doing wrong?
Set rstEmployees = db1.OpenRecordset
("SELECT * " & _
"FROM EmployeeTime " & _
"WHERE [EMPLOYEE_NAME] = '" & [EmpName] & "' AND [EMP_SSN] = '" & [SSN] & "';"
With rstEmployees
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
End With
Set rstEmployees = db1.OpenRecordset
("SELECT * " & _
"FROM EmployeeTime " & _
"WHERE [EMPLOYEE_NAME] = '" & [EmpName] & "' AND [EMP_SSN] = '" & [SSN] & "';"
With rstEmployees
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
End With