ACCESS FEED: [MS_AccessPros] Report Open

Kamis, 28 Maret 2013

[MS_AccessPros] Report Open

I m using a dialog box to open a report using this code on dialog OK button

On Error GoTo Err_OK_Click
Dim strMsg As String, strTitle As String
Dim intStyle As Integer

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

' Hide form.
Me.visible = False

Exit_OK_Click:
Exit Sub

Err_OK_Click:
strMsg = "To use this form, you must preview or print the Invoice
report from the Database window or Design view."
intStyle = vbOKOnly
strTitle = "Open from Report"

MsgBox strMsg, intStyle, strTitle
Resume Exit_OK_Click

How can I use the same dialog for multiple reports how to modify this code.

--
Regards,
Abdul Shakeel

[Non-text portions of this message have been removed]