اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر
3 دقائق مضت, بحار الاكسس said:

 

File ------> Option  -------> trust Center----->trust center Setting

Never Show information about blocked content 

macro setting-----> enable All Macros 

الغاء الرسالة الموجودة فى الصورة باستخدام الاكواد

قام بنشر (معدل)
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 & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD"

End If

End Sub

طبعا هذا الكود يوضع فى النموذج الافتتاحى للبرنامج
تم تعديل بواسطه بحار الاكسس

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information