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

3 participantes

    [Resolvido]Filtro não funciona

    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 22/03/2011

    [Resolvido]Filtro não funciona Empty [Resolvido]Filtro não funciona

    Mensagem  fabioavila 21/3/2022, 00:35

    Ola ,

    Estou adaptando a função para EXPORTAR em pdf meu relatório, porém coloco a condição pra filtra de acordo com o numero da parcela e ele esta EXPORTANDO todas para o PDF.

    Esse é o código original que esta funcionando para imprimir normalmente.
    Código:


        If Not IsNull(Me.bytParcela) Then
            DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
            Dim Filtro As String
            Filtro = "[lngNumContrato] = " & Str(Me.lngNumContrato) & " And [bytParcela] = " & Str(Me.bytParcela)
            DoCmd.OpenReport "rpt_ReciboG", acPreview, , Filtro
        End If
        
    End Sub


    Esse é código com a linha acrescentada para exportar.

    Código:

        If Not IsNull(Me.bytParcela) Then
            DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
            Dim Filtro As String
            Filtro = "[lngNumContrato] = " & Str(Me.lngNumContrato) & " And [bytParcela] = " & Str(Me.bytParcela)
          
     DoCmd.OutputTo acOutputReport, "rpt_ReciboG", acFormatPDF, Me.txtPath & ".pdf", False
            
            
        End If

        

    Obrigado
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtro não funciona Empty Re: [Resolvido]Filtro não funciona

    Mensagem  Alvaro Teixeira 21/3/2022, 09:54

    Olá Fábio Pereira,

    O comando DoCmd.OutputTo não permite filtro.
    Solução simples, altere a origem do seu relatorio de tabela para consulta de forma a ter os mesmo dados.
    Na consulta depois coloque o filtro , alterando a referencia me. pelo caminho correto do objetos envolvidos.
    Desta forma já deve fuincionar.

    Abraço
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 22/03/2011

    [Resolvido]Filtro não funciona Empty Re: [Resolvido]Filtro não funciona

    Mensagem  fabioavila 21/3/2022, 15:11

    Ola ahteixeira,

    Mas direto pelo VBA não consigo adaptar essa linha em meu projeto ?

    DoCmd.OutputTo acOutputReport, "rpt_ReciboG", acFormatPDF, Me.txtPath & ".pdf", False
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtro não funciona Empty Re: [Resolvido]Filtro não funciona

    Mensagem  Alvaro Teixeira 21/3/2022, 16:52

    Olá Fábio Pereira,

    Volto a repetir "o comando DoCmd.OutputTo não permite filtro."
    Leia novamente a minha mensagem anterior, se tiver dificuldades, partilhe base de dados com parte envolvida na dúvida (tabelas, forme reporte).

    Abraço
    Antonildo
    Antonildo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 14/03/2014

    [Resolvido]Filtro não funciona Empty Re: [Resolvido]Filtro não funciona

    Mensagem  Antonildo 21/3/2022, 21:08

     Veja se não faltou iso
    Filtro = "[lngNumContrato] = " & Str(Me.lngNumContrato) & " And [bytParcela] = " & Str(Me.bytParcela) &""
    aqui no final
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtro não funciona Empty Re: [Resolvido]Filtro não funciona

    Mensagem  Alvaro Teixeira 22/3/2022, 10:52

    Olá a todos,

    Antonildo Cordeiro, a instrução não permite filtro, veja:
    docs.microsoft.com/en-us/office/vba/api/access.docmd.outputto

    Fábio Pereira, conseguiu da forma que indiquei?

    Abraço a todos
    Antonildo
    Antonildo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 14/03/2014

    [Resolvido]Filtro não funciona Empty Re: [Resolvido]Filtro não funciona

    Mensagem  Antonildo 22/3/2022, 11:03

    Bom dia!!
    esta certo ahteixeira não atentei.
    Muito obrigado!!
    Fabiola por que vc nao faz esse filtro na consulta que vc esta usando no Relatório?
    ai é so converter para pdf

    Pelo o que eu entendi esse relatorio ja tem que esta pronto com os filtros para converte-lo para Pdf
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 22/03/2011

    [Resolvido]Filtro não funciona Empty Re: [Resolvido]Filtro não funciona

    Mensagem  fabioavila 23/3/2022, 01:54

    Ola amigos,

    Segue meu bd para analise, estou tentando fazer o filtro pela consulta.

    Arquivo Filtro

    Obrigado
    Anexos
    [Resolvido]Filtro não funciona AttachmentArquivo Filtro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (78 Kb) Baixado 9 vez(es)
    Antonildo
    Antonildo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 14/03/2014

    [Resolvido]Filtro não funciona Empty Re: [Resolvido]Filtro não funciona

    Mensagem  Antonildo 23/3/2022, 13:20

    Bom dia Fabio!!

    vc precisa modificar esse criterio da sua consulta estava assim
    [forms]![subfrm_Parcelas]![NRECIBO]
    coloque assim
    [forms]![carmens]![subfrm_Contratos]![subfrm_Parcelas]![NRECIBO]

    quando vc usa um subformulario vc precisa referenciar o ou os formularios onde ele estar
    entendeu??

    Outra coisa substitua Dim db As Database, rs As Recordset
    por Dim db As DAO.Database, rs As DAO.Recordset

    e faça referencia da biblioteca
    Microsoft DAO 3.6 Object Library
    Adobe Acrobat 9.0 Type Library
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 22/03/2011

    [Resolvido]Filtro não funciona Empty Re: [Resolvido]Filtro não funciona

    Mensagem  fabioavila 29/3/2022, 20:00

    Obrigado Antonildo,

    Funciou perfeitamente..
    Antonildo
    Antonildo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 14/03/2014

    [Resolvido]Filtro não funciona Empty Re: [Resolvido]Filtro não funciona

    Mensagem  Antonildo 31/3/2022, 04:05

    Que bom Fabio!!!
    Fico Feliz por vc.

    Um abraço Sucesso!!!

      Data/hora atual: 24/9/2022, 21:24