[Resolvido]Abrir relatório após pesquisa

Boa noite meus amigos, será que algum amigo pode me ajuda. Tenho um formulário de pesquisa com uma caixa de rolagem. Após a localização
do registro gostaria que fosse aberto o relatório com as informações do tal registro. Porem quando clico no registro é gerado um arquivo em pdf do registro com as informações que eu preciso. Segue o código se algum amigo puder ajudar.

If Not IsNull(Me.listagempesquisa) Then
DoCmd.OpenReport "relProduto", , "produto = " & Me!listagempesquisa.Column(1)

End If

On Error GoTo Err_listapesquisa_Click

If IsNull(Me.listagempesquisa) Then

MsgBox "Selecione um código válido na lista", vbCritical, "Atenção"

Obs..: amigos deixei a imagem da tela de pesquisa, o meu desejo era que ao scanear o código já abrir o relatório.



Else

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmpesquisa"

stLinkCriteria = "[identificacao]=" & Me![txtlistapesquisa]
DoCmd.OpenReport stDocName, , , stLinkCriteria

End If

Exit_listapesquisa_Click:
Exit Sub

Err_listapesquisa_Click:
MsgBox Err.Description
Resume Exit_listapesquisa_Click

End Sub

Bom dia..

De: DoCmd.OpenReport stDocName, , , stLinkCriteria

Para: DoCmd.OpenReport "frmpesquisa", acViewReport

Porém temos que acertar algumas coisas no teu relatório para a visualização do mesmo.

1- modo pop.
2- tem que colocar um botão de impressão.
3- nesse botão, uma das propriedades tem que ser: mostrar somente na tela.
4- um botão de voltar, sair e também o mesmo tem que estar somente para mostrar na tela.
5- o estilo da borda desse relatório tem que estar como dialogo.

Bons estudos...

Qualquer coisa, estamos por aqui.

Bom dia amigo, vou fazer as mudança.

Oi amigo, fiz a mudança e já me mostra na tela a informação do produto, porem antes de me mostrar o relatório me mostra a tela o onenote do windows antes. Vou verificar o motivo. Quanto aos botões irei criar ainda. Estava me atentando para aquela questão de não me mostrar o relatório que vc me ajudou.

Ok, qualquer coisa estamos por aqui.

Obrigado.

Amigo o código ficou como segue abaixo, o relatório esta imprimindo direto e eu gostaria de verificar o relatório para depois clicar em imprimir se assim desejar.
Só que esta imprimindo direto quando clico duas vezes o registro desejado.

Private Sub listagempesquisa_DblClick(Cancel As Integer)

If Not IsNull(Me.listagempesquisa) Then
DoCmd.OpenReport "relProduto", , "produto = " & Me!listagempesquisa.Column(1)

End If

On Error GoTo Err_listapesquisa_Click

If IsNull(Me.listagempesquisa) Then

MsgBox "Selecione um código válido na lista", vbCritical, "Atenção"


Else

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "relproduto"

stLinkCriteria = "[identificacao]=" & Me![listagempesquisa]
DoCmd.OpenReport "relproduto", acViewReport

End If

Exit_listapesquisa_Click:
Exit Sub

Err_listapesquisa_Click:
MsgBox Err.Description
Resume Exit_listapesquisa_Click

End Sub

Private Sub listagempesquisa_DblClick(Cancel As Integer)
On Error GoTo Err_listapesquisa_Click

If Not IsNull(Me.listagempesquisa) Then
DoCmd.OpenReport "relProduto",acViewReport , "produto = " & Me!listagempesquisa.Column(1)


Elseif IsNull(Me.listagempesquisa) Then

MsgBox "Selecione um código válido na lista", vbCritical, "Atenção"

End If

Exit_listapesquisa_Click:
Exit Sub

Err_listapesquisa_Click:
MsgBox Err.Description
Resume Exit_listapesquisa_Click

End Sub

