[AccessD] FindFirst Error

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


More information about the AccessD mailing list