ازاي اعمل تكست بوكس ترقيم تلقائي

سؤالك هذا في الداتا نعم

تروح على قاعدة البيانات نفسها وتخلي نوع الحقل .. ترقيم تلقائي فقط لا غير

text1.text=" Records " & Adodc1.Recordset.Bookmark & "/" & Adodc1.Recordset.RecordCount

شكرا علي الردود ولكن مش دا اللي انا اقصده انا اقصد ان الرقم تلقائي يظهر في التكست بوكس المربوطة بالحقل ده من الفيجوال بيسك وليس من اكسيس من الفيجوال بيسك 6 علما بأني استخدم مكتبة الأدو اكتيف اكس كنترول 2.8 وشكرا

السوال غير واضح.. أعتقد أن إجابة سوالك هكذا

لنفرض تكست الترقيم ( Text1 )

ضع الكود في كوماند ( جديد )

Text1=1
في كوماند الحفظ ضع الكود التالي
Text1=val(text1)+1

===================
أما لو أردت ربطة بقاعدة البيانات فيكون هكذا ... بعد فتح الجدول المراد ترقيم التكست بأعداده ضع الكود هذا في الفورم لود
if rs.recordcount = 0 then
Text1=1
exit sub
else
n= rs.recordcount +1
n هنا متغير سوف يحمل قيمة عدد السجلات في قاعدة البيانات		  
Text1=val(n)
end if
أتمنا أن اكون افدتك... تحياتي

الي الأخ محمد Vb اود ن اشكرك جدا لإن الكود بتاعك هو الكود المثل وهذا ما كنت اريده بالظبط شكرا ليك جدا وكل سنة وحضرتك طيب وعيد سنة وسنة سعيدة علينا وعليك وعلي المسلمين كلهم ان شاء الله

شكرا شكرا