ABRIR BANCO DE DADOS NO ACCESS
Viva!
Li um tópico, sobre como se abrem documentos do Word e era assim:
Fazendo-se referência à  libraria respectiva.
Agora, gostava de saber como se faz isto com o Access!
Alguém me pode ajudar?
Li um tópico, sobre como se abrem documentos do Word e era assim:
Dim word As New word.Application
With word
.Documents.Open "c: este este.doc"
.Visible = True
.WindowState = wdWindowStateMaximize
End With
Fazendo-se referência à  libraria respectiva.
Agora, gostava de saber como se faz isto com o Access!
Alguém me pode ajudar?
Viva Miguel,
isto é o mesmo que ir ao Menu Iniciar > Executar do Windows e escrever MSAccess
Option Explicit
'************* Declaração API para shell *******************
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5
Private Sub Command1_Click()
On Error Resume Next
ShellExecute hwnd, "open", "MSAccess", vbNullString, vbNullString, SW_SHOW
End Subisto é o mesmo que ir ao Menu Iniciar > Executar do Windows e escrever MSAccess
Bom, se o banco estiver na mesma pasta que o programa basta usar o App.path, mas se não estiver só passando o caminho completo...
ShellExecute hwnd, "open", App.Path & "\Banco.mdb", vbNullString, vbNullString, SW_SHOW
Tópico encerrado , respostas não são mais permitidas