[Resolvido]Enumerar Registro em Consulta

boa Tarde

Como que eu faco pra enumerar registro em uma consulta...

exemplo
============================

Nota Quant V. Unit V. Total
000023 10 150,00 1500,00
000023 9 70,00 630,00
000024 1 50,00 50,00

essa e a consulta
==========================
Agora do jeito que eu quero

Nota Quant V. Unit V. Total Reg
000023 10 150,00 1500,00 001
000023 9 70,00 630,00 002
000024 1 50,00 50,00 001 - nota diferente comeca outra contagem

De onde será chamada essa consulta?
Será uma tela que irá abrí-la?
Porque consigo imaginar algumas soluções possíveis criando tabela, usando variáveis comuns ou até dictionary pra fazer isso, mas dependeria de um evento finalizador para limpar a sujeira depois.

gostaria de enumerar como esta no campo itens

Tem como disponibilizar parte do banco?

o campo que quero enumerar ta na consulta sql54, campo itens

ele esta enumerado pois tive fazer a numeracao manual

Não tenho o Access aqui para montar um exemplo, mas posso te passar uma ideia.
Seguinte:

Crie em um módulo, o código a seguir:

Código:


Dim vContador As New Scripting.Dictionary

Public Function fContador(pKey As String) As Long
    With vContador
        If .Exists(pKey) Then
            .Item(pKey) = .Item(pKey) + 1
        Else
            .Add Key:=pKey, Item:="1"
        End If
        
        fContador = .Item(pKey)
    End With
End Function

Public Sub fZerarContador()
    vContador.RemoveAll
End Sub


Na consulta você consegue criar um campo chamando a função e passando o campo da nota no parâmetro.

O único problema disso é que você terá que, ao finalizar a consulta, executar a função pra zerar o contador.

Não esqueça de adicionar nas referências o Microsoft Scripting Runtime.

nao entendi, como vou motar isso na consulta

NADIRONUNES, conseguiu solucionar essa questão?

desculpas achei que tinha marcado com resolvido

ja resolvi sim DamascenoJr


obrigado a todos