اضافة حقل جديد الى متغير

اريد اضافة حقل الى كود حساب متغيرات كي يتم اضافة الرقم الى جميع السجلات

الحقل الموجدود بالجدول اسمه Numbr

يأخذ القيمه من مربع نص غير منظم بالفورم بمسمى Numbr1وهو رقم ترقيم تلقائي يأخذ اكبر قيمه من الجدول عن طريق الدالة DLookup

Me![Numbr1] = DLookup("max([Numbr])", "[Holly]", "") + 1

وهذا هو كود حساب المتغير الذي اريد اضافة حقل Numbr اليه

Private Sub savaddnew_Click()
DoCmd.SetWarnings False
Dim i As Integer, tdat, tdy, yytdat, comp1, comp2, comp3, comp4, comp5, comp6 As String
'Dim i As Integer, tdat, tdy As String
For i = 0 To Me.Moditoha - 1
tdat = UmFormat(UmDateAdd("d", i, Me.[HI-Dates]), Dattewads.Format)
 yytdat = Year(tdat)
comp1 = yytdat & "/10/01"
comp2 = yytdat & "/10/02"
comp3 = yytdat & "/10/03"
comp4 = yytdat & "/12/10"
comp5 = yytdat & "/12/11"
comp6 = yytdat & "/12/12"
tdy = UmFormat(UmDateAdd("d", i, Me.[HI-Dates]), "dddd")
DoCmd.RunSQL "insert into hollytawed([T-Day],[HI-Date],[PcDigit]) Values('" & tdy & "','" & tdat & "'," & [PcDigit] & ");"
If StrComp([tdat], [comp1]) = 0 Or StrComp([tdat], [comp2]) = 0 Or StrComp([tdat], [comp3]) = 0 Or StrComp([tdat], [comp4]) = 0 Or StrComp([tdat], [comp5]) = 0 Or StrComp([tdat], [comp6]) = 0 Then
DoCmd.RunSQL "insert into hollytawed([T-Day],[HI-Date],[PcDigit]) Values('" & tdy & "','" & tdat & "'," & [PcDigit] & ");"
End If
Next
'-------------------------------------------

تحياتي للجميع