Bom dia Galera!
Estou tentando salvar um relatório em PDF em uma pasta onde consta o bd. Quando chega na parte do código para transformar em PDF da essa mensagem:
erro 2501 ação OutputTo cancelada!
Será que falta alguma informação no código?
O relatório é baseado em uma consulta com o seguinte parâmetro: >=[forms]![frm_movimento_imprimir]![datainicialm]
Eu criei um formulário para digitar a data, um botão para visualizar o relatório filtrado com as informações desejadas!
Gostaria de salvar em pdf por segurança!
Abaixo código utilizado:
If IsNull(datainicialm) Then
MsgBox "Informe a data de Hoje", vbInformation, "Data de hoje"
datainicialm.SetFocus
Exit Sub
Else
DoCmd.SetWarnings False
'deleta dados da tabela movimento
DoCmd.OpenQuery "movimento_exclusao"
'atualiza tabela movimento
DoCmd.OpenQuery "movimento_acrescimo_bc_movimento"
DoCmd.OpenQuery "movimento_acrescimo_caixa"
DoCmd.OpenQuery "movimento_acrescimo_cartao"
DoCmd.OpenQuery "movimento_acrescimo_dinheiro"
DoCmd.OpenQuery "movimento_acrescimo_despesa"
DoCmd.OpenQuery "movimento_acrescimo_rpc_comissao"
DoCmd.OpenQuery "movimento_acrescimo_rpc_recarga"
DoCmd.SetWarnings True
Dim strArquivo As String
Dim strLocal As String
strArquivo = "EXTRATO_MOVIMENTO_FINANCEIRO" & Me!datainicialm & ".pdf"
strLocal = CurrentProject.Path & "\caixa\" & strArquivo
'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "relatorio_movimento_dia", acViewPreview, , "movimento_data=" & Me!datainicialm & acHidden
'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "relatorio_movimento_dia", acFormatPDF, strLocal
'Fecha o relatório
DoCmd.OpenReport "relatorio_movimento_dia", acViewPreview
End If
End Sub
Será que errei em alguma coisa?
Estou tentando salvar um relatório em PDF em uma pasta onde consta o bd. Quando chega na parte do código para transformar em PDF da essa mensagem:
erro 2501 ação OutputTo cancelada!
Será que falta alguma informação no código?
O relatório é baseado em uma consulta com o seguinte parâmetro: >=[forms]![frm_movimento_imprimir]![datainicialm]
Eu criei um formulário para digitar a data, um botão para visualizar o relatório filtrado com as informações desejadas!
Gostaria de salvar em pdf por segurança!
Abaixo código utilizado:
If IsNull(datainicialm) Then
MsgBox "Informe a data de Hoje", vbInformation, "Data de hoje"
datainicialm.SetFocus
Exit Sub
Else
DoCmd.SetWarnings False
'deleta dados da tabela movimento
DoCmd.OpenQuery "movimento_exclusao"
'atualiza tabela movimento
DoCmd.OpenQuery "movimento_acrescimo_bc_movimento"
DoCmd.OpenQuery "movimento_acrescimo_caixa"
DoCmd.OpenQuery "movimento_acrescimo_cartao"
DoCmd.OpenQuery "movimento_acrescimo_dinheiro"
DoCmd.OpenQuery "movimento_acrescimo_despesa"
DoCmd.OpenQuery "movimento_acrescimo_rpc_comissao"
DoCmd.OpenQuery "movimento_acrescimo_rpc_recarga"
DoCmd.SetWarnings True
Dim strArquivo As String
Dim strLocal As String
strArquivo = "EXTRATO_MOVIMENTO_FINANCEIRO" & Me!datainicialm & ".pdf"
strLocal = CurrentProject.Path & "\caixa\" & strArquivo
'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "relatorio_movimento_dia", acViewPreview, , "movimento_data=" & Me!datainicialm & acHidden
'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "relatorio_movimento_dia", acFormatPDF, strLocal
'Fecha o relatório
DoCmd.OpenReport "relatorio_movimento_dia", acViewPreview
End If
End Sub
Será que errei em alguma coisa?
Última edição por controls em 23/2/2014, 15:18, editado 1 vez(es)