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)
 sub_View_ContAccrl.Form.Filter = dynSQL
  sub_View_ContAccrl.Form.FilterOn = True

  SQL = "SELECT SUM(View_ContAccrl.hours) AS TotHours, Sum(View_ContAccrl.cost) AS TotCost FROM View_ContAccrl "
  SQL = SQL & " WHERE " & dynSQL & ";"

  Set rs = CurrentDb.OpenRecordset(SQL, dbOpenSnapshot)

  If rs.RecordCount > 1 Then
      MsgBox "Unable to calculate sums"

  Else
      If IsNull(rs.Fields("TotHours")) Then
          Me.txtTotCost = Format(0, "$#,##0.00")
      Else
          Me.txtTotCost = Format(rs.Fields("TotCost"), "$#,##0.00")
      End If


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

Thanks in advance

Kimberley L. Collins

I am not sure what a "fully-functioning Queries Dialog Box" is. My suggestion is to cancel out of the query before you get to the query. Why are you cancelling out of a query in the middle of it? Pass values to the form to populate the form, and then package the values for the parameters and run the query on a seperate event.

The short answer is that you can't prevent these application errors from happening without trapping them properly. That would require this sort of coding:

On Error Resume Next

'some processing

'Check for error
If Err <> 0 Then
   'do something
   'Exit Sub perhaps
End If
'reset err
Err.Clear

'some more processing

'check for a new error etc

Does this help?


mmcdonal