[Resolvido]select não lista todos os dados[RESOLVIDO]

Me deparei com o código do select em banco de dados no access e ele não liista dotos os dados via codigo.

Se o mesmo codigo for posto na query no editor sql no access ele lista todos os dados referentes aquele usuario normalmente.

exemplo:

select * from tabela where nome= nome;

Isso lista todos os dados deste usua´rio normalmente.

Em codigo:

dim rs as recordset
select * from tabela where valor= valor;

txtvalor=rs!valor
txtnome2=rs!valor
txtnome3=rs!valor

Veja que eu repito a coluna do banco nas caixas de texto, mas ele reconhece apenas txtvalor, não lista outros valores nas outras caixas ele repeti o valor para todas as caixas de texto

A query via codigo lista apenas o primeiro dado, não lista se tiver mais de um, por ser uma query em resultset ele deveria listar todos os dados sem exceção, como devo proceder via codigo?


Como podem ver não tem erro algum, mas via codigo não entendi e nem lista tudo so diretmante o editor sql.

Help amigo!

Está meio confuso, facilita se puder enviar uma cópia do bd.

Cláudio, acredito que o colega está pretendendo ao digitar um nome em uma txtBox traga informações de uma tabela para o formulário, procede Adriano? Se sim, tenta lá:

Dim RS As DAO.Recordset

Set RS = CurrentDb.OpenRecordset("SELECT * FROM NomeDaTabela WHERE CampoFiltroTabela='" & Me.TxtBox & "'")
If Not RS.EOF Then
   Campo1DoFornulario = RS!Campo1DaTabela
   Campo2DoFornulario = RS! Campo2DaTabela
   Campo2DoFornulario = RS! Campo3DaTabela
End If
RS.Close
Set RS = Nothing

Isso mesmo. Quero trazer informações do banco para o formulário. Este codigo que vc passou é quase isso, veja oq mudaria.

Dim RS As DAO.Recordset

Código:

Set RS = CurrentDb.OpenRecordset("SELECT * FROM NomeDaTabela WHERE CampoFiltroTabela='" & Me.TxtBox & "'")
If Not RS.EOF Then
  Campo1DoFornulario = RS!Campo1DaTabela
  Campo2DoFornulario = RS! Campo1DaTabela
  Campo2DoFornulario = RS! Campo1DaTabela
End If
RS.Close
Set RS = Nothing

Veja que o campo da tabela é igual para todos os campos do formulário, isso pq o meu cliente tem mais de uma informação de um mesmo campo.

Só que infelizmente só retorna o primeiro dado para todos os campos.

O que se pode fazer?

anexa os objetos envolvidos no pedido de ajuda, fica mais fácil saber como estais fazendo, pois o código que passei retorna 3 campos de 1 tabela para o formulário.

Não seria isso?

Código:

Dim RS As DAO.Recordset
Set RS = CurrentDb.OpenRecordset("SELECT * FROM NomeDaTabela WHERE CampoFiltroTabela='" & Me.TxtBox & "'")
If Not RS.EOF Then
   Campo1DoFormulario = RS!Campo1DaTabela
   RS.MoveNext
End If
If Not RS.EOF Then
   Campo2DoFormulario = RS!Campo1DaTabela
   RS.MoveNext
End If
If Not RS.EOF Then
   Campo3DoFormulario = RS!Campo1DaTabela
End If
RS.Close
Set RS = Nothing

posta o código completo, pois no teu último post colocastes do mesmo jeito que eu coloquei e é preciso mudares os nomes dos campos para os campos reais do teu projeto.

Perfeito Cláudio, deu certinho.

Antes de finalizar o tópico embora esteja resolvido, eu gostaria de entender o conceito de

EOF e BOF.

Obrigado a a vocês dois.

Beto e Cláudio.

O Fórum agradece o Retorno.

Não se esqueça de clicar no botão de resolvido!
Desta vez eu coloco.


Moderação

EOF = End Of File (fim do arquivo): método que retorna um valor booleano verdadeiro quando o ponteiro está na última posição de um recordset.

BOF = Begin Of File.

Não havia lido completamente a questão do colega.

Obrigado pela atenção Cláudio.

Obrigado pela atenção.

Foi muito útil Cláudio.

Tópico resolvido. E conforme as regras clicado no botão verde.

O Fórum agradece o Retorno.

Antes porém uma dica.. O botão verde deverá ser clicado na mensagem que o auxiliou com a sua dúvida.