قم بإنشاء مجلد بعنوان Test عند المسار D: وضع بداخله ملف Access بعنوان Project، ثم قم بإنشاء ملف أكسس جديد ونفذ بداخله الخطوات التالية:
- قم بإنشاء وحدة نمطية بعنوان ChangeExtention ثم ضع بداخلها الكود التالي:
Sub ChangeFile () Dim strFileOld As String Dim strFileNew As String strFileOld = "D:\Test\Project.accdb" strFileNew = "D:\Test\Project.ENP" Name strFileOld AS strFileNew End Sub
ثم قم بحفظ الوحدة النمطية بعنوان ChangeExtension.
- قم بإنشاء نموذج بعنوان Form1 وضع بداخله زر أمر وعند تبويب الحدث OnClick ضع الكود التالي:
أستدعاء الوحدة النمطية (ChangeExtension) من خلال الكود :
Call ChangeFile
والسلام عليكم ورحمة الله وبركاته