تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تخفيضمستوي الامان في الاكسس برمجيا
#1
السادة الافاضل
كيف اخفض مستوي الامان برمجيا في الاكسس

هذا رابط  مثال
http://vb4arb.com/vb/thread-14167.html
ملف مرفوع
الرد
تم الشكر بواسطة:
#2
طريقتي المقترحة باختصار:
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()
وفقط هذا كل شئ البرنامج جاهز للاستخدام.
وبالتوفيق للجميع.
الرد
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم