Error Question

[btrede]

Would anyone be able to explain this error to me. I have check all over msdn.com and have not been able to figure this out.

Here is the message along with the code for this report. for the OnOpen event:

Private Sub Report_Open(Cancel As Integer)
    DoCmd.OpenForm "Date Form", , , , , acDialog, "Net Rebates by Part by Date Range"
    If Not IsLoaded("Date Form") Then
        Cancel = True
    End If
End Sub

I get this error when I try to close the report.

I appreciate any help anyone can give.

regards.

BT

 

[Norie]

BT

You say you get the error when you close the report but you've posted the code for it's Open event.

Can you post the code if any that runs when the report closes?

 

[btrede]

Re: Error

BT

You say you get the error when you close the report but you've posted the code for it's Open event.

Can you post the code if any that runs when the report closes?

Here is all the code for the report:

Private Sub Report_NoData(Cancel As Integer)
    MsgBox "There is no data for this report. Canceling report..."
    Cancel = -1
End Sub

Private Sub Report_Close()
    DoCmd.Close acForm, "Date Form"
End Sub

Private Sub Report_Open(Cancel As Integer)
    DoCmd.OpenForm "Date Form", , , , , acDialog, "Net Rebates by Part by Date Range"
    If Not IsLoaded("Date Form") Then
        Cancel = True
    End If
End Sub

Thanks Norie!



Bradley