Formun açıldığında olay yordamına aşağıdaki kodları koymalısın. Bu arada örnekte sorun yok, ben ondan copy/paste yapıyorum.
Set rs = CurrentDb.OpenRecordset("Tablo1", dbOpenDynaset)
If rs.RecordCount <= 0 Then
If MsgBox("Formda Veri Bulunamadı, Form Açılsın mı??", _
vbYesNo) = vbNo Then
Cancel = True
End If
End If
İnadına, ille de Accesstr.net...