[Resolvido]Abrir um outro bd ao clicar botão

Amigos tenho um bd e quero por um botão que ao clicar 2 vezes abra um outro banco de dados access
Achei esse código que me parece é do JP,ele funciona só que o bd abre somente em modo leitura, e abre o menu desse bd 2 vezes. Teria um outro geito.Grato.



Private Sub Banco_externo_DblClick(Cancel As Integer)
Dim strcmd As String
Dim objaccess As Access.Application
strcmd = SysCmd(acSysCmdAccessDir) & "\msaccess.exe " & "c:\ComercioJars.mdb"
Call Shell(strcmd, vbNormalFocus)
DoEvents:
Set objaccess = GetObject("c:\ComercioJARS.mdb")
'DoCmd.Quit ' para fechar o banco mdb que chamou o outro

End Sub

Abrir Banco Ms Access com senha

Dentro do VBA do seu formulario:

Sub OpenDB()
Dim MinhaPassword As Variant
MinhaPassword = "xpto"
strDbName = "c:\SeuBanco.mdb"
Set objaccess = New Access.Application
Set db = objaccess.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=" & MinhaPassword)
objaccess.OpenCurrentDatabase filepath:=strDbName
End Sub

Para chamar o Sub:

Private Sub SeuBotao_Click()
OpenDB
End Sub

Cumprimentos.

Piloto,variavel não definida e seleciona essa, strDbName

Se no módulo do seu form tem a expressão Option Explicit...

Significa que todas as variáveis devem ser declaradas...
Declare ela na sub

Dim strDbName as String


Cumprimentos.

PIloto ta dando erro de arquivo invalido.

Set db = objaccess.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=" & MinhaPassword)

tenho o bd na area de trabalho coloquei o botão no menu desse bd,pra abrir um outro que esta em meus documentos.Fiz algo errado?Abri o menu em modo extrutura e coloquei o codigo ali dentro, no botão.. Private Sub SeuBotao_Click()
OpenDB
End Sub

Sub OpenDB()
Dim MinhaPassword As Variant
MinhaPassword = "xpto"
strDbName = "Documentos:\JARSComercial.mdb"
Set objaccess = New Access.Application
Set db = objaccess.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=" & MinhaPassword)
objaccess.OpenCurrentDatabase filepath:=strDbName
End Sub

Sim.. amigo.. a pasta Documentos... tem um caminho.. e para cada usuário no windows se modifica o usuário, modificará o caminho da pasta.
Observe a pasta no meu PC:

C:\Users\Surveillance\Documents


Aqui no meu caso ficaria assim:
strDbName = "C:\Users\Surveillance\Documents\JARSComercial.mdb"

Recomendo que coloque em outra pasta e um atalho apenas no desktop...

Mas também existe uma função que captura o nome do usuário logado no windows. Algo assim:

"C:\Users\" & Environ("UserName") & "\Documents\JARSComercial.mdb"


Cumprimentos.

Não deu certo Piloto,achei o nome certo mas ...;diz que não foi possivel encontrar o arquivo. Será que o código esta no lugar errado,vai o bd.

Sub OpenDB()
Dim MinhaPassword As Variant
MinhaPassword = "xpto"
strDbName = "C:\Users\Abegahil\Documents\JARSComercial.mdb"
Set objaccess = New Access.Application
Set db = objaccess.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=" & MinhaPassword)
objaccess.OpenCurrentDatabase filepath:=strDbName
End Sub

https://dl.dropboxusercontent.com/u/90217826/Gerencia.zip

Kaynan.. eu testei aqui com o caminho do meu pc... Funcionou..
Porém abre o bd e em seguid ao fecha..

Postarei o Código e esperaremos ajuda de nossos mestres.

Private Sub Comando1_Click()

Dim MinhaPassword As Variant
MinhaPassword = "xpto"
strDbName = "C:\Users\Surveillance\Documents\BdExemplo.accdb"
Set objaccess = New Access.Application
Set db = objaccess.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=" & MinhaPassword)
objaccess.OpenCurrentDatabase filepath:=strDbName
End Sub

