walid7799 قام بنشر مارس 16, 2022 قام بنشر مارس 16, 2022 السلام عليكم ورحمة الله وبركاته فى بعض الاحيان يكون الاستعلام ليس له قيمة أن ترك ضمن مجلدات وملفات القاعدة وهنا يمكن الاستغناء عنها بالتعويض عنها عن طريق الأكواد فأذا كان لدينا استعلام وخصوصا الالحاق وعمل الجداول وهكذا فأننا نفضل دائما أن تتم دون مشاهدتها فى تنفيذ الأمر ومنع الرسائل الخاصة بالاستعلام بالأكسس فأذا كان لدينا استعلام الحاق أو غيره يمكن بعد عمل الاستعلام قبل حفظة تحويله إلى SQL ونسخ الكود الموجود بداخله ووضع فى أمر أى زر لتنفيذ الاستعلام مثال :- هذا عمل استعلام لثلاث جداول مرتبطة وأريد عند فتح النموذج أو بالضغط على زر معين ينفذ الاستعلام دون رسائل ودون أن يتم مشاهدة تنفيذه 1- عمل الاستعلام بالطريقة العادية 2- تحويل االستعلام إلى SQL
walid7799 قام بنشر مارس 16, 2022 الكاتب قام بنشر مارس 16, 2022 3- نسخ الكود الموجود فى جملة SQL كمل هو 4- ندخل الى شاشة الاكواد VBA 5- نكتب فى الأمر 1
walid7799 قام بنشر مارس 16, 2022 الكاتب قام بنشر مارس 16, 2022 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]));" أرجو أن أكون أفد كما أستفد من الاساتذة والذين سبقونا بالعلم وبما فتح الله عليهم من فضله أن فضل وربك عليكم عظيماً والسلام عليكم ورحمة الله دومتم فى رعاية الله وحفظه 1
at_aziz قام بنشر مارس 16, 2022 قام بنشر مارس 16, 2022 بارك الله فيك وجزاك الله خير شرح رائع الله يعطيك العافيه 1
walid7799 قام بنشر مارس 16, 2022 الكاتب قام بنشر مارس 16, 2022 أعطاك الله مثلما قلت وشرح صدر وحل العقدة من لسانك وفقه قولك وسدد رجاءك ولنا مثله 1
SEMO.Pa3x قام بنشر مارس 17, 2022 قام بنشر مارس 17, 2022 عليكم السلام ورحمة الله وبركاته، قمت بعمل برنامج لاداء هذا الغرض 2
عبد الله قدور قام بنشر مارس 23, 2022 قام بنشر مارس 23, 2022 السلام عليكم ورحمة الله وبركاته بالنسبة لي انا استخدم طريقة ثانية وهي اقوم بوضع اوامر sql في جدول واضيف عمود id مع عمود sql ثم استدعي الكود باستخدام الدالة dlookup ثم استدعيها بالكود التالي DoCmd.RunSQL DLookup("[sql]", "sql", "[id]=1") 6
Moosak قام بنشر مارس 23, 2022 قام بنشر مارس 23, 2022 1 ساعه مضت, عبد الله قدور said: السلام عليكم ورحمة الله وبركاته بالنسبة لي انا استخدم طريقة ثانية وهي اقوم بوضع اوامر sql في جدول واضيف عمود id مع عمود sql ثم استدعي الكود باستخدام الدالة dlookup ثم استدعيها بالكود التالي DoCmd.RunSQL DLookup("[sql]", "sql", "[id]=1") فكرة إبداعية خارج الصندوق .. أحييك 👍😉 1
حامل المسك قام بنشر يناير 29, 2023 قام بنشر يناير 29, 2023 في 23/3/2022 at 15:52, عبد الله قدور said: سلام عليكم ورحمة الله وبركاته بالنسبة لي انا استخدم طريقة ثانية وهي اقوم بوضع اوامر sql في جدول واضيف عمود id مع عمود sql ثم استدعي الكود باستخدام الدالة dlookup فكرة رائعة وممتازة.. هل يوجد مثال تطبيقي مع جزيل الشكر وعظيم الامتنا،، 1
عبد الله قدور قام بنشر يناير 31, 2023 قام بنشر يناير 31, 2023 في 29/1/2023 at 09:51, حامل المسك said: هل يوجد مثال تطبيقي مع جزيل الشكر وعظيم الامتنا السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم اليك المثال اخي الكريم Database4.accdb 3
حامل المسك قام بنشر يناير 31, 2023 قام بنشر يناير 31, 2023 وعليكم السلام ورحمة الله وبركاته،، سلمت يمناك،، لا عدمناك أستاذنا القدير،، 1
Moosak قام بنشر سبتمبر 9, 2023 قام بنشر سبتمبر 9, 2023 في 8/9/2023 at 18:53, mohammed hafs said: ممكن جملة sql لجمع عمود (sum) استخدم مصمم الاستعلامات الخاص بالأكسس للحصول على جمل ال SQL .. صمم الاستعلام ثم إذهب إلى للحصول على جملة ال SQL سهل ومريح .. 🙂 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.