2001 You cancelled the previous operation

[GenieTR]

Can you see anything wrong with this code, I am getting a "2001 you cancelled the previous operation" error message.


On Error GoTo errRequerySubForm
Dim strActorSQL As String
Dim strWHERESQL, strFullSQL As String

If (Me.SearchText) <> "" Then
strActorSQL = "([Fname] Like '" & Me.SearchText & "*" & "')" & " OR " & "([Lname] Like '" & Me.SearchText & "*" & "')"
End If
strWHERESQL = "WHERE " + strActorSQL

If strWHERESQL = "WHERE " Then
strWHERESQL = "WHERE False;"
End If
strFullSQL = "SELECT * FROM QrySearch " & strWHERESQL & ";"
Me!SearchChild.SourceObject = "Sub_frmSearch"
Me!SearchChild.Form.RecordSource = strFullSQL

exitRequerySubForm:
Exit Function

errRequerySubForm:
MsgBox Err.Number & " - " & Err.Description
Resume exitRequerySubForm

Thanks in advance

 

[mgolla]

Change this:

If strWHERESQL = "WHERE " Then
strWHERESQL = "WHERE False;"
End If

to this:

    If strWHERESQL = "WHERE " Then
        strWHERESQL = [red]" "[/red]
    End If

HTH
Mike

Dooobie...Doobie......Dooo

 

[GenieTR]

I did the change, but I am still getting the 2001 error message.