URGENT NEED - cancel opening of report via form command button

[martin DH]

**Urgent Need**

I'll throw out the basics and any assistance is very, very, very much appreciated!

Access 2003 on XP
On a form (frmMain) is an option group of check boxes (ReportFrame) from which a user can choose a specific report to generate. The user selects the report of choice then presses a comand button (CmdRunRpt). The command button runs using the code below:

Private Sub CmdRunRpt_Click()
If ReportFrame = 1 Then DoCmd.OpenReport "Rpt 1", acViewPreview
If ReportFrame = 2 Then DoCmd.OpenReport "Rpt 2", acViewPreview
If ReportFrame = 3 Then DoCmd.OpenReport "Rpt 3", acViewPreview
If ReportFrame = 4 Then DoCmd.OpenReport "Rpt 4", acViewPreview
If ReportFrame = 5 Then DoCmd.OpenReport "Rpt 5", acViewPreview
If ReportFrame = 6 Then DoCmd.OpenReport "Rpt 6", acViewPreview
If ReportFrame = 7 Then DoCmd.OpenReport "Rpt 7", acViewPreview
If ReportFrame = 8 Then DoCmd.OpenReport "Rpt 8", acViewPreview
If ReportFrame = 9 Then DoCmd.OpenReport "Rpt 9", acViewPreview
End Sub

This works perfectly. The report opens by first opening a form (Search Start Detail) that provides criteria for the report, which runs on a query.
On the criteria form (Search Start Detail), there are two command buttons: OK and CANCEL. Selecting OK gives the data to the query and generates the report - this works perfectly.
Here's the issue:
Selecting CANCEL should close the form and cancel the generation of any report (as there is no criteria to generate). When I click CANCEL, the form closes correctly but then there is an error message stating:

Run-time error '2501':
The OpenReport action was canceled.

I'm sure this is a simple twist of the IF code but I'm not sure. Thank you very much for your help - I need to have this straightened out by Wednesday morning.
martin

[missinglinq]

What's your code for cancelling the report?

Linq ;0)>

[martin DH]

Here's the code for the click event of the cancel button on the form:

Private Sub Cancel_Click()
    'Purpose:   Clear all the search boxes in the Form Detail and close the form.
    Dim ctl As Control
    'Clear all the controls in the Form Detail section.
    For Each ctl In Me.Section(acDetail).Controls
        Select Case ctl.ControlType
        Case acTextBox, acComboBox
            ctl.Value = Null
        Case acCheckBox
            ctl.Value = False
        End Select
    Next
    'Remove the form's filter.
    Me.FilterOn = False
    'Close the form.
    DoCmd.close
End Sub

Here is the code on the report:

Option Compare Database
 
Private Sub Report_Close()
  DoCmd.close acForm, "Search Start Detail"
End Sub
 
Private Sub Report_Open(Cancel As Integer)
' Set public variable to true to indicate that the report
' is in the Open event
  bInReportOpenEvent = True
 
' Open Search Start Detail Dialog
  DoCmd.OpenForm "Search Start Detail", , , , , acDialog
 
' Cancel Report if User Clicked the Cancel Button
  If IsLoaded("Search Start Detail") = False Then Cancel = True
 
' Set public variable to false to indicate that the
' Open event is completed
  bInReportOpenEvent = False
End Sub

And here is the supporting module for the report code:

Option Compare Database
Option Explicit
Public bInReportOpenEvent As Boolean ' Is report in the Open event?
 
Function IsLoaded(ByVal strFormName As String) As Boolean
' Returns True if the specified form is open in Form view or
' Datasheet view.
  Dim oAccessObject As AccessObject
  Set oAccessObject = CurrentProject.AllForms(strFormName)
  If oAccessObject.IsLoaded Then
    If oAccessObject.CurrentView <> acCurViewDesign Then
      IsLoaded = True
    End If
  End If
End Function

Hope that helps - thanks!
martin

[missinglinq]

In the Sub Report_Open() replace the line

If IsLoaded("Search Start Detail") = False Then Cancel = True

with the lines

DoCmd.SetWarnings False
If IsLoaded("Search Start Detail") = False Then Cancel = True
DoCmd.SetWarnings True

and see if that surpresses the message.

Linq ;0)>

[martin DH]

I'm afraid not, Linq. When I click debug it comes back to the code for the main form (where the user selects and runs a report):

Private Sub CmdRunRpt_Click()
If ReportFrame = 1 Then DoCmd.OpenReport "Rpt 1", acViewPreview
If ReportFrame = 2 Then DoCmd.OpenReport "Rpt 2", acViewPreview
If ReportFrame = 3 Then DoCmd.OpenReport "Rpt 3", acViewPreview
If ReportFrame = 4 Then DoCmd.OpenReport "Rpt 4", acViewPreview
If ReportFrame = 5 Then DoCmd.OpenReport "Rpt 5", acViewPreview
If ReportFrame = 6 Then DoCmd.OpenReport "Rpt 6", acViewPreview
If ReportFrame = 7 Then DoCmd.OpenReport "Rpt 7", acViewPreview
If ReportFrame = 8 Then DoCmd.OpenReport "Rpt 8", acViewPreview
If ReportFrame = 9 Then DoCmd.OpenReport "Rpt 9", acViewPreview
End Sub

[missinglinq]

So try turning the warnings on and off at this point.

[martin DH]

So try turning the warnings on and off at this point.

Same results here: Error 2501. I have tried setting the warnings to false on all three objects involved: the report, the main form (where the vba returns on debug), and the criteria form (where I actually select Cancel).
Any other ideas?