رمز VBA لتنفيذ استعلام الوصول (مع صورة)
ما هذا؟
يساعدك رمز VBA هذا على تشغيل وصول الاستعلام من أي من الأدوات المدعومة لـ VBA مثل MS Excel وWord وما إلى ذلك.
لماذا هو؟
You can avoid the process of opening the DB and executing the query manually; this code will execute even from an Excel sheet without opening the Access DB manually.
إذا كنت تستخدم الاستيراد نتائج استعلام الوصول الكود الذي تمت مناقشته في المنشور السابق يمكنك حتى الحصول على نتائج الاستعلام إلى Excel، كل شيء بنقرة واحدة فقط.
رمز VBA لاستيراد بيانات جدول/استعلام الوصول إلى Excel
كيفية استخدام كود VBA لتنفيذ استعلام الوصول
(adsbygoogle = window.adsbygoogle || []).push({});
الخطوة 1: انسخ والصق الكود أدناه في وحدتك.
خافت myDB كقاعدة بيانات
قم بتعيين myDB = OpenDatabase("C:\MYDATABASE.mdb") "اذكر مسار قاعدة البيانات واستبدل "MYDATABASE" باسم قاعدة بيانات Access الخاصة بك
myDB. تنفيذ "myQuery" "استبدل" myQuery باسم استعلام الوصول الخاص بك
myDB.إغلاق 'استخدم هذا فقط إذا كنت تريد إغلاق قاعدة البيانات
قم بتعيين myDB = OpenDatabase("C:\MYDATABASE.mdb") "اذكر مسار قاعدة البيانات واستبدل "MYDATABASE" باسم قاعدة بيانات Access الخاصة بك
myDB. تنفيذ "myQuery" "استبدل" myQuery باسم استعلام الوصول الخاص بك
myDB.إغلاق 'استخدم هذا فقط إذا كنت تريد إغلاق قاعدة البيانات
الخطوة 2: انقر فوق الزر "تشغيل" أو F5 لتنفيذ استعلام الوصول.