Filter on one or more fields using a dialog box

[pbaldy]

It looks like in Northwind they set a variable in the report code to make sure it's open. For now, comment out or delete this line and see what happens:

If Not Reports![HarvestingSummary].blnOpening Then Err.Raise 0



It's forcing an error and throwing you into the error handler, where that message is.

[jparker1954]

OK, we're getting closer now. Everything seems to work except the cancel button. How do I "trap for the error that will happen if you click the cancel button."

Here's the code now:

Private Sub Cancel_Click()
' This code created by Command Button Wizard.
On Error GoTo Err_Cancel_Click
' Close form.
DoCmd.Close
Exit_Cancel_Click:
Exit Sub
Err_Cancel_Click:
MsgBox Err.Description
Resume Exit_Cancel_Click
Private Sub OK_Click()
On Error GoTo Err_OK_Click
Dim strMsg As String, strTitle As String
Dim intStyle As Integer

' Hide form.
Me.Visible = False
Exit_OK_Click:
Exit Sub
Err_OK_Click:
strMsg = "To use this form, you must preview or print the report from the Database window or Design view."
intStyle = vbOKOnly
strTitle = "Open from Report"
MsgBox strMsg, intStyle, strTitle
Resume Exit_OK_Click
End Sub

[pbaldy]

You can trap for the error or avoid it. When you click the cancel button, you're closing the criteria form. That means the criteria will not be available for the report's query, and it will error. Actually it probably throw a parameter prompt. What I would probably do is test to see if the form is open in the next line after the OpenForm. If it's not, set

Cancel = True

to stop the report from loading. Search on IsLoaded for a method to test for the form being open.

[jparker1954]

Unfortunately, now, after working several times without a problem, it appears that the
[Forms]![myForm]![myControl] OR [Forms]![myForm]![myControl] Is Null command has decided that if the controls are Null, then it won't print anything on the report. Previously it printed the entire report as it should have. I made no changes to the controls to cause this. It just worked one time, then didn't work the next.

[jparker1954]

With Regard to the Cancel button throwing a parameter prompt, that is exactly what it is doing.

[jparker1954]

Eureka! It's finally done and working! I found the code for the IsLoaded method, the forms are loading properly, reports are printing correctly and I am very grateful for all your help and patience. I've learned a great deal and will be using this information a lot in the future. Thanks!

[pbaldy]

Outstanding! Glad we got it sorted out.