habe eine Datenbank in der viel gelöscht wurde.
Leider hat sich dabei nie die AutoNumber oder eben der PrimaryKey zurückgesetzt sondern hat immer fortlaufend mitgezählt.
Das Problem ich habe nun 3 Einträge in der Tabelle aber die AutoNumber steht bei 300-303 ich würde diese gerne wieder bei 1-3 haben...und somit zurücksetzen..
Habe im Internet auf der Microsoft Homepage folgenden VBA Code gefunden.
Zitat:
Function ChangeSeed(strTbl As String, strCol As String, lngSeed As Long) As Boolean
'You must pass the following variables to this function.
'strTbl = Table containing autonumber field
'strCol = Name of the autonumber field
'lngSeed = Long integer value you want to use for next AutoNumber.
Dim cnn As ADODB.Connection
Dim cat As New ADOX.Catalog
Dim col As ADOX.Column
'Set connection and catalog to current database.
Set cnn = CurrentProject.Connection
cat.ActiveConnection = cnn
Set col = cat.Tables(strTbl).Columns(strCol)
col.Properties("Seed") = lngSeed
cat.Tables(strTbl).Columns.Refresh
If col.Properties("seed") = lngSeed Then
ChangeSeed = True
Else
ChangeSeed = False
End If
Set col = Nothing
Set cat = Nothing
Set cnn = Nothing
End Function
weiss jemand wie das funktionieren könnte??
Danke im Voraus