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


    [Resolvido]Exportar Relatorio em PDF filtrado com base em campo NãoAcoplado

    avatar
    Marlo Sandrei
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 21/12/2016

    [Resolvido]Exportar Relatorio em PDF filtrado com base em campo NãoAcoplado Empty [Resolvido]Exportar Relatorio em PDF filtrado com base em campo NãoAcoplado

    Mensagem  Marlo Sandrei 10/4/2023, 15:15

    Ola bom dia.
    Estou precisando abrir um relatório em PDF, onde no meu Formulário tem uma Caixa de Combinação "NãoAcoplada" (txtAno), onde pego os valores de uma tabela que tem campo de data e uso o Format$ para deixar apenas o Ano. e agrupo para ter apenas os anos, esse servirá de filtro para o relatorio.
    No relatório, tenho uma caixa Caixa de Texto (txtAno), tmbm NãoAcoplada, onde receberá a informação da txtAno la do Formulario, que servirá para filtro dos subRelatorios que tem dentro do meu relatório.

    'Obriga a selecionar um ano para o filtro
    If IsNull(txtAno) Or txtAno.Value = "" Then
       MsgBox "Qual o ano de pesquisa?", vbOKOnly + vbCritical, "Atenção"
           txtAno.SetFocus
       txtAno.BackColor = RGB(255, 255, 0)
       
       Exit Sub
    End If

    On Error GoTo xpto

    Dim strLocal As String
    strLocal = "C:\BaseIML\SeuRelatorio.pdf"

    'Abre o relatório devidamente filtrado e oculto
    DoCmd.OpenReport "relExameCidade", acViewPreview, , "txtAno =" & [Forms]![frmRelatorioExames]![txtAno], acHidden

    'Gera arquivo pdf do relatório previamente aberto e filtrado.
    DoCmd.OutputTo acOutputReport, "relExameCidade", acFormatPDF, strLocal, True

    'Fecha o relatório
    DoCmd.Close acReport, "relExameCidade"

    xpto:
    If Err.Number <> 0 And Err.Number <> 2501 Then
    MsgBox "Erro: " & Err.Number & vbNewLine & Err.Description
    Exit Sub

    End If


    Código foi adaptado do https://www.usandoaccess.com.br/tutoriais/gerar-relatorios-em-pdf-e-enviar-por-email.asp?id=1

    Ele gera o relatório e abre, porém não filtra.


    Última edição por Marlo Sandrei em 10/4/2023, 19:00, editado 1 vez(es)
    avatar
    Marlo Sandrei
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 21/12/2016

    [Resolvido]Exportar Relatorio em PDF filtrado com base em campo NãoAcoplado Empty Re: [Resolvido]Exportar Relatorio em PDF filtrado com base em campo NãoAcoplado

    Mensagem  Marlo Sandrei 10/4/2023, 18:58

    Resolvido.

    Retirei o filtro do codigo

    ...
    'Abre o relatório devidamente filtrado e oculto
    DoCmd.OpenReport "relExameCidade", acViewPreview, , , acHidden

    ...

    e dps determinei a fonte do controle do txtAno do Relatorio como sendo o campo txtAno do Formulário aberto.


      Data/hora atual: 25/2/2024, 09:32