تحويل الاستعلام الى جملة SQL واستعمالها في الكود (معدل)

[walid7799]

السلام عليكم ورحمة الله وبركاته

فى بعض الاحيان يكون الاستعلام ليس له قيمة أن ترك ضمن مجلدات وملفات القاعدة

وهنا يمكن الاستغناء عنها بالتعويض عنها عن طريق الأكواد

فأذا كان لدينا استعلام وخصوصا الالحاق وعمل الجداول وهكذا فأننا نفضل دائما أن تتم دون مشاهدتها فى تنفيذ الأمر ومنع الرسائل الخاصة بالاستعلام بالأكسس

فأذا كان لدينا استعلام الحاق أو غيره يمكن بعد عمل الاستعلام قبل حفظة تحويله إلى SQL

ونسخ الكود الموجود بداخله

ووضع فى أمر أى زر لتنفيذ الاستعلام 

مثال :-

 

هذا عمل استعلام لثلاث جداول مرتبطة

وأريد عند فتح النموذج أو بالضغط على زر معين ينفذ الاستعلام دون رسائل ودون أن يتم مشاهدة تنفيذه

1- عمل الاستعلام بالطريقة العادية

2- تحويل االستعلام إلى SQL

 

[walid7799]

3- نسخ الكود الموجود فى جملة SQL كمل هو

4- ندخل الى شاشة الاكواد VBA

5- نكتب فى الأمر 

[walid7799]

6- ونبدأ بعد كتابة DoCmd.RunSQL

(مسافة ثم ")

ودون وضع مسافة ثانية نقوم بلصق الكود

وفى بداية كل سطر ما عدا أول (") بدون الأقواس طبعا

وفى نهاية كل سطر نكتب (" & vbCrLf & _) بدون الأقواس طبعا

ما عدا أخر سطر نكتب فى نهايته (") وبدون أقواس أيضا

مثال لوضع الاستعلام بعد كل شىء وتشغيله من خلال الأكواد دون ظهور رسائل التأكيد الخاصة بالأكسس

DoCmd.RunSQL "INSERT INTO ShwImages2 ( Path, IDIMG, Nme2, IDDOC2, IDDOC1 )" & vbCrLf & _
                        "SELECT Images2.Path, Images2.IDD, Images2.Nme2, Doc2.IDD, Doc.IDD" & vbCrLf & _
                        "FROM Doc INNER JOIN (Doc2 INNER JOIN Images2 ON Doc2.IDD = Images2.IDD) ON (Images2.IDD = Doc.IDD) AND (Doc.IDD = Doc2.[IDD-1])" & vbCrLf & _
                        "WHERE (((Doc.IDD)=[Forms]![Ser-filter]![Sub_serfil].[Form]![DocIDD]));"

أرجو أن أكون أفد كما أستفد من الاساتذة والذين سبقونا بالعلم وبما فتح الله عليهم من فضله

أن فضل وربك عليكم عظيماً

والسلام عليكم ورحمة الله دومتم فى رعاية الله وحفظه

[walid7799]

صورة توضيحية أكثر

[at_aziz]

بارك الله فيك وجزاك الله خير  

شرح رائع 

الله يعطيك العافيه

[walid7799]

أعطاك الله مثلما قلت وشرح صدر وحل العقدة من لسانك وفقه قولك وسدد رجاءك ولنا مثله

[SEMO.Pa3x]

عليكم السلام ورحمة الله وبركاته، قمت بعمل برنامج لاداء هذا الغرض

 

[عبد الله قدور]

السلام عليكم ورحمة الله وبركاته

بالنسبة لي انا استخدم طريقة ثانية وهي

اقوم بوضع اوامر sql  في جدول واضيف عمود id مع عمود sql  ثم استدعي الكود باستخدام الدالة dlookup

ثم استدعيها بالكود التالي

DoCmd.RunSQL DLookup("[sql]", "sql", "[id]=1")

 

[Moosak]

1 ساعه مضت, عبد الله قدور said:

السلام عليكم ورحمة الله وبركاته

بالنسبة لي انا استخدم طريقة ثانية وهي

اقوم بوضع اوامر sql  في جدول واضيف عمود id مع عمود sql  ثم استدعي الكود باستخدام الدالة dlookup

ثم استدعيها بالكود التالي

DoCmd.RunSQL DLookup("[sql]", "sql", "[id]=1")

 

فكرة إبداعية خارج الصندوق .. أحييك 👍😉

[حامل المسك]

في 23‏/3‏/2022 at 15:52, عبد الله قدور said:

سلام عليكم ورحمة الله وبركاته

بالنسبة لي انا استخدم طريقة ثانية وهي

اقوم بوضع اوامر sql  في جدول واضيف عمود id مع عمود sql  ثم استدعي الكود باستخدام الدالة dlookup

فكرة رائعة وممتازة..

هل يوجد مثال تطبيقي مع جزيل الشكر وعظيم الامتنا،،

[عبد الله قدور]

في 29‏/1‏/2023 at 09:51, حامل المسك said:

هل يوجد مثال تطبيقي مع جزيل الشكر وعظيم الامتنا

السلام عليكم ورحمة الله وبركاته

اسعد الله اوقاتكم

اليك المثال اخي الكريم

 

Database4.accdb

[حامل المسك]

وعليكم السلام ورحمة الله وبركاته،،

سلمت يمناك،، لا عدمناك أستاذنا القدير،،

[رولي]

شكرا جزيلا لكم

ممكن جملة sql لجمع عمود (sum) 

[Moosak]

في 8‏/9‏/2023 at 18:53, mohammed hafs said:

ممكن جملة sql لجمع عمود (sum) 

استخدم مصمم الاستعلامات الخاص بالأكسس للحصول على جمل ال SQL .. 

صمم الاستعلام ثم إذهب إلى   للحصول على جملة ال SQL 

سهل ومريح .. 🙂 

 

[رولي]

شكرا جزيلا أ/ موسى ولجميع الاعضاء