تم الحل أخي الحلبي ولله الحمد بهذه الدالة :
Private Function NoEntry()
If xtyp = "" Or IsNull(xtyp) Then
Me.AllowEdits = False
MsgBox "لا يمكن التسجيل الا بعد تعبئة حقل نوع الفاتورة"
Me.xtyp.SetFocus
Else
Me.AllowEdits = True
End If
End Function
تحدد جميع العناصر وتضع في حدث عند التركيز اسم الدالة هكذا بهذه الصورة :
=NoEntry()
وهذا هو الملف
امكانية التسجيل2.accdb