بالنسبة للمثال .... نضع هذا الكود في حدث عند الفتح للنموذج الاساسي المحمي بوسائل الحماية المختارة عند المبرمج وهي كثيرة مثلا زراعة ملف في الجهازأو المدة أو عدد السجلات أو رقم الهارد أو الريجستري وغيره الكثير ويمكن تطبيق أكثر من طريقه ثم نضيف هذا الكود للنموذج الاساسي بعد جعله منبثق :
If CurrentProject.AllForms("Chek_It").IsLoaded = False Then
MsgBox "معذرة اخي الكريم لا يمكن فتح النموذج بهذه الطريقة ... يجب تشغيل البرنامج بالطريقة الصحيحة ", vbCritical, "تنبيه"
DoCmd.CancelEvent
End If
علاما بأن chek_It هو النموذج الاساسي
اليك مثال يوضح ذلك
يضاف لذلك :
kanory.rar