تعديل كود تحديث الكميات بطيء

[محمدنجار]

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

:: هذا كود من الاخ @ابو ياسين المشولي (جزاه الله خيرا) ... لتحديث كميات الفاتورة دفعة واحدة وهو يعمل بشكل جيد

::لكنه بطيء نوعا ما عند اضافة شرط تعبئة المادة بعد السطر العاشر (صندوف , سيت , قطعة) 🙄

:: ارجوا منه او من احد الاساتذه الكرام التعديل عليه او استبداله بأخر  ليصيح التحديث اكثر سرعة . مع كل التقدير

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, "لم يتم التعديل"

 

UPdate QTY.rar

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

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

هل هذا ينفع

لا اعلم ما هو البطى

ولكن لعل بيكون اسرع

في وحده نمطيه

وضعت لك الكود

UPdate QTY.accdb

تم تعديل أكتوبر 4, 2018 بواسطه ابو ياسين المشولي

[محمدنجار]

11 ساعات مضت, ابو ياسين المشولي said:

:: شكرا اخي ابو ياسين اعتقد الموضوع صار افضل .. جزاك الله عني خير

 

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

بالتوفيق اخي