[Resolvido]Incluir coluna não acoplada em consulta para classificar os registros

Olá pessoal,

tenho uma consulta que mostra registros em uma ordem do 1º até o 20º e no formulário preciso que esses números que classificam os registros apareçam... como posso fazer?

thanks

Leandro

veja se isso ajuda

os creditos eu não tenho
pelo que me recordo acho que é do mestre JPAULO

' crie o modulo

Option Compare Database
Option Explicit


Function ordemRegistro(argFonte As String, argChave1 As String, Optional argChave2 As String, Optional argChave3 As String) As Long

Static i As Long
Static strFonte As String
Static primeiraChave As String
Dim chaveAtual As String

chaveAtual = argChave1 & argChave2 & argChave3

If primeiraChave = "" Then
primeiraChave = chaveAtual
End If

If strFonte = argFonte And primeiraChave <> chaveAtual Then
i = i + 1
ordemRegistro = i
Else
i = 1
ordemRegistro = i
strFonte = argFonte
primeiraChave = chaveAtual
End If

End Function


na sua consulta crie o campo:


ordem: ordemRegistro("nome_consulta";[campo]) ' não esqueça as aspas no nome da consulta

quando fiz isso na propria consulta eu classifiquei pelo campo que queria que fosse colocado na ordem

Outra maneira simples, caso tenha um campo numérico como por exemplo uma numeração automática classificado do menor para o maior, pode ser você criar um novo campo na consulta mais ou menos assim:

Número: DCount("*";"NomeDaConsulta";"Código<=" & [Código] & "")

Muito obrigado giba e Criquio.

fiquei com o exemplo do Criquio, pois é exatamente aquilo que eu queria.

muito obrigado aos dois!

Leandro

apenas para facilitar o entendimento,
na solução do mestre JPAULO a rotina gera uma sequencia de ordem, na epoca utilizei como se fosse um ranking