[Resolvido]Selecionar itens para relatorio

Boa tarde.
Estou com um relatório onde especifico data inicial e data final, e lista todos os movimentos existente neste período.
Como faço para que ao especificar a data inicial e a data final, na caixa de listagem apareça somente o código e a descrição.
Depois vou na caixa de listagem e clico quais os códigos desejados e ele lista todas as movimentações em um relatório

boa tarde

esse exemplo deve lhe ajudar

Bom dia.
No exemplo anexado eu procurei e não consegui descobrir como fazer para que ao digitar o periodo desejado ele liste somente o código e a descrição do produto
Ao selecionar na listbox os produtos desejados e quando clicar em relatorio ele puxe os produtos e as movimentações relacionadas a ele
Na planilha do excel quando eu faço o filtro na descrição aparece somente uma vez e quando eu confirmo que realmente ele aparece todos os lançamentos daquele produto.

Boa noite.
Realizei uma mudança no programa.
Os produtos foram divididos por setor (Setor_01 e Setor_02)
Fiz um teste, porém ele lista no periodo mas quando no filtro seleciono o setor a ser impresso, a listbox não é carregada com os dados.

Realizei algumas alterações que não funcionou como esperava.
No campo setor quando digito o numero desejado ao sair faz a conversão para o nome do setor, porem ao digitar as datas desejadas,
Digita a data inicial e logo após digitar a data final abre uma tela de inserir parametro.
O que preciso que ao informar o setor e  quanto digitar data inicial e final ele relaciona as movimentações referente ao setor e ao clicar no botão relatorio ele é gerado.]
O problema que não estou conseguindo solucionar parece que está no código abaixo e não consegui resolução para isto

Segue em anexo o programa atualizado

Código:



Private Sub subFiltrar()
Dim blnData As Boolean

    If IsNull(Me.Txt_DataIni) Or IsNull(Me.Txt_DataFinal) Then
        blnData = False
    Else
        blnData = True
    End If
        
    strSQL = "SELECT"
    strSQL = strSQL & " Id_SeqLcto,"
    strSQL = strSQL & " Data_Lcto,"
    strSQL = strSQL & " Num_Doc,"
    strSQL = strSQL & " Cod_Produto,"
    strSQL = strSQL & " Desc_Produto,"
    strSQL = strSQL & " id_area,"
    strSQL = strSQL & " Entrada_Produto,"
    strSQL = strSQL & " Saida_Produto,"
    strSQL = strSQL & " Fisico_Produto,"
    strSQL = strSQL & " Liberado_por,"
    strSQL = strSQL & " Obs_mvto"
    strSQL = strSQL & " FROM csConsultaEntradaSaida"
    If blnData = True Then
        strSQL = strSQL & " WHERE (Data_Lcto BETWEEN #" & Format(Me.Txt_DataIni, "mm/dd/yyyy") & "#"
        strSQL = strSQL & " AND #" & Format(Me.Txt_DataFinal, "mm/dd/yyyy") & "#)"
        If Len(Me!Txt_Codigo & "") > 0 Then strSQL = strSQL & " AND (Id_Area = " & Me!Txt_Codigo & ")"
    Else
        If Len(Me!Txt_Codigo & "") > 0 Then
            strSQL = strSQL & " WHERE cod_produto = " & Me!Txt_Codigo
        Else
            strSQL = strSQL & " WHERE Id_SeqLcto > 0"
        End If
    End If
    strSQL = strSQL & " ORDER BY Cod_Produto, data_lcto;"
    Me.Lst_Movimento.RowSource = strSQL
    Me.Lst_Movimento.Requery

    
    
End Sub




Já realizei todas as tentativas possíveis e não estou conseguindo obter o resultado desejado.
Inclui no meu arquivo de teste uma combobox onde inseri os setores.
Ao digitar o intervalo (data inicial e data final) a listbox é carregada somente com os lançamentos daquela data informada, porém quando na combobox quando seleciono o setor desejado, a caixa de listagem os valores que apareceram desaparecem, porém quando clico no botão para gerar o relatorio todos os lançamento especificada na data inicial e data final aparecem no relatorio.
Porem só não estou conseguindo descobrir como fazer para que ao selecionar o setor na combobox ele carregue somente os lançamentos referente ao setor escolhido

Veja o simples;

Ok.
Funcionou. Vou tentar aqui, antde mandar gerar no relatorio estas informacoes apareçam na caixa de listagem