Private Sub cmdOpenReport_Click()
On Error GoTo Err_cmdOpenReport_Click

	DoCmd.OpenReport "rptEmpty", acPreview

Exit_cmdOpenReport_Click:
	Exit Sub

Err_cmdOpenReport_Click:
	If Err <> 2501 Then
		MsgBox Err.Description
	End If
	Resume Exit_cmdOpenReport_Click
 
End Sub