كود الترقيم التلقائى شغال بس يبدا من الصفر

[safwatscc]

السلام عليكم
هذا كود ترقيم تلقائى من عمل احد الاخوة
وشغال كويس جدا ومفيد بس عند اعادة الترقيم يبدا من رقم صفر
نرجو التعديل فية ليبدا من رقم 1

وشكرا

Private Sub Renum_Click()
Dim msg As Variant
co = DCount("*", "[student]")
DoCmd.GoToRecord , , acFirst
For I = Val(txtCount) To co + Val(txtCount) - 1
ID = Str(I)
If I <> (co + Val(txtCount) - 1) Then
DoCmd.GoToRecord , , acNext
End If
Next
End Sub
Private Sub Form_BeforeInsert(Cancel As Integer)
Me!ID = Nz(DMax("[id]", "[student]"), 0) + 1
End Sub