Bypassing the On Close Event in a Report

[Oxygen Potassium]

I have a report that has the following code built into the On Close event:

Private Sub Report_Close()
DoCmd.OpenForm "Navigation", acNormal
End Sub

I also have the following code built into the On No Data event:

Private Sub Report_NoData(Cancel As Integer)
Call Report_Load
MsgBox "No Report Available", vbOKOnly, "No Report"
Cancel = True
End Sub

The problem I'm having is, if the report has no data I want to open a form labeled "Find Records" instead of the "Navigation" form referenced in the On Close event. Is there a way to bypass the On Close Event if the report has no data?

[Micron]

No you can't. But you can evaluate whether or not there was no data and open the required form from the close event. Question is what to do with the code you currently have to open the nav form?
Edit:
Call Report_Load??
why are you calling this if there's no data in the report?

[Oxygen Potassium]

I think I can make it work using from the close event. Do you have any suggestions for how to evaluate whether there is no data in the on close event? Would a DCount work?

[Micron]

First, let's establish that you should have these two lines at the top of every module (the first has 3 possible settings, so your Access options may be set to provide you with a different option parameter). The second is a vb editor option that you REALLY should have turned on if you do not (Require Variable Declaration). What follows these two lines (sans comment) is a module level variable. Its scope is any code behind the report (or form if in a form module). Some caution is required when using them since their value is not only accessible throughout the module code, it is also possible to accidentally affect its value in this region. In your case, there should be little to be concerned about - this is just a little treatise on the scope of form/report module level variables.

Option Compare Database
Option Explicit
then have the next line
Dim bolNoData As Boolean

Then modify your NoData to set the variable to True IF this event runs.

Private Sub Report_NoData(Cancel As Integer)

Call Report_Load
MsgBox "No Report Available", vbOKOnly, "No Report"
Cancel = True
bolNoData = True

End Sub

Private Sub Report_Close()

If bolNoData = False Then
  DoCmd.OpenForm "Navigation", acNormal
Else
  DoCmd.OpenForm "Find Records", acNormal
End If

End Sub

You did not address why the load event is being called. This makes no sense to me, so I cannot predict the effectiveness of the proposed solution since I have no idea what to expect from making this call.

[Oxygen Potassium]

Thank you Micron. That worked perfectly for what I was trying to achieve.

The on load event was just closing a previously open form so that shouldn't affect any of this.

[Micron]

I wouldn't do it that way, mainly because it's probable that the form could already be closed by the user, especially if you're displaying form tabs. That will generate an error.
The close method should probably be added to the end of the event that opens the report. However, I'm used to having the form I navigated to the report from become the active window again when there were no records. Chances are that a criteria needs to be modified and the report attempted again.
Whichever route you take, good luck with your db development.