محمدنجار قام بنشر أغسطس 3, 2018 مشاركة قام بنشر أغسطس 3, 2018 (معدل) السلام عليكم ... اخواني الكرام ... :: استخدمت الجملة التالية لتحديث الكمية [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 بواسطه محمدنجار رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أغسطس 3, 2018 مشاركة قام بنشر أغسطس 3, 2018 وعليكم السلام ورحمه الله وبركاته اخي الفاضل ارفق مثالك راح تحصل علي الاجابه باذن الله تحياتي رابط هذا التعليق شارك More sharing options...
محمدنجار قام بنشر أغسطس 4, 2018 الكاتب مشاركة قام بنشر أغسطس 4, 2018 17 ساعات مضت, ابو زاهر said: اخي الفاضل ارفق مثالك راح تحصل علي الاجابه باذن الله :: تفضل اخي . UPdate QTY.rar رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أغسطس 4, 2018 مشاركة قام بنشر أغسطس 4, 2018 20 دقائق مضت, محمدنجار said: :: تفضل اخي . UPdate QTY.rar ساعه واكون في البيت وابشر حاليا على الموبيل أن شاء الله نقدر نساعدك رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أغسطس 4, 2018 مشاركة قام بنشر أغسطس 4, 2018 السلام عليكم اخي الفاضل@محمدنجار صراحه لم استطع عمل ذالك حاولت بدون نتيجه السموحه منك باذن الله تجد الحل من الخبراء لكن انت بدك تظهر لك الرصيد الموجود اليس كذالك هل يوجد لديك عده فواتير ام النموذج الموجود فقط الرصيد لازام يكون يكون لدبيك استعلام تجميع للحركات وتستدعيه عبر دي لوكب للفاتوره تحياتي رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 4, 2018 مشاركة قام بنشر أغسطس 4, 2018 اتفضل اخي اتمنا يكون المطلوب عملت الكود عند الخروج من النموذج بامكانك نعمله حبث شات 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 2 رابط هذا التعليق شارك More sharing options...
محمدنجار قام بنشر أغسطس 5, 2018 الكاتب مشاركة قام بنشر أغسطس 5, 2018 في ٤/٨/٢٠١٨ at 19:35, ابو زاهر said: السلام عليكم اخي الفاضل@محمدنجار صراحه لم استطع عمل ذالك حاولت بدون نتيجه السموحه منك باذن الله تجد الحل من الخبراء لكن انت بدك تظهر لك الرصيد الموجود اليس كذالك هل يوجد لديك عده فواتير ام النموذج الموجود فقط الرصيد لازام يكون يكون لدبيك استعلام تجميع للحركات وتستدعيه عبر دي لوكب للفاتوره :: لا تهتم ياخي الكريم @ابو زاهر شكرا لك على استجابتك للموضوع ومحاولتك ايجاد الحل .... تحياتي رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 5, 2018 مشاركة قام بنشر أغسطس 5, 2018 الاخ محمدنجار لم ترد على ما قدمته هل هو المطلوب رابط هذا التعليق شارك More sharing options...
محمدنجار قام بنشر أغسطس 5, 2018 الكاتب مشاركة قام بنشر أغسطس 5, 2018 في ٤/٨/٢٠١٨ at 22:42, ابو ياسين المشولي said: تفضل اخي اتمنى يكون المطلوب عملت الكود عند الخروج من النموذج بامكانك نعمله حبث شات :: اخي الكريم @ابو ياسين المشولي :: شكرا لك على هذا الكود الرائع فهو يعمل بشكل ممتاز .. نعم هذا هو المطلوب بالضبط .. ادعوا الله لك ان تنال خير الدنيا والاخرى . ملاحظة : تم وضع الكود عند حدت Exit في الفرعي اعتقد يكون فعال اكثر .... تحياتي 1 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 5, 2018 مشاركة قام بنشر أغسطس 5, 2018 2 دقائق مضت, محمدنجار said: :: اخي الكريم @ابو ياسين المشولي :: شكرا لك على هذا الكود الرائع فهو يعمل بشكل ممتاز .. نعم هذا هو المطلوب بالضبط .. ادعوا الله لك ان تنال خير الدنيا والاخرى . ملاحظة : تم وضع الكود عند حدت Exit في الفرعي اعتقد يكون فعال اكثر .... تحياتي بالتوفيق اخي محمدنجار الله يوفق الجميع 1 رابط هذا التعليق شارك More sharing options...
محمدنجار قام بنشر أغسطس 5, 2018 الكاتب مشاركة قام بنشر أغسطس 5, 2018 الان, ابو ياسين المشولي said: لم ترد على ما قدمته هل هو المطلوب :: نعم اخي هذا المطلوب .. واعتذر عن التاخير في الرد ... لقد كانت حالتي الصحيه ليست على مايرام ... 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.