Numerar campo tabela baseado no id inserido

Senhores, tenho uma tabela que possui um "ID" chave primaria, na mesma tabela tem um campo tipo número "nr", nesse campo preciso que numere sequencial iniciando no ID, exemplo:

ID         nr

1          1
1          2
1          3
1          4

Consegui esse código abaixo, porém ele numera sequencial toda tabela, preciso que enumere por ID.

Código:


Dim I As Integer, Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT nr FROM [tbl detalhes proposta];")
I = 0
Do While Not Rst.EOF
I = I + 1
Rst.Edit: Rst(0) = I: Rst.Update: Rst.MoveNext
Loop
Set Rst = Nothing



Não entendi bem. Explique melhor para ver se entendemos.

Preciso que enumere sequencial os registros iniciando e terminando no campo ID, exemplo:

Tenho vários lançamentos com mesmo ID, preciso que enumere sequencial, 1,2,3,4,5 de acordo com o número de ID que tenho, seria quase igual contar egistro, porém o contar registro não é sequencial, é 1, 1,1.

Exemplo

Lançamento ID 1 = nr 1
Lnaçamento ID 1 = nr 2
.
.
.

Quando alterar o ID inicia novamente a contagem

Lançamento ID 2 = nr 1
Lançamento ID 2 = nr 2

Você pode fazer usando dois Recordsets, sendo que em um usará o DISTINCT para pegar apenas um ID de cada e o segundo fará a atualização de todos ID na sequência. Tente em uma cópia do aplicativo para preservar o original caso dê erros:

Código:

Dim I As Integer, Rst1 As DAO.Recordset, Rst2 As DAO.Recordset

Set Rst1 = CurrentDb.OpenRecordset("SELECT DISTINCT [Lançamento ID] FROM [tbl detalhes proposta];")

I = 0

Do While Not Rst1.EOF

    Set Rst2 = CurrentDb.OpenRecordset("SELECT nr FROM [tbl detalhes proposta] WHERE [Lançamento ID]=" & Rst1([Lançamento ID]) & "")

    Do While Not Rst1.EOF

        I = I + 1

        Rst2.Edit
        Rst2(0) = I
        Rst2.Update
        Rst2.MoveNext

    Loop

    I = 1

    Rst1.MoveNext

Loop

Rst1.Close
Set Rst1 = Nothing

Rst2.Close
Set Rst2 = Nothing