تطبيق كود فيجوال على الاستعلام بدلا من النموذج

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

أرجو التكرم بالمساعدة في تحقيق المطلب التالي:

ملخص الموضوع:

كتبت الكود الأتي في نموذج وهو يعمل بشكل جيد ولا إشكال حيث يتم تنفيده مع كل عملية تحديث تتم في النموذج.

نص الكود:

Private Sub Amount_AfterUpdate()

If [EX] = 1 Then

[AgentValue] = [Amount] * [Pay]

End If

If [EX] = 2 Then

[AgentValue] = [Amount] / [Pay]

End If

End Sub

المطلوب:

أن يتم تطبيق نفس وظيفة الكود المذكور ولكن داخل الاستعلام.

السبب:

بعد حفظ عدد من السجلات يحتاج مدخل البيانات أحيانا أن يغير قيمة الحقل [pay] في الجدول المصدر ويريد أن ينطبق تغيير القيمة على كافة السجلات السابق حفظها في النماذج فلا يتم تغيير قيمة الحقل [AgentValue] إلا إذا عاد إلى كافة السجلات المدخلة سابقا وعمل التغيير يدويا.

فلو أن الكود المذكور يتم تنفيذه داخل استعلام لأغنى المستخدم عن كود الفيجوال الذي في النموذج.