منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تخفيضمستوي الامان في الاكسس برمجيا - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : أقسام المقالات - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=89)
+--- قسم : قسم مقالات MICROSOFT ACCESS (http://vb4arb.com/vb/forumdisplay.php?fid=109)
+--- الموضوع : تخفيضمستوي الامان في الاكسس برمجيا (/showthread.php?tid=14197)

تخفيضمستوي الامان في الاكسس برمجيا - atefkhalf2004 - 21-12-15

السادة الافاضل
كيف اخفض مستوي الامان برمجيا في الاكسس

هذا رابط  مثال
http://vb4arb.com/vb/thread-14167.html
ملف مرفوع

RE: تخفيضمستوي الامان في الاكسس برمجيا - أبو عبدالله الحلواني - 03-07-20

طريقتي المقترحة باختصار:
1- سنقوم بفتح ملف الاكسس وكبس زر تفعيل الأمان من خارج الأكسس بواسطة كود برمجي يتم وضعه في:
أولا- اسكربت:
قم بانشاء ملف نصي ثم ضع به هذا الكود:
كود :
Dim Fso
dim MyPath
set fso=createObject("Scripting.fileSystemObject")
Mypath=fso.GetAbsolutePathName(".")

    With Createobject("Access.Application")
        .AutomationSecurity = 1
        .opencurrentdatabase mypath & "\اسم ملف الأكسس.accde"
        .usercontrol=True
    End with

ملاحظة هامة: يجب أن يكون الاسكربت وملف الأكسس بنفس الفولدر.
ثانيا- صنع برنامج فجول بيسك يحوي فورم واحد يقوم بنفس مهمة الاسكربت تخفيض أمان البرنامج الخاص بنا وفتحه. واليك الأكواد في حدث عند الفتح للفورم:
ملاحظة هامة أخري بالنسبة للاسكربت بعد حفظ الملف النصي قم بتغير الامتداد الخاص به من txt الي vbs 
وبهذا يكون ملف الاسكربت جاهز علي التشغيل.
والأن مع كود الفجول بيسك:
بداية سننشأ اجراء ونسميه أي أسم يسهل استدعائه ونضع به هذا الكود:
كود :
private sub OpenAccessFile (ByVal AcssPath as string(
      Dim AccessApp As Object
       AccessApp = CreateObject("Access.Application")

       With AccessApp
           .AutomationSecurity = 1
           .OpenCurrentDatabase(AcssPath)
          .docmd.runcommand(11)   'for minimaze access window.
       End With
ومن ثم نضع هذا الكود في حدث عند الفتح للفورم 
كود :
       Dim apPath As String
       MyPath = Application.StartupPath
       apPath = MyPath & "\اسم ملف الأكسس(ليس شرط أن يكون بهذا الامتداد فقط ولكن وضعت الامتداد للتوضيح.accde"
       OpenAccessFile (apPath)
       Application.Exit()
وفقط هذا كل شئ البرنامج جاهز للاستخدام.
وبالتوفيق للجميع.