[Resolvido]Numeração sequencial em consulta

Olá galera!!!

Procurei no fórum mas os tópicos que vi não satisfizeram a minha necessidade então resolvi postar este tópico.

Preciso fazer uma numeração sequencial numa consulta, e ela deve feita diretamente na consulta pois dela vai depender as fontes de registros de formulários e relatórios. É só uma numeração sequencial do primeiro até o último registro da consulta.

Valeu!

ja fizemos isso aqui no forum,
mas o que realmentem quer
-tem numeraçao geral dos registros em ordem alfabetica(ou outra ordem) ou sem ordem
-tem numeração no formulario(tipo a medida que entra em um novo registro ele insere um numero sequencial)
- e numeração em um relatorio

se postar seu banco aqui(zipado) fica melhor para entender

SELECT (SELECT COUNT(*)+1 FROM SuaTabela x
WHERE x.SeuCampo < y.Cliente) AS Numeracao, y.*
FROM SuaTabela AS y;
==========================================================
Ou usando o módulo abaixo:
Function Serialize(qryname As String, keyname As String, keyvalue) As Long
Dim dbs As Database
Dim rs As Recordset
Set dbs = CurrentDb
On Error GoTo Err_Serialize
Set rs = dbs.OpenRecordset(qryname, dbOpenDynaset, dbReadOnly)
On Error GoTo Err_Serialize
Select Case rs.Fields(keyname).Type
Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, DB_DOUBLE, DB_BYTE
rs.FindFirst "[" & keyname & "] = " & keyvalue
Case DB_DATE
rs.FindFirst "[" & keyname & "] = #" & keyvalue & "#"
Case DB_TEXT
rs.FindFirst "[" & keyname & "] = '" & keyvalue & "'"
Case Else
MsgBox "ERROR: Invalid key field data type!"
End Select
Serialize = Nz(rs.AbsolutePosition, 0) + 1
Err_Serialize:
rs.Close
dbs.Close
Set rs = Nothing
Set dbs = Nothing
End Function
SELECT SuaTabela.CampoID, SuaTabela. SeuCampo, SuaTabela. SeuCampo , Serialize("NomeDaConsulta"," CampoID ",[ CampoID]) AS Num
FROM SuaTabela;

wwwmuca Testei as suas duas soluções sugeridas, a primeira não funfou mas a segunda foi show demais cara.


VAleu brother!!!

wwwmuca quando fiz um teste simples usando a tua sugestão deu tudo certo, mas quando fui aplicar no projeto que iria utilizar estou encontrando um problema que já usei todas as minhas alternativas tentando resolver mas não consegui ver se você pode me ajudar aí.

Estou disponibilizando parte do projeto e a sequencia é feita na consulta 'cons_Seq' e o campo a possuir a numeração sequencial é o campo 'Aula' estou utilizando um critério de filtro no campo mês que é "3" e quando o resultado é visualizado até o registro cinco aparece só o número 1 e a partir do sexto registro a numeração continua normal.

Observei também que se trocar o filtro do mês para "1" que possui apenas cinco registros a numeração é perfeita, mas se altero para "2" causa uma situação que não entendo porque tá acontecendo.

Desde agradeço já ajuda.

colega, fiz do primeiro jeito ai pra voce, so que tem que deixar o campo ID na consulta ok
esta na consulta cons_seq_novo

clebergyn muito obrigado pela ajuda.

Testei aqui o seu exemplo e fiz as adaptações para meu projeto.
No entanto, eu não posso incluir o campo 'ID' porque preciso utilizar a cláusula 'DISTINCT' na consulta para que ela me retorne datas distintas.


Valeu!

Se as datas nao se repetem, voce pode trocar o id pelo campo data, onde estiver id na consulta voce troca por "data" que vai dar certo
Vamos supor que houve um atraso e que o instrutor teve que dar 2 aulas no mesmo dia, então, vai precisar do campo "id"

Esse que é o problema! As datas vão se repetir e preciso considerar apenas uma delas para mim exibi-la para outro fim.

Ao utilizar a Função Serialize em uma consulta do Microsoft Access 2010 o sistema emite a seguinte mensagem de erro:

"Erro em tempode execução '91': A variável do objeto ou a variável do bloco 'With' não foi definida."

O ponto de interrupção para em: rs.Close

Alguém tem uma solução?