طلب كود استعلام تحديث البيانات في حقل بشرط تجاورالقيم في الحقلين وجدولين مختلفين

[mr steev]

السلام عليكم 

هذا ما استطعت الوصول إليه في صياغة المطلوب المعقد بعض الشيء

فيرجى من ذوي الخبرة مساعدتي في طلبي

لدينا نموذج MainAB الموجود في قاعدة البيانات المرفقة والمطلوب:

أريد عند ضغط زر (Numbering) تحديث القيمة الموجودة في حقل A إلى ما يجاورها في الحقل B في جدول AB 
أي: يقوم الكود بالبحث في جدول AB وفي الحقل B تحديدا عن جميع السجلات المطابقة للحقل  B في هذا النموذج ثم تحديث القيمة الموجودة في الحقل A إلى ما يجاورها في الحقل B في الجدول AB

 

MainAB.rar

تم تعديل أبريل 9, 2016 بواسطه mr steev

[كرار صبري _ أبو جنى]

11 ساعات مضت, mr steev said:

السلام عليكم 

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

نضع الكود التالي في حدث عند الضغط على الزر

Me.A = DLookup("[a]", "ab", "[b]=" & Me.B)

كرار ... 

MainAB 2.rar

[mr steev]

السلام عليكم أخي الكريم 

جزاك الله خيرا لاجتهادك

ولكن ما طلبنه في الكود هو عكس ما قدمته لي في الحل

وهو أني أريد ترحيل قيمة الحقل A من النموذج MainAB إلى السجلات في جدول AB بحيث تتجاور مع ما يقابلها  في الحقل B

وليس ارجاع القيمة من الجدول AB بل الترحيل للجدول AB

وشكرا

وبعد عدة محاولات توصلت لكود وأصبح 100%

ضع الكود التالي في حدث عند الضغط على الزر

    DoCmd.RunSQL "UPDATE [AB] " & _
                 "SET A = form!A " & _
                 "WHERE B = " & Me.B

مصطفى ... 

تم تعديل أبريل 9, 2016 بواسطه mr steev

[كرار صبري _ أبو جنى]