[Resolvido]Filtro não funciona

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

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

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

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

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

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

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

Ola amigos,

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

Arquivo Filtro

Obrigado

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

Obrigado Antonildo,

Funciou perfeitamente..

Que bom Fabio!!!
Fico Feliz por vc.

Um abraço Sucesso!!!