[Resolvido]Autonumeração x Tabela com dados existentes

Boa tarde

Em meu sistema possuo uma tabela que já contém mais de 300.000 registros, precisei incluir o novo campo na tabela para criar uma numeração que se reinicia a cada mês. Pesquisando no fórum encontrei um exemplo do mestre J Paulo que me atende perfeitamente. É o código abaixo:

Código:


Private Sub NumeraRegistros()
'Para um contador de registros personalizado ser eficiente
'você deve introduzir um campo autonumeração na sua tabela só
'para facilitar a busca do ultimo registro. Ele pode ficar oculto.
'Note que eu passo uma sql para a função em ordem decrescente e o
'nome do campo que eu quero incrementar a contagem.
'By - Jp
'Origem - Fórum Maximo Access
Dim sql As String
sql = "SELECT Id_Agenda, Contador2"
sql = sql & " FROM tb_Agenda"
sql = sql & " ORDER BY Id_Agenda DESC"
Me.Contador2 = ContadorDiário("contador2", sql)
End Sub



O problema é que, como a tabela tem mais de 300.000 registros, há alguma forma de aplicar esta função para criar todos os números na tabela de uma só vez? Se alguém tiver alguma dica, agradeço

Att. Vinicius

Boa noite Vinicius,

Uma ideia seria você excluir o campo numeração automatica na tabela,

compactar e reparar, e depois criar novamente o campo numeração automatica

Bom dia

Realmente isto funcionaria para o contador acces que em minha tabela chamo de Id_Agenda. Vou detalhar o problema - desculpe não ter feito isto antes.

- Com o sistema em funcinameno meu cliente resolveu que "quer" um número de ordem de consutas mensais da seguinte forma CCCCC/MM/AAAA onde C representa o numero da consua, M representa o mês e A, representa o ano, por isso tive a necessidade de criar o novo campo.

Para novas consultas agendadas, funciona perfeitamente, o problema é que, como a tabela hoje já te mais de 300.000 e o cliente usa o sistema desde meados de 2010 existem consultas anteriores e ele quer que se faça o mesmo para tais consultas. É ai que não consegui fazer o código para ler a tabela inteira e vir criando este número de ordem respeitando o mês em que a mesma ocorreu.

Se tiver alguma dica, agradeço.
Att. Vinicius

Boa tarde,
Não expôs o código todo envolvido.
Dê todos os detalhes da tabela e da numeração pretendida

Bom dia

Com o auxílio do mestre Avelino consegui resolver o problema com:

Código:


Dim un
'If Len(Me!Contador & "") > 0 Then Exit Sub ' tem que analisar as possiveis inconsistências.  Por exemplo, não deixar alterar se número já foi lançado

'desta forma permite lançar numeros de mês anteriores, se necessário.  Experimente lançar algo com data do mês 4 e veja o que acontece
un = Nz(DMax("contador", "tb_agenda", "val(format(dtData,'yyyymm')) = " & Val(Format(Me!dtData, "yyyymm"))), 0) 'Captura último número do ano/mês lançado
Screen.ActiveForm.Requery

'caso seja novo mês de lançamento, começa numeração do 1, se não, vai incrementando o número
Me!Contador = IIf(un = 0, Val(Format(Me!dtData, "yyyymm") & "00001"), un + 1)
Screen.ActiveForm.Requery



Obrigado

Att. Vinicius