[Resolvido]Numerar Caixa de Listagem não Acoplada

Pessoal, uma dúvida.

Tenho uma caixa de listagem não acoplada onde possuo um select que me tráz alguns campos/colunas, eu gostaria de numerá-las. Seria possível?
Tipo crescente: 1, 2, 3, 4, 5...

Exemplo: (Coluna Numeração)

Numeração	Nome	Código
1	Avelino de Jesus	100
2	Berenice Da Silva	220
3	Carlos Ferreira	50
4	Daniel Melo	55
5	Eduardo da Silva	65
6	Fernando de Assis	200
7	Gustavo Azevedo	44
8	José Silveira	100
9	Leandro Antunes	250
10	Maria Conceição	350

SQL utilizado (baseado em uma consulta):

SELECT Cons_Soma_Cliente.NomeCliente AS Nome, Cons_Soma_Cliente.Id_Cliente AS Código
FROM Cons_Soma_Cliente;

** Não é uma questão estética, é uma exigencia do meu projeto.

Obrigada.

Julia!

Olá,

Use a função abaixo em um módulo:

Código:

Function NumReg(QueryName As String, FieldName As String, FieldValue As Variant) As Long

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset(QueryName, dbOpenSnapshot)

NumReg = 1
rs.MoveFirst
Do While FieldValue <> rs(FieldName)
    NumReg = NumReg + 1
    rs.MoveNext
Loop
Set rs = Nothing

End Function

Crie um campo calculado na consulta Cons_Soma_Cliente:

Numeração: NumReg("Cons_Soma_Cliente";"Id_Cliente";[Id_Cliente])

A instrução SQL da caixa de listagem ficaria assim:

SELECT Cons_Soma_Cliente.Numeração, Cons_Soma_Cliente.NomeCliente AS Nome, Cons_Soma_Cliente.Id_Cliente AS Código
FROM Cons_Soma_Cliente;

Olá

Se estiver usando o RowSource com a SQL vc esta acoplando. Exemplo:

me!SuaLista.rowSource= "SELECT ...."

O que significa este "não acoplada" ? Esta usando o ADDItem ?

Provavelmente ela quis dizer que a caixa de listagem não está acoplada a nenhum campo da origem do formulário.

É que se ela estivesse usando o AddItem a tarefa ficaria mais simples.

Eu particularmente não gosto do fato de se realizar N viagens a tabela para construir o númeração. Isto é um desastre para o desempenho.

Considero muito mais rápido gravar a numeração na tabela, para toda vez que ele abrir o listbox. Assim só se faz uma viagem ao recordset e pronto

Obrigado a ambos pelo auxílio.

Ainda não testei o que o Cláudio Más, passou. Já testo.

Avelino, realmente, o campo não acoplado é isso mesmo o que o Cláudio disse, a caixa de listagem não está acoplada a nenhum campo de origem do formulário/tabela.

Mesmo que resumidamente como que eu utilizaria o AddItem? Eu não conheceia esse comando.
Genéricamente como eu o aplicaria?

Novamente obrigada.

Julia

Olá

O problema de aplicar o Additem é que a lista fica limitada em 2048 caracteres.

Segue um exemplo, utilizando um campo na tabela para armazenar a numeração

o código aplicado foi esse abaixo:

Código:

Private Sub Form_Open(Cancel As Integer)
Dim strsql As String
strsql = "SELECT item, Historico, dataMovimento FROM tblMovimento ORDER BY historico;"
Call fncMontaItem(strsql)
Me!Lista.RowSource = strsql
End Sub

--------------------------------------------------------------
Private Sub fncMontaItem(qry As String)
Dim rs As DAO.Recordset
Dim k As Long
k = 1
Set rs = CurrentDb.OpenRecordset(qry)
Do While Not rs.EOF
    rs.Edit: rs!Item = k: rs.Update
    k = k + 1
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub

Abra o formulário e verá a lista com a numeração.

Bom estudo!

Obrigado a ambos pelo auxílio.
Não tenho palavras para agradecer.

Resolvido!

Julia.