Access - Convertir campo Numero en Autonumeracion

Function ReiniciarAutonumerico(strNombreTabla As String, strNombreCampo As String, Optional ValorInicial As Long = 1)

    Dim strTempTable As String

    Dim strSQL As String

    Dim db As DAO.Database

    Dim cat As Object

    Dim t As Object

    Dim col As Object

    Dim p As Object

    Set db = CurrentDb()

    ' Nombre de la tabla temporal

    strTempTable = "Temp_" & strNombreTabla

    ' Manejo de errores para eliminar la tabla temporal si existe

    On Error Resume Next

    DoCmd.DeleteObject acTable, strTempTable

    On Error GoTo 0 ' Restablecer manejo normal de errores

    ' 1. Crear una tabla temporal para almacenar los datos, sin el campo autonumérico

    strSQL = "SELECT * INTO " & strTempTable & " FROM " & strNombreTabla & " WHERE 1=0;"

    db.Execute strSQL

    ' 2. Insertar los datos en la tabla temporal, excluyendo el campo autonumérico

    strSQL = "INSERT INTO " & strTempTable & " SELECT * FROM " & strNombreTabla & ";"

    db.Execute strSQL

    ' 3. Eliminar todos los datos de la tabla original

    strSQL = "DELETE FROM " & strNombreTabla & ";"

    db.Execute strSQL

    ' 4. Reinsertar los datos desde la tabla temporal a la tabla original

    strSQL = "INSERT INTO " & strNombreTabla & " SELECT * FROM " & strTempTable & ";"

    db.Execute strSQL

    ' 5. Configurar el valor inicial del autonumérico con ADOX

    Set cat = CreateObject("ADOX.Catalog")

    Set cat.ActiveConnection = CurrentProject.Connection

    Set t = cat.Tables(strNombreTabla)

    Set col = t.Columns(strNombreCampo)

    Set p = col.Properties("Seed")

    ' Asignar el nuevo valor inicial al campo autonumérico

    If IsMissing(ValorInicial) Then

        p.Value = Nz(DMax(strNombreCampo, strNombreTabla), 1)

    Else

        p.Value = ValorInicial

    End If

    ' Liberar objetos

    Set p = Nothing

    Set col = Nothing

    Set t = Nothing

    Set cat = Nothing

    ' 6. Eliminar la tabla temporal después de la inserción

    db.Execute "DROP TABLE " & strTempTable & ";"

    ' Liberar el objeto db

    Set db = Nothing

    MsgBox "Campo autonumérico reiniciado exitosamente.", vbInformation, "Le informo"

End Function