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