Message Box

[PR2AledE]

I wrote this macro which doesn't show the subforms if there is no data in them. The macro is:-
With Me![frmBowling].Form
.Visible = (.RecordsetClone.RecordCount > 0)

End With
With Me![QryAverageBowling2].Form
.Visible = (.RecordsetClone.RecordCount > 0)
End With
End Sub

Is there any way in which I can add a message box to this macro telling the user that the subform contains no data.

 

[PaddyIrishMan]

With Me![frmBowling].Form 
    .Visible = (.RecordsetClone.RecordCount > 0) 
End With 

With Me![QryAverageBowling2].Form 
    .Visible = (.RecordsetClone.RecordCount > 0) 
End With 

MsgBox("Your Message Here"),vbInformation

End Sub

Is this what you want?