+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : سؤال عن الترقيم التلقائي (/showthread.php?tid=33823)
سؤال عن الترقيم التلقائي - mhareek - 16-03-20
السلام عليكم و رحمة الله
اساتذتى الكرام
اريد كل مرة عند ترحيل البينات خانة id تزيد واحد بغض النظر عن المخذوف وغيرة
انا عملت هذا الكود ولكنه لا يعمل
انا قصدت ان كل مرة يرى اكبر رقم ويزيد علية واحد
كود :
add.Refresh
add.Recordset.AddNew
add.Recordset.Fields!ID = add.Recordset(Max(ID) + 1
add.Recordset.Fields!cv = Text8.Text
add.Recordset.Fields!oName = text6.Text
add.Recordset.Fields!rmz = Text5.Text
add.Recordset.Fields!date1 = Text4.Text
add.Recordset.Fields!am = Text3.Text
add.Recordset.Fields!sal = Text2.Text
add.Recordset.Fields!bay = Text1.Text
add.Recordset.Fields!com = Text7.Text
add.Recordset.Update