obs. tem umas pegandinhas, para que possa aprender e exercitar a arte de programar....são coisas simples.
bons estudos.

Bom dia amigo, poxa não consegui descobrir o erro. O que eu achei que estivesse errado era endif tudo junto. Todos os registro que busco, sempre mostra o mesmo registro na tela, apesar de na consulta mostrar a informação correta.

Tudo que eu achei que poderia ser eu fiz, e sempre mostra o mesmo registro. A pegadinha que você fez, eu não consegui entender.

Boa tarde!

Boa tarde meu amigo, esgotei aqui as minhas possibilidades. Não consegui achara a solução. Poderia dar um help ?

Desde já agradeço

Boas..

Estarei ausente por uns dias aqui do fórum, projeto novo.

Mas coloca aqui, a entidades envolvidas ( tabela, consulta, formulário e relatório ) para podermos lhe ajudar.

Grato.

Pode ser no onedrive ?

Não consegui colocar aqui, só no one mesmo.
drive.google.com/file/d/1Z7yDw8dcFPYo2uq4MyS5HlguFoaXBpvt/view?usp=sharing

Bom dia!
Olá a todos!
Meus amigos, algum amigo poderia me ajudar ? Tive a ajuda do amigo Silvio mas ele estará ausente um dia e não consegui a solução ainda. Tenho um formulário de caixa de pesquisa, onde no campo txtpesquisa gostaria de digitar o codigo do produto ou escanear o mesmo e em seguida abrir o relatório relProduto. Porem de todas as formas que tentei sem me mostra o mesmo produto. vou deixar aqui o código que estou utilizando.


Private Sub txtproduto_DblClick(Cancel As Integer)
On Error GoTo Err_listapesquisa_Click

If Not IsNull(Me.listagempesquisa) Then
DoCmd.OpenReport "relProduto", acViewReport, "idproduto = " & Me!listagempesquisa.Column(0)


'ElseIf IsNull(Me.listagempesquisa) Then

MsgBox "Selecione um código válido na lista", vbCritical, "Atenção"

End If

Exit_listapesquisa_Click:
Exit Sub

Err_listapesquisa_Click:
MsgBox Err.description
Resume Exit_listapesquisa_Click

End Sub

Olá a todos,

Claudio, para anexar no fórum veja o tópico abaixo:
https://www.maximoaccess.com/t28813-como-adicionar-arquivo-ficheiro-a-mensagem-no-forum

Relativamente ao seu projeto apresenta vários erros

1) Erros de código, para verificar aperte as teclas ALT+F11 -> Debug ->Compile
2) A listagem (na minha opinião) não está bem elaborada, tem o detalhe no cabeçalho e nunca iria funcionar para o que pretende.

Como sou adepto do simples, para o ajudar,  optei por recriar um pequeno exemplo para você estudar.

Código:

Option Compare Database

Private Sub txtPesqProduto_AfterUpdate()
    Me.Lista.SetFocus
    Me.Lista.Requery
End Sub

Private Sub Lista_Click()
    DoCmd.OpenReport "rptProdutos", acViewPreview, , "[idProduto] = " & Me.Lista.Column(0)
End Sub

Creio que é o que pretende.

Abraço e bons estudos

Opa!
Obrigado, pela orientação. Sei que preciso melhor em muitas coisas, gosto muito de mexer com o access e vou buscar essa melhora. Quanto ao exemplo que me passou ele não esta filtrando. Foi assim mesmo que passou ? para que eu busque os ajustes ?

Opa!
Corrigindo a informação, agora esta abrindo.
Grato!!

Olá Claudio,

Não percebi, o exemplo não está a fazer o pretendido?

Abraço a todos

Bom dia, olá amigo!
Consegui aqui já, obrigado!
Estarei fechando o tópico como resolvido.
Grato!!

Meus amigos, obrigado pela ajuda de todos.

Olá Claudio,

Obrigado pelo retorno, o fórum agradece.

Abraço a todos