كيفية الترقيم التلقائي

عزيزي هذا كود على السريع اتمنى انو يفيدك

طبعا باختصار انا قرأت اخر رقم موجود بالجدول وعملتلو فورمات اتمنى يكون مفهوم

الشي التاني هذا الكود لازم تكتبو بعد ما تسوي عملية استعلام

ا و ممكن تخزن الرقم مثلا 1 في ملف نصي وتقوم بقراءة الملف النصي وعمل الفورمات عليه وهكذا فقط كفكرة

If rscat.RecordCount = 0 Then
Counter = 1

Else
rscat.MoveLast


هنا اسم الحقل الذي يحتوي على الرقم وهو categoryid

Counter = rscat.Fields!CategoryID
Counter = Counter + 1

text1.text=format(counter,"000#")

End If