[Abu Ehab]

نــــــــعم . ... يحدث هذا لأنك تقوم بحذف بعض السجلات وبما أن الحقل ترقيم تلقائي لا يتراجع في الترقيم .

الحل :
حـذف الحقل وأعادة أنشــــــــاءه من جديد واعادة الترقيم المتسلسل .

أليـــــــــــك الكود :

PHP كود :

Try
            '''''' Abu Ehab
            Application.DoEvents()

            If Cn.State = ConnectionState.Open Then Cn.Close()
            Dim ReNomCmd As New OleDb.OleDbCommand

            Cn.Open()
            '--------------------------------------------------------------

            With ReNomCmd
                .Connection = Cn
                .CommandText = "ALTER TABLE TB DROP COLUMN ID "
                .ExecuteNonQuery()

                .CommandText = "ALTER TABLE TB ADD COLUMN ID COUNTER "
                .ExecuteNonQuery()

                .CommandText = "ALTER TABLE TB ALTER COLUMN ID Long"
                .ExecuteNonQuery()
            End With

            '------------------------------------------------------------------
            Cn.Close()

            MsgBox("Okey>>>Done")

            Form1_Load(Nothing, Nothing)

        Catch ex As Exception
            MsgBox(Err.Description, Err.Number)
        End Try 


وفــــــــــقك الله .