[cema]

هذه اول مشاركة لى فى هذا الموقع وأرجوا ان يتم الإستفاده من هذا الكود الخاص بالترقيم والذى تعبت كثيرا فى البحث عنه على النت ولم أجده سوى بتوفيق من الله
بعد اضافة تعديلات عليه ويتم كتابته فى  حدث فورو لوود   

Dim x As Integer

("x = ("0000

Do Until da.EOF

x = x + 1

("Text5.Text = Format(x, "0000

da.MoveNext

Loop