Thanks so much
--- In [email protected], "Squires, Neil" <[EMAIL PROTECTED]> wrote:
>
> Copy the following code into the form's code module.
>
> Neil Squires
>
> -----------------------
>
> Dim Report_Activated As Boolean
>
> ' Purpose : Sets the reports Restore/Maximize property. Also
> flags the report
> ' as being activated.
> Private Sub Report_Activate()
> DoCmd.Maximize
> Report_Activated = True
> End Sub
>
> ' Purpose : Once the report is activated, the routine notifies
> the user if there
> ' is no data in the report. If so, the report open is
> cancelled.
> Private Sub Report_NoData(Cancel As Integer)
> If Report_Activated = True Then
> Call errCustom("This Report Contains No Data")
> Cancel = True
> End If
> End Sub
>
> ' Purpose : Report_Activated is set to false, as the
> Report_NoData fires twice.
> ' if it fires before the Report_Activate routine, a
> runtime error is
> ' generated. This process eliminates the runtime
> error.
> Private Sub Report_Open(Cancel As Integer)
> Report_Activated = False
> End Sub
>
>
>
> -------------------------------
>
> _____
>
> From: [email protected] [mailto:[EMAIL PROTECTED] On
> Behalf Of Marty
> Sent: Wednesday, June 06, 2007 1:24 PM
> To: [email protected]
> Subject: [ms_access] Another form question
>
>
>
> I want to open a form with filtered data. If the filtered data
> contains no results I would rather the form not open and display a
> message that nor records were found. How do I do that?
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>
