عبد الله قدور قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 (معدل) السلام عليكم ورحمة الله وبركاته اخواني الكرام عندي هذا الكود أريد من خلاله نقل تحديث بيانات الجدول الاول من بيانات الجدول الثاني باستخدام recordset لكن تظهر رسالة خطأ تقول انه لا يوجد سجل Set DB = CurrentDb Set RsW = DB.OpenRecordset("item") ' جدول الوجهة Set RsM = DB.OpenRecordset("tmpadvb") 'جدول المصدر Do Until RsM.BOF RsW.MoveFirst Do Until RsW.BOF If RsW!id = RsM!ItId Then RsW.Edit RsW!LastDate = RsM!ExDate RsW!Cost = RsM!Price RsW.Update Exit Do End If RsW.MoveNext Loop RsM.MoveNext Loop RsM.Close RsW.Close Set DB = Nothing هذه هي رساله الخطا تم تعديل نوفمبر 9, 2019 بواسطه عبد الله قدور
jjafferr قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 وعليكم السلام 🙂 BOF معناه Begining of File ، اي بداية الملف ، وفي الواقع مافي سجل قبل BOF 🙂 يجب ان تستعمل EOF 🙂 جعفر 2
jjafferr قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 وتعديل على الكود علشان يعمل اسرع 🙂 Set DB = CurrentDb Set RsW = DB.OpenRecordset("item") ' جدول الوجهة Set RsM = DB.OpenRecordset("tmpadvb") 'جدول المصدر Do Until RsM.EOF RsW.FirstFirst "id=" & RsM!ItId RsW.Edit RsW!LastDate = RsM!ExDate RsW!Cost = RsM!Price RsW.Update if RsW.nomatch then 'اذا مافي هذا السجل ، شو تريد عمله end if RsM.MoveNext Loop RsM.Close: set RsM=nothing RsW.Close: set RsW=nothing Set DB = Nothing جعفر 5
عبد الفتاح كيرة قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 (معدل) في 9/11/2019 at 18:55, عبد الله قدور said: RsW.MoveFirst Do Until RsW.BOF Expand منطقيا كيف يتوالى هذان السطران في 9/11/2019 at 19:15, jjafferr said: RsW.FirstFirst Expand انتبه أستاذنا تم تعديل نوفمبر 9, 2019 بواسطه عبد الفتاح كيرة
عبد الله قدور قام بنشر نوفمبر 9, 2019 الكاتب قام بنشر نوفمبر 9, 2019 في 9/11/2019 at 19:08, jjafferr said: جب ان تستعمل EOF 🙂 Expand حياك الله وبياك اخي جعفر لم انتبه اني استخدم التعبير الخطأ الى ان ذكرت انت ذلك جزاك الله كل خير 2
jjafferr قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 بس اسهل واسرع لك اذا عملت استعلام تحديث 🙂 جعفر هذه الطريقة تأخرك كثيرا : If RsW!id = RsM!ItId Then تصور اذا عندك 10,000 او 20,000 سجل او اكثر ، فانت تطلب من الكود ان يبحث فيهم سجل بسجل ، ولكل سجلات الجدول المصدر !! جعفر 3
النجاشي قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 في 9/11/2019 at 19:24, jjafferr said: بس اسهل واسرع لك اذا عملت استعلام تحديث 🙂 جعفر هذه الطريقة تأخرك كثيرا : If RsW!id = RsM!ItId Then تصور اذا عندك 10,000 او 20,000 سجل او اكثر ، فانت تطلب من الكود ان يبحث فيهم سجل بسجل ، ولكل سجلات الجدول المصدر !! جعفر Expand نعم استاذي لقد جربت الكود على 250 الف سجل وكان بطي جدا فرجعت الي استعلام تحديث الحمدلله انتهت المشكله الا عاجبني فيك استاذي الغالي انك ترد علينا بالاجوابه ثم تعقب علينا بالطرق الصحيحه وهذا ممتاز جدا شكرا اليك ابو الجعافر 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.