مشكلة في هذا الكود

لدي الكود التالي:

وهو يقوم بنقل المعلومات من النموذج غير المنضم الى الجدول

المشكلة في هذا الكود انه لا يقبل التعديل

يعني انا اريد ان ازيد حقل جديد في الجدول وانشء له خانه في النموذج واضيفهم الى الكود

لكن الكود يفتح على طول الى صفحة الفيجول بيزك ويعطيني خطأ في الحقل الجديد بلون ازرق

هل من يستطيع ان يجعل لى هذا الكود قابل للتعديل اي : استطيع ان اضيف حقول جديدة متى ما اريد

ولكم جزيل الشكر

DoCmd.GoToRecord , , acNewRec

r = b * o + 2

Me.cc = a

Me.bb = b

Me.cc = c

Me.dd = d

Me.ee = e

Me.ff = f

Me.gg = g

Me.hh = h

Me.ii = i

Me.jj = j

Me.kk = k

Me.ll = l

Me.mm = m

Me.nn = n

Me.oo = o

Me.pp = p

Me.qq = q

Me.rr = r

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

DoCmd.GoToRecord , , acNewRec

MsgBox "لقد تم الترحيل بنجاح", , "SADDIQ"

b = Null

c = Null

d = Null

e = Null

f = Null

g = Null

h = Null

i = Null

j = Null

k = Null

l = Null

m = Null

n = Null

o = Null

p = Null

q = Null

r = Null

End Sub