26-12-16, 08:53 PM
21-01-17, 06:33 PM
اخى الكريم
هناك عدة طرق منها
ان يتم البحث عن اكبر قيمه فى خانه الترقيم التلقائى
ثم تجمع عليه واحد
كما يلى :-
حيث sys.mdb هى قاعده البيانات
و الـ CompanyINFO هو اسم الجدول
و الــ CompanyID هى التى سيتم زياده الرقم التلقائى بداخلها
و نقوم بأخذ قيمتها فى التكست بوكس رقم واحد
ثم نجمع القيمه المأخوذة + 1
لتعطى الرقم الجديد
هناك عدة طرق منها
ان يتم البحث عن اكبر قيمه فى خانه الترقيم التلقائى
ثم تجمع عليه واحد
كما يلى :-
كود :
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
لتعطى الرقم الجديد