I'm having a real issue with the below code
strDate = Format(Now, "Short Date")
stLinkCriteria = "[CardID]='" & Me![tCard_ID] & "'"
stSearchDupeCheckIn = "(([DateVisited]=#" & strDate & "#) And ([CardID]='" & Me.tCard_ID.Value & "'))"
Set rsMembers = CurrentDb.OpenRecordset("tblMembers")
Set rsAudit_Log = CurrentDb.OpenRecordset("tblAudit_Log")
strMemberNumber = Null
strFullMember_Number = Null
strTitle = Null
strFirstName = Null
strSurname = Null
strCardID = 0
rsAudit_Log.FindFirst stSearchDupeCheckIn
If rsAudit_Log.NoMatch Then
GoTo ContinueSearch
Else
GoTo EndScript
End If
It errors at the FindFirst with the following message:
"Operation is not supported for this type of object"
I've tried everything to no avail...any help is much appreciated