[Resolvido]Abrir relatório com caixa de combinação

Pessoal, preciso de ajuda!
Já procurei tanto nesse forum com em outro mais não encontrei nada que pudesse me ajudar por isso resolvi postar minha duvia.
Bom é o seguinte, criei um relatorio apartir dos seguintes campos: Nome, Data, Assunto. Criei tambem um form com uma caixa de combinação vinculada ao compo Nome. O que eu quero é o seguinte, quando clicar no relatorio para abrir ele me mostar o form que criei e gerar um relatorio só do nome selecionado.
Agradeço a ajuda!

Seria algo assim no clique de um botão:

DoCmd.OpenReport "NomeDoRelatório", , , "Código=" & Me.Código

Amigo fiz o que vc falou é deu apareceu a seguinte mensagem
" Imprimindo pagina 1 de RelatorioExterno para PDF Creator em PDF Creator:"

Dai eu não entendi nada.
se vc puder me ajudar te agradeço...

Verifique qual impressora está configurada como padrão. Se não for a que tem que ser, altere.

Tem que fazer ao contrário. Seleccionar um nome na combo e depois clicar no botão imprimir

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "NomeRelatório"
strFilter = "Chaveprimária= Forms!nomedoformulário!Chaveprimária"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter

Caro amigo vieirasoft, eu não adicionei nenhum botão para imprimir, eu coloquei o evento ao clicar

A sugestão que eu lhe estou a dar:

1- Caixa de combinação no form selecciona os dados. Por exemplo; selecciona um cliente para imprimir e depois num botão de comando, utiliza o código acima. Simples.

Ou para caixa de combinação, usar o "Após atualizar" da mesma. Economiza um clique

Criquio, mas não filtra o registo que ele quer. Dá-me ideia que ele quer escolher um registo e imprimir esse registo.

É isso mesmo Vieira, eu não quero visualizar todos, só quero aquele que selecionei na lista

Mas é a mesma coisa do clique no botão, pois ambos eventos acontecerão "Após atualizar" a combo.

Então faça como lhe disse.

1- Seleccione no formulário o registo que quer imprimir.

2- Coloque um botão de comando "Imprimir"

3- Utilize o código acima no evento clique do botão.

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "NomeRelatório"
strFilter = "Chaveprimária= Forms!nomedoformulário!Chaveprimária"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter

Vou fazer so um minuto

Pessoal apareceu a mesma mensagem

Pode colocar aqui a BD ou enviar para o meu email?

sergiovieirasoft@gmail.com

agradeço em formato 2000

Se essa combo tem o código do registro, pode tambem ser assim no evento "Após atualizar" dela:

DoCmd.OpenReport "NomeDoRelatório", , , "Código=" & Me.NomeDaCombo.Column(0)

Column(0) é a coluna do código na combo, se ele for o primeiro. Se for o segundo, é Column(1) e assim por diante.

ja tentei colocar mais não deu, vou enviar para o seu e-mail

ja mandei

Ela não tem o codigo de registro, a chave é o nome

Então talvez seja assim:

DoCmd.OpenReport "NomeDoRelatório", , , "Código='" & Me.NomeDaCombo.Value & "'"

vou tentar

Continua aparecendo a mensagem

Já recebi e estou a ver

Estou sem tempo para ver. Aguardemos que o Vieira dê um parecer.

vá á consulta e acrescente o campo número. No relatório faça o mesmo e utilize este código do Criquio

DoCmd.OpenReport "RLT_Externo", , , "numero=" & Me.cx_externo.Column(0)