منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كود كتابة آخر رقم بTextbox ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] كود كتابة آخر رقم بTextbox ؟ (/showthread.php?tid=3446)



كود كتابة آخر رقم بTextbox ؟ - abdouhai - 12-07-14

السلام عليكم

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

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

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

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


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


RE: كود كتابة آخر رقم بTextbox ؟ - vbnet - 12-07-14

.....

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

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

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

.....


RE: كود كتابة آخر رقم بTextbox ؟ - abdouhai - 13-07-14

السلام عليكم

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

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

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

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

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

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

و رمضان كريم عليك و على المسلمين اجمعين....آمين


RE: كود كتابة آخر رقم بTextbox ؟ - cema - 12-10-15

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

Dim x As Integer
("x = ("0000
Do Until da.EOF
x = x + 1
("Text5.Text = Format(x, "0000
da.MoveNext
Loop



RE: كود كتابة آخر رقم بTextbox ؟ - احمداحمداحمد6 - 19-10-15

اعمل ذلك مع قواعد بيانات access

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