Hi all,

Right now, I've got a fully-functioning Queries Dialog Box except for one problem. Whenever I cancel out of a parameter query, I get the following error.

Run time error '2001':
You canceled the previous operation

This is the code that gets highlighted when the VBA editor opens(This is after I click on the Debug button)

Private Sub DisplayQuery_Click()
    'Open the selected query in Datasheet View
    DoCmd.OpenQuery [QueryList Control], acViewNormal
End Sub

Is there any way to keep the above-mentioned error message from EVER popping up again in the future?

Thanks in advance,



Ben Horne
Madison Area Technical College - Truax
3550 Anderson Street
Madison, Wisconsin 53704-2599


-------------------------
http://community.webshots.com/user/valerian114

"There are two kinds of people in the world: Those who claim to be Flash junkies and those who actually are Flash junkies"

__________________
Ben Horne
-------------------------
I don\'t want to sound like I haven\'t made any mistakes. I\'m confident I have.

Most likely using FireFox and concocting my next Macromedia Flash project
Snibworks Forums Moderator

Welcome to the New Age

Hi Ben,

Run time error '2001' often means you are dealing with a corrupt object. You could try testing your query dialog in a new .mdb, though some other object or module may be the culprit, and will simply have to be re-created.

In the mean time, you could see what impact simply ignoring the error might have:

Private Sub DisplayQuery_Click()
   On Error GoTo ErrorHandler

   'Open the selected query in Datasheet View
    DoCmd.OpenQuery [QueryList Control], acViewNormal

ErrorHandlerExit:
   Exit Sub

ErrorHandler:
   If Err.Number = 2001 Then
      Resume Next
   Else
      MsgBox "Error No: " & Err.Number & "; Description: "
      Resume ErrorHandlerExit
   End If
End Sub

HTH,

Bob

oops...forgot the Description property in the error handler:

MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description

Bob,

Thank you so much for the help:), The code you added on to mine helped out a lot. I am not seeing that error message anymore.

Thanks again

Ben Horne
Madison Area Technical College - Truax
3550 Anderson Street
Madison, Wisconsin 53704-2599


-------------------------
http://community.webshots.com/user/valerian114

"There are two kinds of people in the world: Those who claim to be Flash junkies and those who actually are Flash junkies"

You're welcome, Ben. Glad it worked for ya'.

Bob

Bob, I was also receiving error code 2001, and tried your suggestion, but then received error code 3078 (which is basically similar to 2001, from what I have seen elsewhere in forums). It seems to think [Date] is a table, but it should be a field/expression from the DMax help in Access. Below is my code.

Dim DateX As Date
Dim Msg

Sub test1()
On Error GoTo ErrorHandler
DateX = DMax("[Date]", "tblWellMaintenanceLogbook", "[Combo34] =" _
& Forms!frmWellMaintenance!Combo34)

Msg = DateX
ErrorHandlerExit:
Exit Sub
ErrorHandler:
If Err.Number = 2001 Then
Resume Next
Else
MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
Resume ErrorHandlerExit
End If
End Sub