رسالة خطـأ عند التأكد من وجود ملف داخل جهاز الكمبيوتر

[wael_rafat]

السلام عليكم ورحمة الله وبركاته

اساتذتي الكرام و السادة الافاضل اعضاء  منتدانا الجميل

تظهر رسالة بصفة مستمرة  عند فتح نموذج البداية والذي يقوم بالتأكد من وجود ملف فى جهاز الكمبيوتر  ( ملف الويندوز )  والذي يقوم بغلف البرنامج فى حالة عدم وجوده .

ولا ادري ما المشكلة ؟؟؟ وانما عند الدخول الى الكود بنافذة الاكواد ثم الخروج منها  مرة اخرى   لا تظهر هذه الرسالة  !!!! ؟؟؟؟

مرفق الكود ورسالة الخطأ

 

 

Private Sub Form_Open(cancel As Integer)

 On Error Resume Next

 If Dir("c:\windows\compu.dll") = "" Then

 MsgBox "نسخة غير اصلية .. اتصل بالمبرمج  non genuine copy , contant programmer", vbCritical, "Error "

 SendKeys "{ESC}"

 DoCmd.Quit

 Exit Sub

 End If

End Sub

 

افيدوني بارك الله فيكم

هل هناك مشكلة بالكود ..؟؟؟

ولماذا عند الدخول لنافذة الاكواد ثم الخروج منها  تختفي  هذه الرسالة

ثم تعود مرة اخرى  ............. وهكذا

علما ان ...... نسخة الاكسس لدي 2013   32 بت

كل الشكر والاحترام ،،،،

تم تعديل مارس 14, 2017 بواسطه wael_rafat