بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'كود يعمل ببطء'.
تم العثور علي 1 نتيجه
-
السلام عليكم ... اخوتي الكرام ... :: هذا كود من الاخ @ابو ياسين المشولي (جزاه الله خيرا) ... لتحديث كميات الفاتورة دفعة واحدة وهو يعمل بشكل جيد ::لكنه بطيء نوعا ما عند اضافة شرط تعبئة المادة بعد السطر العاشر (صندوف , سيت , قطعة) 🙄 :: ارجوا منه او من احد الاساتذه الكرام التعديل عليه او استبداله بأخر ليصيح التحديث اكثر سرعة . مع كل التقدير 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
