انشاء استعلام الحاق باستخدام الكود في مايكروسوفت اكسس

قمنا سابقا بشرح موضوع استعلامات الالحاق باستخدام منشئ الاستعلام واليوم سسنتكلم عن هذا النوع من الاستعلامات ولكن باستخدام الكود VBA  وجملة SQL.
للحصول على معلومات حول هذا النوع من الاستعلامات يرجى زيارة الرابط اعلاة.

يمكنك مشاهدة الفيديو لكيفية انشاء استعلام الالحاق او الاستمرار بقراءة الموضوع 

في بعض الاحيان يتطلب البرنامج تنفيذ كود معين لالحاق بيانات معينة الى جدول او اكثر وعندما تتعقد الامور فان الحل سيكون اسهل اذا ما استخدمنا الكود، فمثلا قد نكون في نموذج لادخال البيانات وهذا النموذج يحتوي على بيانات يجب ادخالها في جدولين وليس جدول واحد، او ربما لا نريد ان يقوم المستخدم بادخال البيانات بشكل مباشر في قاعدة البينات وانما يقوم بادخالها في النموذج وعند الضغط على زر معين يتم نقل البيانات الى الجدول.

الصيغة

VBA

DoCmd.RunSQL "insert into Table (Field1,Field2) VALUES (value1,value2)"

حيث ان
Table = اسم الجدول الذي سيتم اضافة البيانات الية
Field1,Field2 = اسماء الحقول الموجودة في الجدول
value1,value2 = القيم التي سيتم ادخالها الى الجدول


 تشغيل استعلام الحاق بقيم ثابتة (نص ، رقم ، وتاريخ)

VBA

DoCmd.RunSQL "insert into Table1 (SName, SIdnumber,SDate) VALUES ('Sami',123,#24/11/2016#)"

ونلاحض ان النص يتم  وضعة بين فاصلتين مفردتين (الفاصلة العلوية/ علامة الاقتباس المفردة ) والتاريخ بين علامتي الهاش #

 اما الارقام فيتم ادخالها بشكل مباشر وبدون اي اضافات.

تشغيل استعلام الحاق بقيم متغيرة (نص ، رقم ، وتاريخ)
على فرض ان لدينا 3 حقول في الجدول هي SName, SIdnumber,SDate ولدينا نموذج يحتوي على الحقول التالية StudentName, StudenIdnumber,DateOfBirth فان الكود سيكون:

VBA 

DoCmd.RunSQL "insert into Table1 (SName, SIdnumber,SDate) VALUES (StudentName, StudenIdnumber,DateOfBirth)"

ملاحظة:
عند تشغيل الكود السابق ستظهر رسالة تأكيد بانه سيتم اضافة بيانات الى الجدول وهنا سيقوم المستخدم بالموافقة او الرفض، فاذا قام بالموافقة سيتم الحاق البيانات ولكن المشكلة بان يرفض الحاق البيانات وهنا ستظهر له رسالة خطأ بان هناك مشكلة في الكود وعلية فانه يجب علينا تدارك هذا النوع من الاخطاء وذلك اما بوضع كود لتجاهل الخطأ او كود لايقاف التنبية .