Please Help! getting Runtime error 2001

Waseem Raja · April 12th, 2007, 10:16 AM

I am a beginner with access and I am trying to create a basic search. I am getting a âruntime error 2001 you canceled the previous operationâ when I click the command button and then cancel the search. I used the code below for the on click event for the command button.

Private Sub Command225_Click()
DoCmd.OpenQuery "Issue_Search", acViewNormal
End Sub

The code I used in the query âIssue_Searchâ is below.

Like [forms]![searchform].[issue_search] & "*"

Also another question I have is after clicking the search button the pop up search box contains the code from referenced query. Does anyone know how to change the text for this pop up box? I am hoping someone can help me out here? TIA.

SerranoG · April 13th, 2007, 07:09 AM

The command button looks OK. For the query itself, try

Like "'*" & Forms.Searchform.Form.issue_search & "*'"

Note the use of '* and *' surrounded by quotes; and note the extra .Form.

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

robzyc · April 13th, 2007, 07:50 AM

Hi Waseem,

Welcome to the world of Access VBA.

The 2001 error always occurs when using DoCmd.OpenQuery and the query being opened is cancelled while running.
The allows DoCmd to feed back the "result" of the query action. This is especially useful when performing update queries and you need to know if the records where in fact updated.

To stop this error feeding up, you need to create an error handler in you CommandButtons's code.
For example:

Code:

Private Sub Command225_Click()
On Error Goto Command225_Click_Error
DoCmd.OpenQuery "Issue_Search", acViewNormal

Command225_Click_Exit:
Exit Sub

Command225_Click_Error:
Select Case Err.Number
    Case 2001 'OpenQuery Cancelled.
    'You can put whatever code you want to run when the query is cancelled here.
    'You could have a message box, or do nothing

    Case Else
        With Err
            .Raise .Number, .Source, .Description
        End With

End Select
End Sub

Regards,
Rob