Cumprimentos.

Ok Piloto.

Piloto consegui fazer funcionar com esse código,só que ele abre duas vezes o mesmo bd não sei porque.

Private Sub Comando341_Click()
Dim strcmd As String
Dim objaccess As Access.Application
strcmd = SysCmd(acSysCmdAccessDir) & "\msaccess.exe " & "C:\Users\Abegahil\Documents\JARSComercial.mdb"
Call Shell(strcmd, vbNormalFocus)
DoEvents:
Set objaccess = GetObject("C:\Users\Abegahil\Documents\JARSComercial.mdb")
'DoCmd.Quit ' para fechar o banco mdb que chamou o outro
End Sub

teste modificando linha..

Coloque a instrução de fechar antes de abrir o Bd
Desabilite a instrução DoEvents...

Enfim.. faça isto e retorne.

Olha ai que bacana.. Está conseguindo mais do que eu... Estou esperando vosso ensinamento.. pois aqui não consegui.

Cumprimentos.

Não pude responde antes abençoado, agora funcionou perfeitamente como queria,abre uma vez só.

Private Sub Comando341_Click()
Dim objaccess As Access.Application
Dim strcmd As String
strcmd = SysCmd(acSysCmdAccessDir) & "\msaccess.exe " & "C:\Users\Abegahil\Documents\JARSComercial.mdb"
Call Shell(strcmd, vbNormalFocus)
End Sub

Depois dou como resolvido.

Qual seria a finalidade de se abrir o segundo banco? Não seria mais prático utilizá-lo como um segundo backend e acessar os dados dele à partir do primeiro aplicativo?

Poxa mestre seria bem mais pratico,mas como faria isso pra acessar do primeiro aplicativo,esse primeiro não é dividido em back e Front.
Nesse segundo bd tem coisas que pra mim é dificil fazer funcionar no primeiro aplicativo, por isso foi a solução que achei.

Já tentou abrir assim?

Código:

Dim dbObject As Access.Application
Set dbObject = GetObject("Caminho\Banco.mdb")
dbObject.OpenCurrentDatabase "Caminho\Banco.mdb", , "Senha"
Set dbObject = Nothing

Esse código eu colocaria no vba do menu do primeiro aplicativo e depois.....

Você não quer só abrir o outro aplicativo? Então seria isso em um botão e só.

Resolvi assim em um botão.

Private Sub Comando341_Click()
Dim objaccess As Access.Application
Dim strcmd As String
strcmd = SysCmd(acSysCmdAccessDir) & "\msaccess.exe " & "C:\Users\Abegahil\Documents\JARSComercial.mdb"
Call Shell(strcmd, vbNormalFocus)
End Sub

Ficou legal,abre até oque não existe hehehe.

Obrigado Criquio,Piloto mais uma vez obrigado.

O Fórum agradece o retorno.

Pessoal só mais uma dúvida nesse mesmo assunto,com esse código eu abro outro bd externo,mas ele abre só se o banco de dados for em formato 2003,em 2010 ele não abre,teria algo mais a acrescentar para ele abrir um bd 2010.

Obs:Oque eu uso esta em 2010,no qual coloquei esse botão ,mas só abre se for o bd em 2003,em 2010 ele diz que o arquivo não foi encontrado.

abçs.

Private Sub Comando341_Click()
Dim objaccess As Access.Application
Dim strcmd As String
strcmd = SysCmd(acSysCmdAccessDir) & "\msaccess.exe " & "C:\Users\Abegahil\Documents\JARSComercial.mdb"
Call Shell(strcmd, vbNormalFocus)
End Sub

A extensão do 2010 é accdb.

Cumprimentos.

Sim,é accdb

Oras..se é accdb, veja na instrução o que está errado.

Cumprimentos.

Piloto,só faltava você me dizer essas últimas 11 palavras pra me ligar a outra parte do cérebro que tava descansando.hehehehe. 
Resolvido.

Acontece amigão.

O Fórum agradece o retorno.