زرادكم الله من علمه اخي ابو ادم واخي عبد الرحمن ومشكورين علي اهتمامكم بهذا الموضوع واضيف اليكم فكرتي التي طبقتها ليستفيد الجميع
if Dir("C:\WINDOWS\MOVI.INI") = "" Then
MsgBox "لا يحق لك الدخول الي النظام", vbOKOnly, "اتصل بمدير النظام فورا*6414192* "
DoCmd.Quit
End If
زرعت ملف في ال \ c في فلدر ويندوز اسمه MOVI بامتداد \ INI \ وعند فتح البرنامج يقوم بالبحث عن الملف عند وجوده يتم الدخول الي البرنامج وعند عدم وجوده يعطي هذه الرساله الموجود في الكود اوحسب ماتريده انت