السلام عليكم
في المرفق اداة تقوم بتخفيض امان الاكسس ومن ضمنها لل 2010
السؤال كيف اجعل هذا الملف يعمل تلقائيا عند تشغيل ملف القاعدة.. بعد ان ارفقه الى جانب القاعدة
وشكرا
open.rar
أخي الكريم
لتخفيض أمان الأكسس برمجيا لجميع نسخ الأكسس ضع في حدث عند التحميل للنموذج الذي تفتح عليه قاعدة البيانات الكود التالي
Private Sub Form_Load()
If CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings")) <> "1" Then
CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version &