ترقيم

تفضل أخي الكود

Text1.Text = Val(Text1.Text) + 1

ضعه في الكوماند

اناعاوز في حالة الفورم لود يكون التكست محتوى علي اخر رقم تم تسجيله

وكتبت الكود بالطريقة الاتية

text1.text=val(text1.text)

وعند اللود للفورم يكون قيمة التكست صفر ثم اضيف عليه ثم اخرج وادخل مرة اخرى يرجع تاني قيمة التكست صفر

وعند اضافة اكثر من مرة بيعمل ايرور

وشكرا جزيلا

أخي انا فهمت انك تريد أن تحفظ القيمة المدخلة من قبل المستخدم وبمجرد فتح البرنامج تظهر تلك القيمة ...صح ؟!

اذا كان هذا قصدك فرأي أنك تقوم بحكفظ القيمة في ملف نص أو في ملف قاعدة بيانات

والله أعلم

كما ذكر الاخ medo انه يجب عليك تخزين القيم في مكان ما وانا اقترح عليك في الريجستري لسهولة التخزين به وهذه الطريقة

Private Sub Command1_Click()
Dim x As Integer
x = Val(Text1)
x = x + 1
Text1 = x
SaveSetting "tareqvb", "mydb", "autonum", x

End Sub

Private Sub Form_Load()
Text1 = Val(GetSetting("tareqvb", "mydb", "autonum", 0))
End Sub

شكرا علي الكود ولكنه مش شغال

وارجوا شرح للكود وشكرا

أرفق لك المثال  ولا  اعرف ما  الذي  لم  يعمل  معك

sample.rar

الشرح  

Text1 = Val(GetSetting("tareqvb", "mydb", "autonum", 0))

GetSetting هي لاستدعاء قيمة في الريجستري

tareqvb  اسم برنامجك او  اي اسم تختاره  للتميز عن البرامج الاخرى

 mydb  تقسم الى افرع داخل مجلد التطبيق في الريجستري

autonum  متغيير  لتخزين الرقم

0  القيم الافتراضية

savesetting لتخزين في الريجستري وبقية القيم  كما  هي  في الاستدعاؤء من الريجستري

وبقية الكود  هو  لاضافة 1 على القيمة السابقة

شكرا جزيلاا وبارك الله فيك والمثال واضح

وكن انا عندى عدد 6 سجلات مخزنين في الداتا بيز وعند كتابة الكود وعند الدخول علي الشاشة كام الرقم في التكست 14

المفروض يديني الرقم 7 وبعد ذلك اكمل علي هذا الرقم

ارجوا ان يتسع صدرك لهذة الاسئلة وشكرا

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

text1.text = Rs.RecordCount

تحياتي

اخي الحبيب اريد التوضيح اكثر من ذلك واين اضع هذا الكود

اخي الكريم

ارجو التوضيح اكثر لما تريد عمله فانت طلبت في البداية عمل عداد وقد تم ذلك ولكنك لم تتكلم عن قاعدة البيانات