Dale Kalsow
dkalsow at yahoo.com
Wed May 23 13:14:07 CDT 2012
Good Afternoon Everyone,
I have the following code that is giving me a Run-time error '3077' Syntax error (missing operator) in expression. on the FindFirst line. Can anyone see why?
strkey = 5/21/2012Heather Hanson
Is access not liking the space in field?
Thanks!
Set dbsDB = DBEngine(0)(0)
Set rstRS = dbsDB.OpenRecordset("tblEmployeeTimes", dbOpenDynaset)
Set rstRsNew = dbsDB.OpenRecordset("qryKeyCardImport", dbOpenDynaset)
rstRsNew.MoveFirst
Do While Not rstRsNew.EOF
strKey = Format(rstRsNew![Time], "Short Date") & Trim(rstRsNew![Employee])
rstRS.FindFirst "[EmployeeTimesID] = " & strKey
If not rstRS.NoMatch Then
With rstRS
.Edit
rstRS![EmployeeTimesOut] = Format(rstRsNew![Time], "Medium Time")
.Update
End With
Else
With rstRS
.AddNew
rstRS![EmployeeTimesID] = strKey
rstRS![EmployeeTimesDate] = Format(rstRsNew![Time], "Short Date")
rstRS![[EmployeeTimesName]] = Trim(rstRsNew![Employee])
rstRS![EmployeeTimesIn] = Format(rstRsNew![Time], "Medium Time")
.Update
End With
End If
rstRsNew.MoveNext
Loop