مساعدتي تحديث السجلات دفعة واحدة

لدي مقارنة بين 3 سجلات بسجل رئيسي

صورة من السجل الرئيسي

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

صورة النموذج

هل من طريقة لتعديل الكود بحيث عند فتح النموذج يقوم بتحديث جميع السجلات ( حيث ان التنقل متعب لعمل التحديث )

Rem في هذه التعليمات سنقوم بتغيير لون مربع نص و تغيير قيمه زر خيار

Dim x, xxx
'العد في جدول SecurityServlet 1
'في الجدول يساوي مربع النص الهويه في النموذجIDmozf بشرط حقل
x = Nz(DCount("*", "SecurityServlet 1", "[IDmozf]=   form![TextID]"), 0)

'نفس الفكره السابقه لكن بختلاف اسم الجدول
xx = Nz(DCount("*", "LABAR", "[IDmozf]=   form![TextID]"), 0)

'نفس الفكره السابقه لكن بختلاف اسم الجدول
xxx = Nz(DCount("*", "muqem", "[IDmozf]=   form![TextID]"), 0)


'حتي لا يفتح سجل جديد التاكد من ان السجل غير جديد
If Me.NewRecord = False Then
'اذا كان المتغير لا يساوي صفر اي في جدول التامينات
If x <> 0 Then
'زر الخيار يساوي صح
Me.aml.Value = -1
'مربع النص لونه اخضر
Me.TextW.BackColor = vbGreen
Else
'زر الخيار يساوي 0 اي لا يوجد عليه صح
Me.aml.Value = 0
'ولون مربع النص احمر
Me.TextW.BackColor = vbRed

End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''نفس الشرح السابق
'اذا كان المتغير لا يساوي صفر في جدول وزارة العمل
If xx <> 0 Then
Me.Tamn.Value = -1
Me.TextG.BackColor = vbGreen
Else
Me.Tamn.Value = 0
Me.TextG.BackColor = vbRed

End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''نفس الشرح السابق
'اذا كان المتغير لا يساوي صفر في جدول مقيم
If xxx <> 0 Then
Me.muq.Value = -1
Me.TextR.BackColor = vbGreen
Else
Me.muq.Value = 0
Me.TextR.BackColor = vbRed


End If
End If

الرجاء المساعدة من لديه حلول ودمتم,,,,