[Resolvido]Loop para Update de vários campos vázios

Prezados, bom dia!

Estou precisando de uma ajuda para atualizar um campo chamado REGISTRO de uma tabela chamada Tab_Dados1. O que acontece, quero um loop que pegue o último valor 10835 do campo REGISTRO e vá atualizando os campo restantes vázios e assim sucessivamente.
Exemplo:

REGISTRO
10835
10836
e assim vai!

Alguém pode me ajudar?

Cordialmente,
Marcos Fábio

Boa tarde,

No evento ao clicar de qualquer botão em um formulário, coloque o seguinte:

Código:

   Dim i As Integer
    i = DLast("registro", "tab_dados1", "registro <> null")
    
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT registro FROM tab_dados1 WHERE NOT registro <> null")
    
    Do While Not rs.EOF
        i = i + 1
        rs.Edit
            rs("registro") = i
        rs.Update
        rs.MoveNext
    Loop
    
    rs.close

    MsgBox "Dados atualizados com sucesso! O ultimo registro é o de número " & i & ".", vbInformation, "Atualização"

Abraço.

Boa tarde!
Prezado Cassio,

Foi de grande ajuda sua informação.

Abraços!