MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Relatorio do conteudo da listbox

    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 216
    Registrado : 02/05/2012

    [Resolvido]Relatorio do conteudo da listbox Empty [Resolvido]Relatorio do conteudo da listbox

    Mensagem  souzadenilson 30/8/2023, 00:39

    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
    Anexos
    [Resolvido]Relatorio do conteudo da listbox AttachmentProdutos_Controlados1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (932 Kb) Baixado 6 vez(es)


    Última edição por souzadenilson em 31/8/2023, 23:00, editado 1 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7905
    Registrado : 15/03/2013

    [Resolvido]Relatorio do conteudo da listbox Empty Re: [Resolvido]Relatorio do conteudo da listbox

    Mensagem  Alvaro Teixeira 30/8/2023, 10:42

    Olá Denilson Souza,

    Ajuste o seu código conforme este abaixo e teste.
    [Resolvido]Relatorio do conteudo da listbox 0239

    Abraço
    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 216
    Registrado : 02/05/2012

    [Resolvido]Relatorio do conteudo da listbox Empty Re: [Resolvido]Relatorio do conteudo da listbox

    Mensagem  souzadenilson 30/8/2023, 15:47

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7905
    Registrado : 15/03/2013

    [Resolvido]Relatorio do conteudo da listbox Empty Re: [Resolvido]Relatorio do conteudo da listbox

    Mensagem  Alvaro Teixeira 30/8/2023, 16:56

    Olá Denilson Souza,

    Foi propositado  Laughing , 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
    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 216
    Registrado : 02/05/2012

    [Resolvido]Relatorio do conteudo da listbox Empty Re: [Resolvido]Relatorio do conteudo da listbox

    Mensagem  souzadenilson 30/8/2023, 17:31

    Obrigado
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7905
    Registrado : 15/03/2013

    [Resolvido]Relatorio do conteudo da listbox Empty Re: [Resolvido]Relatorio do conteudo da listbox

    Mensagem  Alvaro Teixeira 31/8/2023, 16:22

    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

    Conteúdo patrocinado


    [Resolvido]Relatorio do conteudo da listbox Empty Re: [Resolvido]Relatorio do conteudo da listbox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/2/2024, 08:49