أجمل ما في برنامج Microsoft Office Access هو تناغمه الجميل مع باقي برامج حزمة Microsoft Office،
وهذا المثال لأبلغ دليل على ذلك.
حيث من خلاله سنقوم بتشغيل وحدات Macro الموجودة لدينا في قاعدة بيانات Access،
في ملف Excel،
في البداية قمت بإنشاء ماكرو "mcrOutputTable" في قاعدة بيانات Access،
ويقوم هذا الماكرو بتصدير إحدى الجداول الموجودة في قاعدة البيانات لإستخدامها لاحقا.
ثم فتحت ملف Excel وأدرجت فيه زرا،
وفي مربع حوار "تعيين ماكرو" ضغطت على زر "جديد"، حيث دخلت على شاشة Visual Basic،
وكتبت الـ Code التالي للمطور Orlando Gonzalez:
Sub cmdRunAccessMacro()
On Error Resume Next
Dim objAccess As Object
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase ("C:\ExcelAndAccess\AccessFile.mdb")
objAccess.DoCmd.RunMacro "mcrOutputTable"
End Subبحيث:
cmdRunAccessMacro = إسم الزر الموجود في ملف Excel.
C:\ExcelAndAccess\AccessFile.mdb = مسار ملف قاعدة بيانات Access.
mcrOutputTable = إسم الماكرو الموجود في ملف قاعدة بيانات Access.
بعد فك الضغط عن الملف المرفق، قم بنسخ مجلد "ExcelAndAccess" للمسار التالي: C:\
أتمنى أن يكون في موضوعي هذا إضافة قيمة وجديدة لهذا المنتدى،
وتقبلوا مني تحية عاطرة.
