رمز VBA لتنفيذ استعلام الوصول (مع صورة)
ما هذا؟
يساعدك رمز VBA هذا على تشغيل وصول الاستعلام من أي من الأدوات المدعومة لـ VBA مثل MS Excel وWord وما إلى ذلك.
لماذا هو؟
يمكنك تفادي عملية فتح قاعدة البيانات وتنفيذ الاستعلام يدويًا؛ حيث سيتم تنفيذ هذا الرمز حتى من برنامج Excel ورقة بدون فتح الوصول قاعدة البيانات يدويًا.
إذا كنت تستخدم الاستيراد نتائج استعلام الوصول الكود الذي تمت مناقشته في المنشور السابق يمكنك حتى الحصول على نتائج الاستعلام إلى 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 لتنفيذ استعلام الوصول.