Create an Autonumber field? (1 Viewer)

[COLOR=Green]'Delete all records in your table[/COLOR]
Public Sub DeleteAllRecords()
    CurrentDb().Execute "DELETE * FROM YourTableNameHere"
End Sub

[COLOR=Green]'Delete the ID_Number [AutoNumber] field from the your table[/COLOR]
Public Sub DeleteTableField()
    DoCmd.RunSQL ("ALTER TABLE YourTableNameHere" & "DROP COLUMN ID_Number;")
End Sub

[COLOR=Green]'Move the new ID_Number [AutoNumber] field in your table to the beginning[/COLOR]
Public Sub MoveTableField()
    Call SetFieldPosition("YourTableNameHere", "ID_Number", 0)
End Sub

[COLOR=Green]'Create the new ID_Number [AutoNumber] field in your table[/COLOR]
Public Sub AddTableField()
    Call CreateAutoNumberField("YourTableNameHere", "YourFieldNameHere")
End Sub
    
Public Sub CreateAutoNumberField(ByVal strTableName As String, ByVal strFieldName As String) As Boolean
On Error GoTo Err_CreateAutoNumberField
'[COLOR=Red]Ensure you make a reference to the Microsoft DAO 3.X Object Library![/COLOR]
    
    Dim db As DAO.Database
    Dim fld As DAO.Field
    Dim tdef As DAO.TableDef
    
    Set db = Application.CurrentDb
    Set tdef = db.TableDefs(strTableName)
    Set fld = tdef.CreateField(strFieldName, dbLong)
    With fld
        .Attributes = .Attributes Or dbAutoIncrField
    End With
    With tdef.Fields
        .Append fld
        .Refresh
    End With
    
    CreateAutoNumberField = True
    
Exit_CreateAutoNumberField:

    Set fld = Nothing
    Set tdef = Nothing
    Set db = Nothing
    Exit Sub
    
Err_CreateAutoNumberField:
    CreateAutoNumberField = False
    With Err
        MsgBox "Error " & .Number & vbCrLf & .Description, vbOKOnly Or vbCritical, "CreateAutoNumberField"
    End With
    Resume Exit_CreateAutoNumberField
    
End Sub