IMPRESSAO DE RELATORIO DO ACCESS VIA VBA
Saudações , Prezados.
Estou me aventurando em fazer relatórios no access e preciso disparar os mesmos a partir dentro de um programa feito com forms em VBA Excel. peguei um gancho aqui no forum que já foi publicado:
Funciona certinho, mas o problema é que este relatório foi montado no access a partir de uma consulta que espera alguns parâmetros para carregar.
A instrução abaixo abre a visualização e junto com ela o banco todo ... Eu não quero que o banco apareça e quando ponho [Ô]visible = false[Ô] da pau, pois o access fica oculto e o parâmetro não pode ser preenchido.
O windows fica travado esperando o preenchimento do parâmetro ... como resolver ???
Private Sub CommandButton1_Click()
Dim ac As Access.Application
Set ac = New Access.Application
ac.OpenCurrentDatabase ([Ô]F:\CorridaMateriais.accdb[Ô])
ac.Visible = True
ac.DoCmd.OpenReport [Ô]Etq1[Ô], acViewPreview
End Sub
Estou me aventurando em fazer relatórios no access e preciso disparar os mesmos a partir dentro de um programa feito com forms em VBA Excel. peguei um gancho aqui no forum que já foi publicado:
Funciona certinho, mas o problema é que este relatório foi montado no access a partir de uma consulta que espera alguns parâmetros para carregar.
A instrução abaixo abre a visualização e junto com ela o banco todo ... Eu não quero que o banco apareça e quando ponho [Ô]visible = false[Ô] da pau, pois o access fica oculto e o parâmetro não pode ser preenchido.
O windows fica travado esperando o preenchimento do parâmetro ... como resolver ???
Private Sub CommandButton1_Click()
Dim ac As Access.Application
Set ac = New Access.Application
ac.OpenCurrentDatabase ([Ô]F:\CorridaMateriais.accdb[Ô])
ac.Visible = True
ac.DoCmd.OpenReport [Ô]Etq1[Ô], acViewPreview
End Sub
Faça seu login para responder