[Resolvido]Trazer dados da consulta para o campo de texto

Olá pessoal!

Estou com dúvida: como trazer os dados da consulta para os campos de texto no formulário?

No formulário, tem uma caixa de listagem que mostra todos os nomes dos fornecedores. E também tem as caixas de textos: Nome, Telefone e Email.
Quando clico em um dos fornecedores na caixa de listagem, é feita uma consulta para exibir os demais dados dos fornecedores (Nome, Telefone, Email)..
O problema é que abre uma tela de consulta, exibindo o resultado... E não quero que abra essa tela..

Eu gostaria de trazer o resultado da consulta para os campos de texto presentes no formulário, sem abrir a tela de consulta..
Segue em anexo uma figura exemplo para melhor entendimento.

Obrigado!

Amigo veja se este exemplo de um dos colegas serve para você.



http://www.4shared.com/file/G8FCqZZN/FORMULRIO_EXEMPLOS_2.html

Olá João!
Em primeiro lugar, obrigado pela atenção..

Porém como sou novato em access, achei este exemplo complexo ..
Gostaria de algo simples, como na figura em anexo!

Obrigado

amigão se você estiver usando o access 2007, na estrutura do banco de dados na opção criar existe uma opção criar formulário dividido que faz exatamente o que você quer è muito simples de usar. Você pode mudar a posição da divisão de horizontal para vertical e ao clicar no nome no formulário contínuo vai mudando as informações do formulário normal.

João,

Ótima dica..
Porém não é isso que quero ...

Gostaria de fazer algo parecido como na figura em anexo..

De qualquer forma, valeu pela atenção!


Abraço

Pessoal,

Estou tentando fazer assim..
Quando o usuário escolhe um fornecedor na caixa de listagem, é executada a seguinte função:

Código:

Private Sub Lista236_Click()
    Dim rs As DAO.Recordset
    Dim strSQL As String
   
    strSQL = "SELECT CadastroFornecedores.Fornecedor, CadastroFornecedores.Contato, CadastroFornecedores.Telefone, CadastroFornecedores.Email"
    strSQL = strSQL & " FROM CadastroFornecedores WHERE ((CadastroFornecedores.Fornecedor)=" & [Forms]![ConsultaFornecedores]![Lista236] & ");"
   
    Set rs = CurrentDb.OpenRecordset(strSQL)

    If Not rs.EOF Then
        Me.Texto263.Value = rs("Fornecedor")
    End If

    Set rs = Nothing
End Sub

Ou seja, assim que consultar o banco, as informações são trazidas para a caixa de texto Texto263..

Porém dá erro..
Segue a mensagem de erro abaixo:

Erro em tempo de execução '3075':
Erro de sintaxe (operador faltando) na expressão de consulta
'((CadastroFornecedores.Fornecedor)=Fornecedor1)'.

Olá

Quando estiver lhe dando com string você deve usar o APÒSTROFE (')

...
strSQL = strSQL & " FROM CadastroFornecedores WHERE ((CadastroFornecedores.Fornecedor)='" & [Forms]![ConsultaFornecedores]![Lista236] & "');"
...

Convido a ler meu tutorial sobre filtragens

Tutorial sobre filtragens com vídeo-aula

Sucesso!

Fechou!!
Agora funcionou que é uma beleza!

Valeu Avelino!!
Créditos ao João tbm!

Abraços

Amigo obrigado pelo retorno.

Não esquesa de colocar o resolvido.

Colocado resolvido