تحديث كميات عناصر الفاتورة دفعة واحدة

[محمدنجار]

السلام عليكم ... اخواني  الكرام ...

:: استخدمت الجملة التالية لتحديث الكمية [vlbleQ] في جدول الاصناف tbl_items من حلال كمية  [qtyin] المواد المدرجة في نموذج تفاصيل فاتورة الشراء [invdt] تحت حدث on exit ,لكن التحديث شمل مادة واحدة فقط وليس كل المواد المدرجة ؟!

:: كيف يمكن تحديث الكمية لكل المواد المدرجة في النموذج الفرعي [invdt] ؟

DoCmd.RunSQL "UPDATE Tbl_Items SET Tbl_Items.vlbleQ = vlbleQ + ([Forms]![invhd]![invdt].[form]![qtyin])_ 
WHERE (((Tbl_Items.itmcode)='" &[Forms]![invhd]![invdt].[form]![itcod] & "'))"

:: الشكر والتقدير للجميع .

تم تعديل أغسطس 3, 2018 بواسطه محمدنجار

[النجاشي]

وعليكم السلام ورحمه الله وبركاته

اخي الفاضل ارفق مثالك راح تحصل علي الاجابه  باذن الله

تحياتي

[محمدنجار]

17 ساعات مضت, ابو زاهر said:

اخي الفاضل ارفق مثالك راح تحصل علي الاجابه  باذن الله

:: تفضل اخي .

UPdate QTY.rar

[النجاشي]

20 دقائق مضت, محمدنجار said:

:: تفضل اخي .

UPdate QTY.rar

ساعه واكون في البيت وابشر حاليا على الموبيل أن شاء الله نقدر نساعدك

[النجاشي]

السلام عليكم 

اخي الفاضل@محمدنجار

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

لكن انت بدك تظهر لك الرصيد الموجود اليس كذالك 

هل يوجد لديك عده فواتير ام النموذج الموجود فقط 

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

تحياتي

[ابو ياسين المشولي]

اتفضل اخي اتمنا يكون المطلوب

عملت الكود عند الخروج من النموذج

بامكانك نعمله حبث شات

On Error GoTo enderr
 DoCmd.SetWarnings False
'النموذج
Set Rs = Forms![frm_SlsInvHd]![frm_TInvDt].Form.RecordsetClone
'الجدول للتحري
   Set RsEdit = CurrentDb.OpenRecordset("Tbl_Items")

Rs.MoveFirst
'دوران
Do While Not Rs.EOF
     RsEdit.MoveFirst
'دوران للجدول
   Do Until RsEdit.EOF
   'اذا وجد السجل
    If RsEdit!itname = Rs!itname Then
    'تحريره
         RsEdit.Edit
         RsEdit!vlbleQ = RsEdit!vlbleQ + Rs!vlbleQ
         RsEdit.Update


   End If
   RsEdit.MoveNext
   Loop


Rs.MoveNext
Loop
Set Rs = Nothing
Set RsEdit = Nothing

MsgBox " تم تعديل السجلات الى الجدول بنجاح ", vbInformation, "تم "
Exit Sub
enderr:
MsgBox " خطا في البيانات ", vbInformation, "لم يتم التعديل"

 DoCmd.SetWarnings True

 

UPdate QTY.rar

[محمدنجار]

في ٤‏/٨‏/٢٠١٨ at 19:35, ابو زاهر said:

السلام عليكم 

اخي الفاضل@محمدنجار

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

لكن انت بدك تظهر لك الرصيد الموجود اليس كذالك 

هل يوجد لديك عده فواتير ام النموذج الموجود فقط 

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

:: لا تهتم ياخي الكريم @ابو زاهر

شكرا لك على استجابتك للموضوع ومحاولتك ايجاد الحل .... تحياتي

[ابو ياسين المشولي]

الاخ محمدنجار

لم ترد على ما قدمته

هل هو المطلوب

[محمدنجار]

في ٤‏/٨‏/٢٠١٨ at 22:42, ابو ياسين المشولي said:

تفضل اخي اتمنى يكون المطلوب

عملت الكود عند الخروج من النموذج

بامكانك نعمله حبث شات

:: اخي الكريم  @ابو ياسين المشولي

:: شكرا لك على هذا الكود الرائع فهو يعمل بشكل ممتاز .. نعم هذا هو المطلوب بالضبط .. ادعوا الله لك ان تنال خير الدنيا والاخرى .

ملاحظة : تم وضع الكود عند حدت Exit في الفرعي اعتقد يكون فعال اكثر .... تحياتي

[ابو ياسين المشولي]

2 دقائق مضت, محمدنجار said:

:: اخي الكريم  @ابو ياسين المشولي

:: شكرا لك على هذا الكود الرائع فهو يعمل بشكل ممتاز .. نعم هذا هو المطلوب بالضبط .. ادعوا الله لك ان تنال خير الدنيا والاخرى .

ملاحظة : تم وضع الكود عند حدت Exit في الفرعي اعتقد يكون فعال اكثر .... تحياتي

بالتوفيق اخي محمدنجار

الله يوفق الجميع

[محمدنجار]

الان, ابو ياسين المشولي said:

لم ترد على ما قدمته

هل هو المطلوب

:: نعم اخي هذا المطلوب .. واعتذر عن التاخير في الرد ... لقد كانت حالتي الصحيه ليست على مايرام ...