كيفية عمل استعلام الحاق عن طريق كود في زر امر

[hussein arby]

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

اليكم مثال مرفق

tast1.rar

[أبو عبدالله الحلوانى]

أستاذ حسين اعرض استعلام الالحاق فى طريقة عرض التصميم ثم من قائمة عرض اختر عرض sql

ثم انسخ الكود الذى سيظهر لديك

وفى زر اﻷمر ضع هذا الكود:

Docmd.runsql "وبين علامتى التنصيص الصق الكود الذى قمت بنسخه منذ قليل"

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

Docmd.setwarning false

جرب ولا تنسانا بدعوة فى ظهر الغيب تمنياتى بالتوفيق

[hussein arby]

اخي الفاضل ابوعبدالله الحلواني الف شكر علي مرورك الطيب  

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

برنامج مطعم - Copy.rar

تم تعديل أبريل 17, 2015 بواسطه aboarby123

[hussein arby]

شكر لك اخي الفاضل ابو عبد الله الحلواني تم التوصل الي الحل

[bl3a1234]

ليس لي خبرة كبيرة في الأكسس خاصة لغة VBA
لكن إذا كان ما تطلبه هو تشغيل استعلام الإلحاق من خلال ضغط الزر
فيمكن ذلك من خلال الماكرو openqury وتعطيل رسالة التأكيد من خلال خيارات >اعدادات العمل> تحرير >وحذف اشارة الصح عن خيار الاستعلامات الاجرائية

[أبو امين]

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

[متقاعد]

14 دقائق مضت, derbali ammar said:

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

مع ان الموضوع قديم

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

DoCmd.RunSQL "INSERT INTO tabl2 ( id, INAME, sal_price, Qty )"
SELECT tabl1.id, tabl1.INAME, tabl1.sal_price, tabl1.Qty
FROM tabl1
WHERE (((tabl1.id)=1));

الان نعدل الكود من خلال تقسيمة بشكل صحيح وسوف يعمل باذن الله ⬇️

DoCmd.RunSQL "INSERT INTO tabl2 ( id, INAME, sal_price, Qty )" & _
"SELECT tabl1.id, tabl1.INAME, tabl1.sal_price, tabl1.Qty FROM tabl1 " & _
"WHERE (((tabl1.id)=1));"

اذن الامر صحيح ولكن المشكلة كان في تقسيم الكود الى اسطر

الملف مرفق

 

برنامج مطعم - Copy.accdb

[أبو امين]

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

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

لكن المشكل اننا نريد نقل بيانات معينة من الجدول الرئيسي الى الجدول الفرعي 

انشاء استعلام الحاقي و نقل البيانات من جدول الى جدول.accdb

تم تعديل يوليو 24, 2022 بواسطه derbali ammar

[متقاعد]

21 دقائق مضت, derbali ammar said:

لتعطينا رايك

تمام عليك يعمل بشكل صحيح

السؤال هل نستطيع ان نلحق سجلات ونحذف سجلات ونحدث سجلات بدون بدون انشاء استعلام وبدون استخدام جملة sql

الحقيقة نعم عن طريق التعامل مع مصدر السجلات وتوجد العديد من الامثلة بالموقع

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

تحياتي

تم تعديل يوليو 24, 2022 بواسطه مبرمج سابق

[أبو امين]

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

تحياتي و عرفاني لكم