[Resolvido]Relatorio do conteudo da listbox

Boa noite.
No formulário "Frm_Movimento", ao abrir e digitar o codigo desejado e informar a data inicial e final a caixa de listagem retorna os dados que estão no periodo informado, porém ao mandar imprimir o o relatorio pega todos os lançamentos.
Como faço para gerar somente o relatorio dos lançamentos listados na listbox.
Tentei fazer uma adaptação em um código que encontrei e não funcionou

Olá Denilson Souza,

Ajuste o seu código conforme este abaixo e teste.


Abraço

Esse finalzinho do scrit que esta curculado nao consegui visualizar para fazer a correcao no meu codigo

Olá Denilson Souza,

Foi propositado   , para evitar o "copy e paste" e não ver como foi efetuado.
Segue o código:

Código:

Private Sub Btn_GeraRelatorio_Click()
    Dim sCrit, sCodigo As String
    
    If Me.Lst_Movimento.ListCount = 0 Then
        MsgBox "O sistema não localizou registros com o periodo informado.", vbExclamation, "Aviso"
        Exit Sub
    End If
    
    If Len(Me.Txt_Codigo & "") > 0 Then sCodigo = "AND [Cod_Produto] = " & Me.Txt_Codigo
    
    sCrit = "Data_Lcto BETWEEN  #" & Format(Me.Txt_DataIni, "mm/dd/yyyy") & "# AND #" & Format(Me.Txt_DataFinal, "mm/dd/yyyy") & "# " & sCodigo
    
    If IsNull(Me.Txt_DataIni) Or IsNull(Me.Txt_DataFinal) Then
        If Len(Me!Txt_Codigo & "") > 0 Then
            DoCmd.OpenReport "Rel_Movimento", acViewPreview, , "cod_produto = " & Me!Txt_Codigo
        Else
            DoCmd.OpenReport "Rel_Movimento", acViewPreview
        End If
    Else
        DoCmd.OpenReport "Rel_Movimento", acViewPreview, , sCrit
    End If

End Sub

Abraço

Obrigado

Olá Denilson Souza,

Não se esqueça de dar o tópico como Resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço