[Resolvido]Carregar dados selecionados em listtbox e gerar relatorio

Boa noite.

Como proceder para que somente os dados que estão carregados  na listbox "Lst_MvtoProdutos" sejam carregados na "Rel_Mvto"

Quando no campo "codigo_produto" do formulario "Frm_MvtoEntSaida" é digitado o código as informações são carregadas na "Lst_MvtoProdutos".
Quando não souber o código clica na lupa e abre o formulario "Pesquisa_Mvto" e digita o nome desejado, e ao clicar no nome desejado as informações são carregadas no "Frm_MvtoEntSaida", neste caso a "Frm_MvtoEntSaida", devera ser carregada.

Olá!
Assista meu vídeo falando sobre impressão de itens da listbox.
Acesse aqui.

Bons estudos!

Tenho um outro projeto que utilizo ele para gerar relatorio data inicial e data final, e ele preenche a listbox, porém tentei usar neste projeto e nao funcionou, pois o campo codigo que utilzo para preencher a listbox esta como numero

Boa noite.

Seguindo orientações vista na internet, videos
Gerar somente o relatorio do conteudo da listbox não funcionou.
Ao digitar o codigo procurado a listbox é preenchida.

Bom dia
Este mt bom do Mestre Avelino Sampaio

Boa noite. Tentarei fazer a adequação do codigo para imprimir o conteudo da listbox

Bom dia,
seu caso está mais fácil que eu imaginava. Não havia baixado ainda o arquivo, agora baixei .

Vamos lá!

Basta passar o mesmo filtro sql da caixa de listagem para o relatório, assim (no código que chama o relatório):
DoCmd.OpenReport "Rel_mvto", acViewPreview, , "Cod_produto Like '*" & Trim(Me.Codigo_Produto) & "*'"

Só removi a propriedade text do campo Codigo_Produto por não ser necessário.

NO seu relatório tem um campo que precisa ser inserido na consulta origem. O campo é Obs_Mvto.

Erro tempo execucao 3075
Erro de sintaxe na cadeia na expressao de consulta cod_produto like seguido do codigo do produto entre asterisco.
Alterei a linha que foi descrita

Copie e cole o código aqui para vermos, por gentileza.

Utilizei esta linha abaixo e quando clico em imprimir pede para inserir valor do parametro "Cod_Produto"

Código:


Private Sub Comando33_Click()

 
  DoCmd.OpenReport "Rel_Mvto", acViewPreview, , "cod_produto like  " & Trim(Me.Codigo_Produto) & "" '

   
End Sub


Bom dia,
pelo o que vi, o seu código não está igual ao meu código postado na mensagem nº 7. Tem que ser idêntico.

Inseri o codigo que especificou na mensagem e ao mandar imprimir aoarece mensagem pedido um codigo
Anexei o arquivo com a correção do codig

Bom dia
Vou por aqui a funcionar a impressão.

Mas tem muitos erros

Teste

Baixei o arquivo e vou realizar alguns testes

Baixei o arquivo e estou tentando fazer com que se souber o código do produto digita e as informações são carregadas na listbox e ao mandar imprimir somente imprimi as informações do código desejado, e não sabendo o código procura no formulário de pesquisa e imprime somente informações do código desejado
Porém ja revirei todo o código e não consegui descobri que ao abrir o formulário o campo "Codigo_Produto" está bloqueado para digitação