نقل سجل من نموذج استعلام الي نموذج جدول

[MOamen Selema]

السلام عليكم

تم عمل تصفية لبيانات الجدول من خلال استعلام و ظهرت البيانات الناتجة علي النموذج ، الآن أريد إضافة زر بجانب كل سجل عند النقر عليه يقوم بنقل السجل كاملا إلي جدول جديد مع حذف السجل من الجدول القديم

أرجو المساعدة و جزاكم الله خيرا

[ابوآمنة]

وعليكم السلام 

حياك  الله @MOamen Selema كعضو جديد ،

نتمنى لك الإفادة والفائدة.

يرجى إرفاق عينة من العمل كي يتمكن الأساتذة الكرام من الإجابة على استفسارات . 

[MOamen Selema]

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

 

المحل نسخة تجريبية.accdb

[ابو البشر]

14 دقائق مضت, MOamen Selema said:

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

 

المحل نسخة تجريبية.accdb 992 kB · 0 downloads

ضع هذا الكود تحت الزر .....

Me.ID.SetFocus
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO فرعى ( ID, [كود الصنف], [اسم الصنف], المورد, [سعر البيع], اللون, المقاس )  SELECT الأصناف.ID, الأصناف.[كود الصنف], الأصناف.[اسم الصنف], الأصناف.المورد, الأصناف.[سعر البيع], الأصناف.اللون, الأصناف.المقاس  FROM الأصناف  WHERE (((الأصناف.ID)=[forms]![frmsrch]![ID]));"
DoCmd.RunSQL "DELETE الأصناف.ID, الأصناف.[كود الصنف], الأصناف.[اسم الصنف], الأصناف.المورد, الأصناف.[سعر البيع], الأصناف.اللون, الأصناف.المقاس  FROM الأصناف  WHERE (((الأصناف.ID)=[forms]![frmsrch]![ID]));"
DoCmd.SetWarnings True
Me.Requery

 

[MOamen Selema]

مشكوووور جدا اخي الكريم جزاكم الله خيرا علي سرعة الرد

الكود اشتغل تمام

جعله الله في ميزان حسناتكم

[MOamen Selema]

5 ساعات مضت, ابو البشر said:

ضع هذا الكود تحت الزر .....

لكن لدي سؤال بعد اذنك

انا قمت باضافة سطر تجميع total في نهاية الجدول "فرعي" و اريد ان يظهر هذا السطر دائما و بشكل تلقائي في النموذج form2 ليقوم بحساب مجموع السطور المضافة بالاعلي

ما الحل؟

[MOamen Selema]

سؤال آخر : أريد أن أضيف زر في أسفل النموذج form2 عند footer النموذج بالضغط عليه يتم نقل كافة السطور في الجدول "فرعي" لتنضم إلي جدول آخر وليكن اسمه "مبيعات" و تسجل كسطور جديدة

لاحظ هنا أخي نريد نقل جدول كامل لينضم بداخل جدول آخر و ليس سطر واحد 

[ابو البشر]

19 دقائق مضت, MOamen Selema said:

سؤال آخر : أريد أن أضيف زر في أسفل النموذج form2 عند footer النموذج بالضغط عليه يتم نقل كافة السطور في الجدول "فرعي" لتنضم إلي جدول آخر وليكن اسمه "مبيعات" و تسجل كسطور جديدة

لاحظ هنا أخي نريد نقل جدول كامل لينضم بداخل جدول آخر و ليس سطر واحد 

اخي الكريم ضع المثال الذي عدلته حتى نعرف تحديدا ماذا تريد .. بارك الله فيك

[MOamen Selema]

 

معذرة أخى الكريم

تم رفع الملف الان

المطلوب عند فتح النموذج form2 و النقر على زر "دفع نقدى للكل" الموجود بالاسفل يتم نقل جميع السجلات الموجودة بالنموذج إلى جدول المبيعات مع كتابة تاريخ المعاملة بشكل تلقائى فى خانة التاريخ و كتابة كلمة "نقدى" فى خانة نظام الدفع (انظر لجدول المبيعات)

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

الحل الأول هو الأفضل لكن اختار الحل الأسهل بالنسبة لك

مشكور مقدما

المحل نسخة تجريبية.rar

[ابو البشر]

تفضل ....

 

المحل نسخة تجريبية.accdb

[MOamen Selema]

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

[ابو البشر]

3 ساعات مضت, MOamen Selema said:

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

استبدل الكود بهذا ....

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO المبيعات ( [كود الصنف], [اسم الصنف], المورد, [سعر البيع], اللون, المقاس, التاريخ, [نظام الدفع] )  SELECT فرعى.[كود الصنف], فرعى.[اسم الصنف], فرعى.المورد, فرعى.[سعر البيع], فرعى.اللون, فرعى.المقاس, Date() AS D, ""نقدي"" AS s  FROM فرعى;"
DoCmd.RunSQL "DELETE فرعى.ID, فرعى.[كود الصنف], فرعى.[اسم الصنف], فرعى.المورد, فرعى.[سعر البيع], فرعى.اللون, فرعى.المقاس  FROM فرعى;"
DoCmd.SetWarnings True
Me.Requery

 

[MOamen Selema]

تمام

نريد ان نضيف للزر امر يقوم بقفل النموذج الحالى و فتح نموذج "المبيعات"

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

المحل نسخة تجريبية.accdb

[ابو البشر]

ارجو الا نكون قد خالفنا قوانين المنتدى ..... وذلك بطرح اكثر من موضوع ..... ؟؟؟

 

ماهو اسم النموذج الحالي ؟؟؟؟

[ابوآمنة]

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

ارجو الا نكون قد خالفنا قوانين المنتدى ..... وذلك بطرح اكثر من موضوع ..... ؟؟؟

 

ماهو اسم النموذج الحالي ؟؟؟؟

احسنت ابو البشر

يجب الالتزام بقوانين المنتدى .وعدم طرح اكثر من سؤال في نفس الموضوع .

ويرجى إنشاء موضوع جديد 

[MOamen Selema]

عفوا أخوتى لم أكن أعلم

سأقوم بفتح موضوع جديد

شاكر لجهودكم

[MOamen Selema]

في ٢٩‏/١٠‏/٢٠٢٠ at 16:10, ابو البشر said:

ضع هذا الكود تحت الزر .....

بعد اذنك اخى لدى سؤال فى نفس الموضوع ، هل تتعطل هذه الأكواد التى استخدمناها عندما نغير نوع حقل id فى الجداول من autonumber الى text

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

اضغط على زر ارجاع فى نموذج المبيعات و ستجد انه لا يعمل ، ما السبب؟

المحل نسخة تجريبية.rar