[محمد اسماعيل]

السلام عليكم

اريد كود استعادة الترقيم التلقائي بعد الحذف

مع العلم اني جربت طريقة ترقيم هيدر كل صف ولكن عند الترتيب تصاعدة وتنازلي تحدث مشكلة وعند تجميد الترتيب تحدث مشكلة فطرقت الطريقة ككل 

اريد كود الترقيم التلقائي بعد حذف سجل

حاولت بالكود التالي ولكن لاشيء

كود :

 Try
           Dim cmd As New OleDb.OleDbCommand("", con)

           con.Open()
           cmd.CommandText = "ALTER TABLE purchcard_tb DROP CONSTRAINT PrimaryKey"
           cmd.ExecuteNonQuery()

           cmd.CommandText = "ALTER TABLE purchcard_tb DROP COLUMN ID_purchcard"
           cmd.ExecuteNonQuery()

           cmd.CommandText = "ALTER TABLE purchcard_tb ADD COLUMN ID_purchcard COUNTER CONSTRAINT [PrimaryKey] Primary key"
           cmd.ExecuteNonQuery()

           MsgBox(" تمت عمليةاعادة ترقيم السجلات ")
           con.Close()

       Catch

       End Try