منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سوال حول ترقيم تلقائي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : سوال حول ترقيم تلقائي (/showthread.php?tid=18590)

سوال حول ترقيم تلقائي - m_shrif - 26-12-16

السلام عليكم ورحمة الله وبركاته
ارجو افادتي بطريقة كيفية عمل ترقيم تلقائي بمجرد ما اضغط اضافة
ولكم جزيل الشكر,,,,

RE: سوال حول ترقيم تلقائي - Ashraf Elafify - 21-01-17

اخى الكريم

هناك عدة طرق منها

ان يتم البحث عن اكبر قيمه فى خانه الترقيم التلقائى

ثم تجمع عليه واحد

كما يلى :-


كود :
cn1.Open "provider=microsoft.jet.oledb.4.0;data source =" & App.Path + "\Sys.mdb;Jet OLEDB:Database"
If rsitem1.State = 1 Then rsitem1.Close
rsitem1.Open " select max(CompanyID)from CompanyINFO ", cn1, adOpenKeyset, adLockOptimistic
Dim X As Integer
Text1.Text = 0
       Text1.Text = rsitem1.Fields(0).Value
               Text1.Text = Text1.Text + 1
               rsitem1.Close


حيث sys.mdb  هى قاعده البيانات
و الـ  CompanyINFO  هو اسم الجدول
و الــ CompanyID  هى التى سيتم زياده الرقم التلقائى بداخلها
و نقوم بأخذ قيمتها فى التكست بوكس رقم واحد

ثم نجمع القيمه المأخوذة + 1

لتعطى الرقم الجديد