✔ ID selbst generieren

[NeMeSiS1987]

Hallo,

ich möchte in einer Spalte meiner Tabelle eine ID haben, die immer von 1 bis x die Datensätze numeriert. Wenn ich das allerdings mit AutoNumber mache, bekommt ein neuer Datensatz die nächste freie ID und nach dem Sortieren sind die IDs durcheinander. Sie sollen aber die Datensätze der Reihe nach nummerieren. Also hab ich eine Spalte ID vom Typ Number, in die per Event "Form_Close" automatisch die ID eingetragen werden soll. Ich hab mir das so gedacht:

Private Sub Form_Close()
    Dim i As Integer
    Dim rs As DAO.Recordset
    DoCmd.SetWarnings False
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM Properties", dbOpenDynaset)
    i = 1
    
    While Not rs.EOF
        rs.Edit
        rs.Fields.Item("ID") = i
        rs.MoveNext
    Wend
    rs.Close
    
End Sub

Es liegt wahrscheinlich am Befehl rs.Fields.Item("ID") = i. Aber wie lautet der richtig? Oder muss man das ganz anders machen?

 

[Alex F.]

da fehlt doch eigentlich nur ein

rs.update

Grüsse bb

 

[NeMeSiS1987]

Danke, war also mal wieder nur ne Kleinigkeit...

Grüße,

NeMeSiS