ABRIR RELATORIO NO ACCESS

USUARIO.EXCLUIDOS 30/03/2005 10:09:46
#75710
ESTOU USANDO A SEGUINTE ROTINA PARA ABRIR

Private Sub Command1_Click()
Dim ac As Access.Application
Set ac = New Access.Application
ac.OpenCurrentDatabase ("c:    este\SeuBancoAccess.mdb")
ac.Visible = True
ac.DoCmd.OpenReport "Catalog", acViewPreview
End Sub

MAS ELE ABRE O ACCESS TAMBEM.

EXISTE A POSSSIBILIDADE DE SOMENTE VISUALIZAR O RELARORIO?

VALEU!!
IVOFABIANO 30/03/2005 11:21:52
#75723 Resposta escolhida
Não use : Dim objAccess As NEW Access.Application

Use assim:

Dim objAccess As Access.Application
Set objAccess = New Access.Application 'Cria uma instà¢ncia do Access

Para resolver seu problemas faça :

ac.Visible = False 'O Access fica invisível



Abs
Tópico encerrado , respostas não são mais permitidas
Voltar