[Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada

Olá Pessoal do Maximo Access,

Gostaria que me ajudassem a solucionar esta dúvida que estou tendo em criar um critério de numeração de ORDEM, por exemplo:

Tenho a seguinte Tabela_Consulta

ID---------DATA-----------NUMERO----------ORDEM
1-------01/01/2017----------20-------------------1
2-------05/01/2017----------20-------------------2
3-------02/01/2017----------89-------------------1
4-------07/01/2017----------89-------------------2
5-------12/01/2017----------89-------------------3
6-------01/01/2017----------53-------------------1
7-------05/01/2017----------75-------------------1

Ou seja, preciso que a coluna ORDEM conte os valores repetidos e atribua um valor de sequencia de acordo com data (esta irá definir qual é a ordem de chegada), porem esse numero deve começar a contar novamente para os próximos registro repetidos e assim sucessivamente.  

Agradeço pela atenção,

Eu criaria um campo no form e colocaria esta função no campo ORDEM.

Código:

Function SequenciaIndividual(parNumero As Integer) As Integer
Dim vContaValores As Integer

vContaValores = DCount("[NUMERO]", "TABELA_CONSULTA", "[NUMERO] = '" & parNumero & "'")

Sequenciainvidual = vContaValores + 1

End Function

Obrigado pela atenção "thiagomcosta".

Eu irei testar sua sugestão e responderei se deu tudo certo.

Caro thiagomcosta

Eu tentei fazer o exemplo que me enviou mas não obtive sucesso, talvez eu não tenha entendido seu raciocínio.
Quando executo a função eu recebo esta Mensagem: "Erro de Compilação: O argumento não é opcional."
Você poderia me esclarecer seu raciocínio?

Desde já agradeço pela atenção,

Terei de revisar o código para verificar onde está o erro. Volta e meia eu erro nas virgulas e afins e acaba dando erro.

A ideia é contar os registros após aplicar um filtro, no seu caso determinado NUMERO. Fazendo-se a contagem lança o resultado adicionado de 1 no campo ORDEM.

Boa tarde pessoal do Forum MaximoAccess,

Alguém mais teria alguma solução para minha dúvida?


Fico grato pela atenção,

Só um pitaco:

"Erro de Compilação: O argumento não é opcional."

Isso quer dizer que o argumento (o valor que está entre parenteses na função) é obrigatório,

não pode ficar em branco.

Então, quando chama a função:

Call SequenciaIndividual(tem que haver um valor aqui)


[ ]'s

A consulta abaixo faz a atualização conforme esperado, considerando que não existe duplicidade de NUMERO + DATA:

UPDATE Tabela_Consulta SET ORDEM = DCount("*","Tabela_Consulta","[NUMERO] = " & [NUMERO] & " And CDbl([DATA]) <= " & CDbl([DATA]))

Muito obrigado pela atenção "Cláudio Más", eu executei seu código e funcionou perfeitamente.

Obrigado também, pelo pitaco "Noobezinho", foi muito válida sua colocação.

Como Vou Aplicar a Função?

CurrentDb.Execute UPDATE Tabela_Consulta SET ORDEM = DCount("*","Tabela_Consulta","[NUMERO] = " & [NUMERO] & " And CDbl([DATA]) <= " & CDbl([DATA]))

NÃO atualiza a tabela