Find Record in Access using .FindFirst with Multiple Criteria

[dloskot]

I have spent several hours trying to debug this code. I have not been able to find the answer anywhere.
I have an Access DataBase I am running Access 2010. I want to search the DB to see if a record with several criteria already exists.
I am able to make it work with a single criteria but as soon as I put in an AND or OR I get one or more errors. In the below code the line with the And in it does not work but if I run either of the two lines below it, it works fine.
I hope you can help me .
Thanks Doug

With KAH_Record
'The first line DOES NOT work, the next two lines do work.  I would like to be able to do
'about 4 different criteria at one.'
    .FindLast "[Payment Method]= '" & PayMethod & "'" And "[EMail]= '" & EMail & "'"
    .FindLast "[Payment Method]= '" & PayMethod & "'"
    .FindLast "[EMail]= '" & EMail & "'"
    
        
        If .NoMatch = False Then
            MsgBox "Found Match"
            'Get_Record_Request = False
            'Exit Function
        Else
        MsgBox "Not Found"
        End If

 

[BigBeachBananas]

How about formatting the date

.FindLast "[Payment Method]='" & PayMethod & "' AND [EMail]='" & EMail & "' AND [Amount Donated]=" & Amount_Donated & " AND [Event Date]=#" & Format(Event_Date, "yyyy-mm-dd") & "#"

 

[dloskot]

Formated the date but still having Type Mismatch error. The first line gets the Type Mismatch error, but the second line works fine.

 .FindLast "[Payment Method]='" & PayMethod & "' AND [EMail]='" & EMail _
       & "' AND [Amount Donated]=" & Amount_Donated And "[Event Date]= #" & Format(Event_Date, "mm-dd-yyyy") & "#"
    
    .FindLast "[Event Date]= #" & Format(Event_Date, "mm-dd-yyyy") & "#"

 

[Micron]

You are missing an ampersand. Was that line not shown in red?

That is an automatic sign that there is something wrong with the concatenation or syntax.
You are passing Amount_Donated And as your value/reference. Try

strFind = "[Payment Method]='" & PayMethod & "' AND [EMail]='" & Email _
       & "' AND [Amount Donated]=" & Amount_Donated & " And [Event Date]= #" & Format(Event_Date, "mm-dd-yyyy") & "#"

 

[welshgasman]

Put the criteria into a string variable, then debug.print it until you get it correct.

 

[Micron]

That would not work here because it would err out when trying to process the line that would pass the string to the variable. Note that it is red.
Clarification: I mean that the same error message would be raised when trying to pass the string to a variable, not that it would also be red when doing that. So same error message, thus no farther ahead.