ABRIR RELATORIO ACCESS, PELO VB
Bom dia, pessoal.
não estou conseguindo abrir o relatorio do access através do visual basic 6, to usando o codigo abaixo
Dim strDBName As String
Dim SQL As String
Dim RELA As Access.Application
Set RELA = New Access.Application
strDBName = [Ô]\BD\dados.mdb[Ô]
With RELA
.OpenCurrentDatabase filepath:=strDBName [ô]< ---------------------- DA ERRO NESSA LINHA FALA QUE N ÃO PODE ABRIR POIS O BANCO ESTA AUSENTE, FOI ABERTO EXCLUSIVO POR OUTRO USUARIO OU NÃO é UM ARQUIVO ADP.
.DoCmd.OpenReport [Ô]CARIMBO[Ô], acViewPreview
End With
Set RELA = Nothing
[ô]----------
COMO PROCEDER PARA SOLUCIONAR ESTER ERRO.
não estou conseguindo abrir o relatorio do access através do visual basic 6, to usando o codigo abaixo
Dim strDBName As String
Dim SQL As String
Dim RELA As Access.Application
Set RELA = New Access.Application
strDBName = [Ô]\BD\dados.mdb[Ô]
With RELA
.OpenCurrentDatabase filepath:=strDBName [ô]< ---------------------- DA ERRO NESSA LINHA FALA QUE N ÃO PODE ABRIR POIS O BANCO ESTA AUSENTE, FOI ABERTO EXCLUSIVO POR OUTRO USUARIO OU NÃO é UM ARQUIVO ADP.
.DoCmd.OpenReport [Ô]CARIMBO[Ô], acViewPreview
End With
Set RELA = Nothing
[ô]----------
COMO PROCEDER PARA SOLUCIONAR ESTER ERRO.
o Arquivo esta dentro da pasta BD mesmo??? faça o seguinte.. strDBName = [Ô]c:\BD\dados.mdb[Ô] , informe o caminho completo, se banco de dados nao tiver ai ai vai dar o erro correto, pois pelo que esta aparentando pela mensagem e que o banco nao esta la mesmo nao.
consegui abrir com o endereço completo, mais ae e complicado pois se o cara instalar em outra pasta, ae vai da erro, mais valeu pela ajuda, amigo.
e se tu usar o app.path...será que ñ resolve...
Coloca assim então
strDBName = App.Path & [Ô]\BD\dados.mdb[Ô]
que vc vai dizer para procurar dentro da pasta do executavel a pasta BD
strDBName = App.Path & [Ô]\BD\dados.mdb[Ô]
que vc vai dizer para procurar dentro da pasta do executavel a pasta BD
Opa deu certinho agora, só que quando fecho o formulario e até mesmo o programa, a base de dados fica como estive-se aberta?
Set RELA = Nothing
RELA.Close
RELA.Close
Opa, no evento unload do formulario coloque o que o marcelo falou
Private Sub Form_Unload(Cancel As Integer)
Set RELA = Nothing
RELA.Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set RELA = Nothing
RELA.Close
End Sub
Tópico encerrado , respostas não são mais permitidas