تعديل بسيط في الكود

السلام عليكم الكود المرفق لتعداد اراقام شهادات فيه مشكلة عند ما يصل رقم الشهادة 1000 يكرر الرقم 1000 واريدها ياتي بما يلي 1000 حتى 10000 او اكثر عين يستمر في الترقيم 

Private Sub No_certificate_DblClick(Cancel As Integer)
    If IsNull(Me![No certificate]) = False Then
            If MsgBox("هذا الرقم موجود سابقا هل ترغب في استبداله", vbYesNo) = vbNo Then Exit Sub
    End If
    Dim x As Integer
    x = Nz(DMax("[No certificate]", "tcertifcate"), 0) + 1
    Me![No certificate] = x
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    End Sub