منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كود كتابة آخر رقم بTextbox ؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

لدي برنامج أسجل فيه معلومات و من ضمن أعمدة قاعدة البيانات هناك عمود يسجل فيه ترقيم متسلسل مثلا 1.2.3.4.5.6........ يعني الرقم التسلسلي للسجلات.

لدي Textbox . أريد عند تسجل سجل جديد يظهر فيه آخر رقم تم تدوينه + 1

للزيادة في الشرح أعطي رقما:

آخر رقم سجلته كان 100 أريد أن يظهر في TEXTBOX عند تسجيل سجل جديد يكون مكتوب في هذا textbox الرقم 101 أوطوماتكيا.


أرجو الرد على سؤالي و شكرا لكم جميعا.
.....

لا أنصحك بالطريقة التي ذكرتها

كل الشركات لا تكتب لك رقم المعاملة إلا بعد التأكد من تسجيلها باستخدام استعلام ثاني "SELECT @@IDENTITY" بعد الإضافة مباشرة وقبل غلق الإتصال بقاعدة البيانات

وهذه الطريقة مفيده خصوصاً إذا تم تطوير البرنامج للعمل على شبكة

.....
السلام عليكم

شكرا لك أخي على الرد .

بالنسبة لي لا أعمل بهذا البرنامج على الشبكة. و لكن هو برنامج خاص بي أسجل به المعلومات فقط

و أريد الرقم التسلسلي فقط لتنظيم المعلومات عند البحث بهذا الرقم التسلسلي أذهب مباشرة للشئ المطلوب.

والقصد من هذا السؤال هو أن يظهر لي الرقم أوطوماتكيا دون الدخول إلى قاعدة البيانات و معرفة الرقم الأخير ربما يمر وقت دون اسجل شئ و لا

أتذكر آخر رقم سجلته.

لهذا اطلب مساعدتك لإيجاد حل لسؤالي مشكورا.

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

Dim x As Integer
("x = ("0000
Do Until da.EOF
x = x + 1
("Text5.Text = Format(x, "0000
da.MoveNext
Loop
اعمل ذلك مع قواعد بيانات access

حيث اذا كان الرقم 1000 ضعه في الحقل الي اسمه num
mun.ado =y
x=1
x=x+y
text1.text=x