مربعان سرد مرتبطين بالكود , كيف نصل الى الحل الامثل

السلام عليكم 

لدي حقلان q , q1 في نموذجين مرتبطين باالكود

Dim a As Double
 Dim b As Double
 Dim m As Double
 
 a = Me![q1]
 b = Nz(Me![q])
 
  m = a + b
  Me![q] = m

عند تغير قيمة q1 لا يتم تغير قيمة q بنفس المقدار , وانما يضاف عليه ولو حتى عند مسح قيمة q1 , تبقى القيمة في q موجودة  . مثلا عند وضع رقم 5 في q1 ثم حفضه و ثم تغير قيمة q1  الى 2 يكون التاتج 7 في q بدل 2.

المطلوب : تغير الكود بحيث يودي الى مجموع q1 في q وشكرا