formdan çağırırken
CreateAutoNumberField("tabloadınız","otomotiksayıalanı")

Public Function CreateAutoNumberField(ByVal strTableName As String, ByVal strFieldName As String) As Boolean
Dim sol As QueryDef
bukısımın kod ile bir ilgisi yoktu ama ben ekledim eski alanı siliyor neden yeni alan yapılırken problem çıkıyordu
asdf benim tablomun adı ID ise otomotik sayı olan alanımın adı
siz kendi tablonuza göre değiştirin şimdi diyeceksinizki ya kardeşim benim ilişkili tablom var ozaman başka bir yol üzerinde şu an çalışıyorum onuda halledince eklerim bu tek tabloda otomotik sayıyı yeniden düzenliyor
DoCmd.RunSQL ("ALTER TABLE asdf " & "DROP Column ID;")
On Error GoTo Err_CreateAutoNumberField

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 Function

Err_CreateAutoNumberField:
CreateAutoNumberField = False
With Err
MsgBox "Error " & .Number & vbCrLf & .Description, vbOKOnly Or vbCritical, "CreateAutonumberField"
End With
Resume Exit_CreateAutoNumberField

End Function