تشغيل استعلام الحاقي

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء

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

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

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

وهذا الكود الذي استخدمة لتشغيل الاستعلام

DoCmd.SetWarnings False
DoCmd.OpenQuery "Q10"
DoCmd.SetWarnings True

تحياتي لكل الاخوة

تم تعديل مارس 5, 2022 بواسطه Ahmed_J

[Moosak]

هات مرفق ..

أو صورة للكويري ..

 

[Ahmed_J]

استاذي العزيز 

انا الحق بيانات الشهر السابق والحالي

لكن السجل اللي اعمل علية بالنموذج لايلحق بصورة صحيحة

المفترض كل الاشهر اذار 

تم تعديل مارس 5, 2022 بواسطه Ahmed_J

[Moosak]

ما يخطر ببالي هو أنا السجل الحالي غير محفوظ بعد ( Not Saved ) .

الأفضل أن ترفق مثال (مرفق) ليتضح الأمر .

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

قم بتعديل الكود بهذا الشكل

DoCmd.SetWarnings False
DoCmd.OpenQuery "Q10"
DoCmd.SetWarnings True
me.Requery

ووافنا بالنتائج

[Ahmed_J]

السلام عليكم

انا عملت كده فعلا

لكن اي صفحة من صفحات النموذج  اقف عليها  واضغط الزر  تكون نقس المشكلة قائمة

تم تعديل مارس 5, 2022 بواسطه Ahmed_J

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

31 دقائق مضت, Moosak said:

الأفضل أن ترفق مثال (مرفق) ليتضح الأمر .

 

[Ahmed_J]

السلام عليكم

استاذ @أبو عبدالله الحلوانى استاذ @Moosak

شكرا لكم

مثال مرفق عن ماريده

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

فيه اكواد  حسب  التسلسل  الاول لحذف سجلات الجدول tb2 والثاني  لتشغيل الاستعلام الالحاقي  والثالث  لتحديث الشهر

المطلوب  انه يبقى الجدول tb2 فيه بيانات الشهر السابق والجدول tb1 في بيانات الشهر الحالي

لكن في مشكلة الي شرحتها لكم سابقا

وشكرا لكم

test.accdb

تم تعديل مارس 5, 2022 بواسطه Ahmed_J

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

جرب هذا لعله يوافق مرادك

 

test.accdb

[Eng.Qassim]

لدي سؤال استاذ @Ahmed_J

اذا اردت ان تقوم بترفيع شخص ما ..من معاون مهندس الى مهندس في شهر اذار ..فلماذا تقوم بمسح جميع السجلات في TB1 ومن ثم الحاقها جميعا الى الجدول TB2 وجميعها تاخذ نفس الشهر

مع العلم ان الالحاق يخص شخصا واحد

لا اعلم فربما لديك وجهة نظر مختلفة

 

[Ahmed_J]

استاذي العزيز

قمت بتعديل الملف بالشكل الصحيح

المشكلة باقية في استعلام الالحاق  للجدول tb2  لايقوم بالحاق كل السجلات

تحياتي

test1.accdb

تم تعديل مارس 5, 2022 بواسطه Ahmed_J

[Ahmed_J]

السلام عليكم استاذ قاسم @Eng.Qassim

تحياتي الحارة

انا لا اقوم بحذف سجلات TB1  لانه الجدول الاصلي  فقط تحديث الشهر وانما احذف السجلات في TB2 فقط اعتبره جدول مؤقت

الغاية من هذه العملية كلها (ايجاد الفرق بين راتب الشهر السابق والشهر الحالي)

يعني فقط معرفة من تغير راتبه واظهاره في تقرير مع فرق المبلغ لغرض التدقيق مع المعاملات الورقية

واتمنى ابداء رايك بالموضوع

وشكرا لك

تم تعديل مارس 5, 2022 بواسطه Ahmed_J

[Ahmed_J]

up

test1.accdb

[Eng.Qassim]

تفضل

 

test1(1).accdb

[Ahmed_J]

استاذي العزيز

الملف  لايعمل كما اريد

الجدول TB1 صحيح 100% والتحديث مضبوظ

الخطا في الاستعلام الالحاقي للجدول TB2

الجدول TB2 فيه الخط فقط بالنسبة لاول سجل  (الخطا في حقل  اسم الشهر فقط) المفروض يكون كانون الثاني

تحياتي لك

test1.accdb

تم تعديل مارس 6, 2022 بواسطه Ahmed_J

[Eng.Qassim]

عذرا التبس علي الامر

انظر للمرفق

test1(1).accdb

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

[Ahmed_J]

استاذ قاسم

شكرا لك

اسم الشهر يكون نفسه لكل السجلات  (عند تغييره في اي قيد للراتب يتغيير للكل )

[Eng.Qassim]

اعتقد اني فهمتك الان

يحتاج فقط في تسلسل عمل الاكواد

غيرها كما يلي

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tb1 SET tb1.[الشهر] = [forms]![form]![الشهر]"
DoCmd.SetWarnings True
Dim sql As String
sql = "DELETE tb2.* FROM tb2;"
DoCmd.SetWarnings (warningsoff)
DoCmd.RunSQL (sql)
DoCmd.SetWarnings (warningson)

DoCmd.SetWarnings False
DoCmd.OpenQuery "Q10"
DoCmd.SetWarnings True
Me.Requery

 

[Ahmed_J]

استاذ قاسم

والله تعبتك معي كثير

لكن لايمكن عمل هذا لانه لايناسب عملي

لابد اول شيء حذف سجلات الجدول  وثاني شيء الحاق السجلات وثالث شيء تحديث السجلات

تحياتي