[m_shrif]

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

[Ashraf Elafify]

اخى الكريم

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

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

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

كما يلى :-

كود :

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

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