help with error handling

[kevinh2320]

I have a button on my form with name "run-q-letters-send-by-date-30-Day" This button has an On Click event with this code:

Private Sub run_q_letters_send_by_date_30_Day_Click()

DoCmd.OpenQuery "q-letters-send-by-date-30-Day", acViewNormal, acReadOnly

End Sub

Clicking the button brings up the dialog box shown below and if I enter a date and click OK the query loads as intended.

However, if I click Cancel I get the error shown below that I don't know how to resolve.

 

[ranman256]

Put
On error résumé next
Before you open the query,And the error msg won't show.