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
Ekteki kod işinizi görecektir.