[Resolvido] Códigos VBA para Relatórios - Atualizar relatório antes de abrir

Olá galera!

vamos a mais uma duvida

eu comecei a introduzir alguns códigos para ir me familiarizando com eles e evitar o uso indiscriminado de macros rsrsr

então eu comecei poraqui

Exemplo:

DoCmd.Close
DoCmd.OpenForm "Cliente", acNormal


Então cheguei neste ponto aqui.
e uma coisa simples só que eu não achei em lugar nenhum ou não soube como procurar "digitar aquelas palavrinhas magicas no google"


eu queria que o relatorio atualizasse antes de abrir

no evento DoCmd não tem algo como

refresh ou atualizar talvez tenha ou forma ou outro evento.

código que eu estou usando segue abaixo:

Private Sub CmdImprimir_Click()
DoCmd.OpenReport "orcamento_finame", acViewReport, , stcriterio

End Sub

Obrigado!

Boas....


Todo relatório é baseado em uma consulta, que recebe os dados oriundos de uma tabela, que por sua vez, recebe o input ( entrada de dados) através de um formulário. Pode, ser usado o comando = me.refresh ao salvar o conteúdo desse formulário.

Automaticamente, tua tabela..consulta e relatório serão atualizados.

Abraços.

Eu coloquei assim:


Private Sub CmdImprimir_Click()
Me.Refresh
DoCmd.OpenReport "orcamento_finame", acViewReport, , stcriterio

End Sub


deu erro:

erro em tempo de execução '2501':
ação openreport foi cancelada


eu tinha feito uma macro e tinha colocado

atualizar
e abrirrelatorio

então eu quero fazer isso só que em codigos.

Um pitaco:

Se funcionava com a Macro, converta a Macro em VBA e veja com fica em código.

JPaulo
"Se funcionava com a Macro, converta a Macro em VBA e veja com fica em código."

como eu faço isso???

aqui eu tenho um formulário que tem um botão que chama a função que seria essa.

eu olhei lá eu não consegui visualizar para converter.


JPaulo Achei aqui para converte


Obrigado pela ajudar

Private Sub CmdImprimir_Click()
DoCmd.OpenReport "orcamento_finame", acViewReport, , stcriterio

End Sub

Pode tentar também:

Private Sub CmdImprimir_Click()

DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "orcamento_finame", acViewReport, , stcriterio

End Sub

Cláudio Más

não deu certo

deu erro o codigo.

Private Sub CmdImprimir_Click()

DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "orcamento_finame", acViewReport, , stcriterio

End Sub


deu erro:

erro em tempo de execução '2501':
ação openreport foi cancelada

só que eu peguei aqui e converti a macro ai fui mexendo e mexendo até que deu certo rsrss

maldita informatica. rsrsrs



ai ficou assim o código para atualizar o relatório antes de abrir

Private Sub CmdImprimir_Click()

DoCmd.RunCommand acCmdRefresh
DoCmd.OpenReport "Orcamento_Finame", acViewReport, "", "", acNormal

End Sub

Obrigado Novamente Gente.

Não pensem que vocês estaram livres porque eu voltarei. hahahahahahahaha

Mas entenda para aprender, onde estava o erro.

Você inicialmente estava a passar um filtro que não existe:

DoCmd.OpenReport "orcamento_finame", acViewReport, , stcriterio

Agora está a abrir normal, sem filtro:

DoCmd.OpenReport "Orcamento_Finame", acViewReport, "", "", acNormal