[Resolvido]Como aplicar uma consulta em um formulario?

Eu tenho uma consulta onde contem os dados do meu cadastro de clientes. Eu gostaria de criar um formulario em vez daquelatela que aparece do office. Como por exemplo, Eu tenha uma consulta por cliente e gostaria de aplica numa caixa de texto ou em um caixa de combinação.

Boa Noite Rogiel

Desculpe mas não entendi nada do que você queria. Parece-me que anda aí muita confusão, amigo. Escreva com calma e com detalhe.

Eu quero criar um formuario que puxe a consulta (como caixa de combinação). Eu quero ciar um form com uma caixa de combinção que ao clicar no cliente eu posso visualizar o relatorio desse cliente.

Então Rogiel, você recorda-se que aqui há uns tempos pediu-me um menu para abrir formulários a partir de uma caixa de combinação.

Nada mais simples. Aproveite o exemplo que lhe enviei e na caixa de combinação no evento afterupdate substitui-a o código de abrir form por este para abrir report:

If Caixa_de_combinação2.Text = "Cadastro Clientes" Then
DoCmd.OpenReport "Tabela1", acViewPreview

Não endi pode fazer mais um explicação mai clara.

Boa Tarde Rogiel

Aqui vai o exemplo

http://dl.dropbox.com/u/8157744/menurogieRelat.mdb

Eu peguei o codigo da caixa de combinação onde abre o relatorios e coloquei em meu Banco de dados, e etsa acontecendo o seguinte:
*quando clico no nome do relatório ele esta fazendo a impressão automatica.

Como que eu faço para tirar a impressão automatica e só visualizar o relatório?
Veja como ficou:
If Combinação45.Text = "Nome Fantasia" Then
DoCmd.OpenReport "Empresaa Nome Fantasia"
ElseIf Combinação45.Text = "Razão Social" Then
DoCmd.OpenReport "Empresaa RazãoSocial"
End If

Se você tivesse olhado bem o exemplo, ele faz abrir os relatórios no modo prévio

If Combinação45.Text = "Nome Fantasia" Then
DoCmd.OpenReport "Empresaa Nome Fantasia",acViewPreview
ElseIf Combinação45.Text = "Razão Social" Then
DoCmd.OpenReport "Empresaa RazãoSocial",acViewPreview
End If

Se ainda pretender meter mais relatórios:

If Combinação45.Text = "Nome Fantasia" Then
DoCmd.OpenReport "Empresaa Nome Fantasia",acViewPreview
ElseIf Combinação45.Text = "Razão Social" Then
DoCmd.OpenReport "Empresaa RazãoSocial",acViewPreview
ElseIf Combinação45.Text = "xxxxxxxx" Then
DoCmd.OpenReport "xxxxxxxxxxxx",acViewPreview e por aí fora
End If

Obrigado Vieria. Concluido.

Valew Amigão e obrigado pelo retorno