Ekteki kod işinizi görecektir.

Private Sub Form_Open(Cancel As Integer)

If Me.Recordset.RecordCount < 1 Then

MsgBox "Formda Veri Yok...", , "www.Accesstr.Net"

Cancel = True

End If

End Sub