كيفية كتابة هذا الاستعلام بواسطة Sql

برنامج الاكسس يعطيك طريقة مبسطة لكتابة صيغة SQL بطريقة اسمها الاستعلام :)

افتح الاستعلام q1 ثم اضغط في المنطقة العلوية بالرز اليمين ، واختار اول القائمة ، فهذا سيعطيك استعلامك بصيغة SQL ، وهذا هو طلبك :)

جعفر

أولا: شكراً لك أخى جعفر وبارك الله لك

ثانياً: أنا أعرف هذه الطريقة

المطلوب بارك الله فيك هو كتابة الاستعلام الثانى بالكامل عن طريق Sql

بمعنى كتابة الاستعلام الثانى وبداخل الاستعلام الأول والاثنين عن طريق Sql

بمعنى أخر كيفية جعل القاعدة بدون استعلامات فقط استعلامات sql يتم تحويلها إلى Vba  واستدعائها عن طريق زر فى نموذج عن طريق vba

أرجو أن أكون قد وفقت فى عرض طلبى

جميل :)

اعمل استعلام جديد ، وبدل ان تستخدم فيه جدول ، استخدم فيه استعلام q1 ، واكمل العمل فيه ، ثم ادخل الى SQL وانسخه بالكامل ، ويفضل ان تحفظ الاستعلام مؤقتاً فقد تحتاج الى تعديله ، الـ SQL قد يكون هكذا:

SELECT users.UName, users.SN, users.PW
FROM users;

في النموذج ، على حدث ضغط الزر ، اعمل الكود التالي (مثلا):

mSQL = "SELECT users.UName, users.SN, users.PW "
mSQL = mSQL & "FROM users"
DoCmd.RunSQL (mSQL)

ورجاء ملاحظة المسافة الاضافية الفاضية في نهاية السطر لمعادلة SQL في المثال اعلاه

جعفر

شكراً مرة أخرى

المشكلة ليست فى الاستعلام الأول

المشكلة فى الاستعلام الثانى

أكرر مطلبى مرة ثانية

أنت الأن قمت بكتابة الاستعلام الأول بواسطة sql

فكيف يتم استدعاء الاستعلام الأول المكتوب بواسطةsql  داخل الاستعلام الثانى الذى سيتم كتابته بواسطة Sql

أسف لإزعاجك

وشكراً مرة أخرى

qq2 الذي انت عملته صح ، ولكنه سيضيف جميع سجلات الجدول employ الى الجدول zzzzzz ، لانك لم تضع شرطا لمعرفة اي سجل تريد إضافته.

وهذا هو الكود:

Private Sub cmd_run_sql_Click()

q1 = "SELECT employ.Id, employ.name, employ.wazefa, employ.adreess "
q1 = q1 & "FROM employ"
'Debug.Print q1

qq2 = "SELECT q1.name, q1.wazefa, q1.Id INTO zzzzzz "
qq2 = qq2 & "FROM q1"
'Debug.Print qq2

'DoCmd.SetWarnings False
DoCmd.RunSQL qq2
'DoCmd.SetWarnings True

End Sub

جعفر

7.zip

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

شكر لك على سرعة استجابتك

ولكن أخى الفاضل قم بحذف الاستعلامات التى تم وضعها من قبل وشغل زر فى النموذج

الاستعلامات الموضوعة من طرفى هى لتوضيح الفكرة المطلوبة فقط  لا غير

تفضل اخي الكريم

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

جميل جدا  لا يوجد اي استعلام  الآن قم بالضغط على زر الأمر تنفيذ في النموذج وسيتم عمل المطلوب بالكود البرمجي

تم تعديل النموذج لوجود خطأ بسيط وتم اصلاحه

za-SQL-TO-VBA-UP.rar

بالتوفيق

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

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

ما قدمته الأخت زهرة هو المطلوب

بارك الله لكم جميعا

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

ممتاز يا أم عهود ، انا كنت احاول مع QueryDef ولكن بدون حفظ الاستعلام المؤقت ، والظاهر انه لا يمكن عمله :)

جعفر

أخت زهرة هناك خطأ ما قومى بحذف الجدول zzzzzz

قومى بتشغيل زر الأمر

نجد أنه لا يتم انشاء الجدول zzzzz

جرب هاي الملف :) ، احاول اسبق ام عهود ولو لمرة واحده :)

جعفر

7.zip

بارك الله لك أخ جعفر هذا هو المطلوب

رجاء تلاحظ الـ SQL كود في حدث الزر ، فأنك ستلاحظ اني قمت بنسخ sql  من الاستعلام الاول ووضعته في الكود ،

ثم قمت بنسخ sql من الاستعلام الثاني ووضعته بالكود ايضا دون تغيير.

آمل ان هذا يسهل عليك في برنامجك :)

جعفر

jjafferr كتب:

جرب هاي الملف :) ، احاول اسبق ام عهود ولو لمرة واحده :)

 

جعفر

بارك الله بك اخي الكريم جعفر

تسبق وإلا ما تسبق ما يمديك تلحق

 لأني مستخدمه  تيربو نفاث  بقوة 10000 حصان  :)

LOL

هذا اللي قلتيه حق ، وانا ابصم عليه بالعشرة :)

بارك الله لكما جميعاً وجعله فى ميزان حسناتكم