Msg box help

[Chad]

Hello, I have this event on a button on my form. I have a cboReport combo box
that gives a list of my reports and when I select the report I want to
preview from the list I click the cmd button to view it. How would I add a
message box to display if there isnt anything selected in the cboReport cobmo
box? Thanks!

Private Sub cmdReport_Click()

Dim strDocName As String

Let strDocName = Me![cboReport]

DoCmd.OpenReport strDocName, acPreview

End Sub

 

[Daniel]

You could try something like

Private Sub cmdReport_Click()

Dim strDocName As String

If isnull( Me![cboReport]) Then
Msgbox "Please make a selection and try again", vbinformation,"No
report selected"
Else
strDocName = Me![cboReport]
DoCmd.OpenReport strDocName, acPreview
End if
End Sub