Findfirst Syntax Error 2

[grinnz]

    Dim dbs As Database
    Dim rstCombined As DAO.Recordset
    Dim rstExceptions As DAO.Recordset
    Dim strCompare As String
    
    'Open Recordsets
    Set dbs = CurrentDb
    Set rstCombined = dbs.OpenRecordset("qryCombined")
    Set rstExceptions = dbs.OpenRecordset("qryExceptions")
    
    'Find/Delete Exceptions
    With rstCombined
        rstExceptions.MoveFirst
        .MoveFirst
        
        Do While Not rstExceptions.EOF
            strCompare = rstExceptions!exceptkey
            [COLOR=red].FindFirst "CombineKey=" & strCompare[/color]
            If .NoMatch = False Then
                .Delete
            End If
            rstExceptions.MoveNext
        Loop
    End With
    
    rstCombined.Close
    rstExceptions.Close
    Set dbs = Nothing
                
End Sub

I am receiving a "runtime 3077, syntax error (missing operator) in expression" error. 'CombineKey' is a valid field in the recordset and strCompare contains a value when the program halts. I'm a newbie and am stumped. Your help is appreciated.

~ grinnz ~

Listen to me online every Tue/Thu 6-9pm Eastern

http://www.temptationradio.net

 

[ItIsHardToProgram]

Try it like this

.FindFirst "[CombineKey] = " & strCompare

What is rstExceptions!exceptkey

??? maybe Forms!rstExceptions!exceptkey

HTH

"Knowing that you know is the greatest sign of stupidity, knowing that you are ignorant is the best proof of intelligence.

 

[jebry]

Hi!

Is CombineKey numeric? If not you need to do this:

.FindFirst "CombineKey='" & strCompare & "'"

hth


Jeff Bridgham
Purdue University
Graduate School
Data Analyst

 

[ItIsHardToProgram]

and hashes for a date "#" & strcompare & "#"

"Knowing that you know is the greatest sign of stupidity, knowing that you are ignorant is the best proof of intelligence.

 

[grinnz]

Thank you for your reply. "[CombineKey]=" I have tried with the same resulting runtime error. The exceptkey statement above is fine unto the fact that when the program stops it points specifically to the findfirst statement. Further, the variable strCompare has already been populated with the proper value with the assignment statement above.

To elaborate, both ExceptKey and CombineKey are text fields and are named as such in both the table and the respective queries in which they are contained. The form that I use has only one field called 'text3' that is bound to the CombineKey field in the query.

The only other piece of information that I should perhaps offer is that the tblExceptions on which one of the queries is based is a linked table although qryExceptions is local to my project file.

~ grinnz ~

Listen to me online every Tue/Thu 6-9pm Eastern

http://www.temptationradio.net

 

[grinnz]

Jeff...

You win the prize. Thank you!!

~ grinnz ~

Listen to me online every Tue/Thu 6-9pm Eastern

http://www.temptationradio.net

 

[ItIsHardToProgram]

Very odd since the code you provided should be working... you are saying that strCompare contains the value you need.... maybe test without strcompare and entering the value manually, from there, try modifying the line until it works...

try to isolate the error this way, but looking at what you provided I don't see what is wrong...

"Knowing that you know is the greatest sign of stupidity, knowing that you are ignorant is the best proof of intelligence.