03-07-20, 01:53 AM
(آخر تعديل لهذه المشاركة : 03-07-20, 02:51 AM {2} بواسطة أبو عبدالله الحلواني.)
طريقتي المقترحة باختصار:
1- سنقوم بفتح ملف الاكسس وكبس زر تفعيل الأمان من خارج الأكسس بواسطة كود برمجي يتم وضعه في:
أولا- اسكربت:
قم بانشاء ملف نصي ثم ضع به هذا الكود:
ملاحظة هامة: يجب أن يكون الاسكربت وملف الأكسس بنفس الفولدر.
ثانيا- صنع برنامج فجول بيسك يحوي فورم واحد يقوم بنفس مهمة الاسكربت تخفيض أمان البرنامج الخاص بنا وفتحه. واليك الأكواد في حدث عند الفتح للفورم:
ملاحظة هامة أخري بالنسبة للاسكربت بعد حفظ الملف النصي قم بتغير الامتداد الخاص به من txt الي vbs
وبهذا يكون ملف الاسكربت جاهز علي التشغيل.
والأن مع كود الفجول بيسك:
بداية سننشأ اجراء ونسميه أي أسم يسهل استدعائه ونضع به هذا الكود:
ومن ثم نضع هذا الكود في حدث عند الفتح للفورم
وفقط هذا كل شئ البرنامج جاهز للاستخدام.
وبالتوفيق للجميع.
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()
وبالتوفيق للجميع.