How do I remove an "OK message"? 2

[Rmcta]

When my report opens, I also get a little window:
____________________
Microsoft Access |X|
|
OK |
|
____________________|

How do get rid of it? I don't want it to pop up.

 

[PWise]

check your code for msgbox statement and rem it out

 

[Rmcta]

Pwise, here is the code. Can you indicate to me what to do?

Private Sub cmdOpenReport_Click()
On Error GoTo Err_cmdOpenReport_Click

Dim strVal As String
Dim strDocName As String
Dim dteValFrom As Date
Dim dteValTo As Date

strVal = Me.cboCountry
dteValFrom = Me.txtFromDate
dteValTo = "rptStays"

If strVal = "All Countries" Then
DoCmd.OpenReport strDocName, acPreview, , "[FromDate]Between(#" & dteValFrom & "#) AND (#" & dteValTo & "#)"
Else
DoComd.OpenReport strDocName, acPreview,,"Country='" & strVal & "' AND [FromDate]Between(#" & dteValFrom & "#) AND (#" & dteValTo & "#)"
End If

Err_cmdOpenReport_Click:
MsgBox Err.Description
Exit Sub

End Sub

 

[PWise]

after the end if line type this
exit sub
since ther is no exit sub statement before the error handler it always excutes the error handler

 

[Rmcta]

Thank you Pwise