Atualizar tabela com nro sequencial baseado em dois critérios

Bom dia a todos!
Tenho uma tabela com a seguinte estrutura:

DOC   |  DATA  |  LOG_ALTERACAO
0010  |  01/05  |  000101
0010  |  01/05  |  000102
0012  |  01/05  |  000110
0012  |  02/05  |  000117
0012  |  04/05  |  000121
0013  |  04/05  |  000113
0013  |  04/05  |  000116

Ela representa uma lista de documentos e suas respectivas datas de alterações e o nro de log decorrente destas.
Preciso atualizar esta tabela com um novo campo que ordene estas modificações em cada documento, baseado nas datas de revisão e, havendo duas alterações na mesma data, baseado no log de alteração, do menor valor para o maior. O resultado seria este:


DOC   |  DATA  |  LOG_ALTERACAO  |  ORDEM
0010  |  01/05  |  000101               |  1
0010  |  01/05  |  000102               |  2
0012  |  01/05  |  000110               |  1
0012  |  02/05  |  000117               |  2
0012  |  04/05  |  000121               |  3
0013  |  04/05  |  000113               |  1
0014  |  04/05  |  000116               |  1

Esta rotina seria feita semanalmente e a tabela é superior a 100.000 registros, razão pela qual outra solução dada neste fórum (https://www.maximoaccess.com/t12939-resolvidocontador-em-consulta) não atendeu.

Alguém conhece alguma solução?

Abraços a todos
Demitrius Luz

Boa tarde, e bem-vindo ao fórum
É sempre bom disponibilizar dados para se trabalhar
Não utiliza nomes reservados do Access em campos, variavaies, etc

Veja se atende

Código:

Sub ActualizaOrdem()
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '  código criado por Alexandre Neves, do Fórum MaximoAccess                                                '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim Rst As DAO.Recordset
    Set Rst = CurrentDb.OpenRecordset("SELECT Doc, Data, Log_Alteracao, Ordem FROM SuaTabela ORDER BY Doc, Data, Log_Alteracao")
    Do While Not Rst.EOF
        Rst.Edit
        Rst("Ordem") = Rst.AbsolutePosition + 1
        Rst.Update
        Rst.MoveNext
    Loop
    Set Rst = Nothing
End Sub