[Resolvido] Abrir outro banco de dados externo .ACCDR

Olá a todos,

Estou c/ o seguinte código a tentar abrir uma outra BD c/ Password no formato ".ACCDR".

Código:

Function OpenOtherDb(strDbPath As String)
Dim Pass            As Variant
Dim objAcc          As Object
Dim db              As DAO.Database

Pass = "12345"
Set objAcc = CreateObject("Access.Application")
Set objAcc = New Access.Application
Set db = objAcc.DBEngine.OpenDatabase(strDbPath, False, False, ";PWD=" & Pass)

objAcc.OpenCurrentDatabase strDbPath
objAcc.UserControl = True

Application.Quit
End Function


Que é chamado assim:

Código:

Call OpenOtherDb(CurrentProject.Path & "\Database.accdr")

O problema é não funciona e diz que não reconhece a BD.

O seguinte código abre ficheiros .ACCDR mas não sei como colocar a parte da Password:

Código:

strOpenClient = "MSAccess.exe " & CurrentProject.Path & "\Database.accdr" & " /runtime"
Shell strOpenClient, vbNormalFocus

Peço ajuda na adaptação dos códigos acima de maneira a abrir a 2ª BD.

Cumprimentos

Bruno Gordino

Olá Bruno,

Teste assim:

Código:

strOpenClient = chr(34) & "MSAccess.exe " & Chr(34) & CurrentProject.Path & chr(34) & "\Database.accdr" & Chr(34) & " /runtime" chr(34)
Shell strOpenClient, vbNormalFocus

Pode ter erros, foi no tablet.

Abraço

Boa noite, Sr. Álvaro Teixeira

Cá nos encontramos outra vez, espero que esteja tudo bem consigo.

Já tinha experimentado como mencionou e consigo abrir ficheiros ".ACCDR", desde que não estejam protegidos.

O meu problema é com ficheiros com Password. No código que me passou onde é que coloco o "PWD"?

Cumprimentos

Bruno Gordino

Olá Bruno,

Teste assim:

Código:

strOpenClient = chr(34) & "MSAccess.exe " & Chr(34) & CurrentProject.Path & chr(34) & "\Database.accdr" & Chr(34) & " /runtime" chr(34)  & Chr(34) & " /Pwd" chr(34) &"SuaPass" & chr(34)
Shell strOpenClient, vbNormalFocus

Pode ter erros, foi no tablet.

Abraço

Viva,
Julgo que o código que me passou é igual ao anterior.
Foi engano?
Cumprimentos

Bruno Gordino

Olá Bruno,

Adicionei o PWD de manha estava com PC e ate verifiquei que estava com erro (foi a olho).
Tenho que testar num PC os parâmetros de abertura permitidos.
Tem um exemplo do JPaulo nos 101 exemplos, tente dessa forma.
O Protec do Avelino fax também abertura de outra base de dados.

Assim que tenha algum tempo para testar posto aqui.

Se outro colega poder ajudar, toda a ajuda é bem vinda.

Abraço

Olá Bruno;

Em Runtime você não vai conseguir abrir o banco protegido por senha.

Qual a necessidade de correr o banco em Runtime ?
O PC não tem Ms Access ?

Você pode converter o seu banco em ACCDE, que fica bastante protegido e abri-lo via código.

Código:

Public Sub AbreACCDDE()
Dim strAccde As Access.Application
Dim strSenha$
strSenha = "xpto"
    Set strAccde = New Access.Application
    strAccde.OpenCurrentDatabase "C:\Temp\teste.accde", False, strSenha
    strAccde.Visible = True
    strAccde.RunCommand acCmdAppMaximize
    strAccde.UserControl = True
    Set strAccde = Nothing
End Sub

Olá Sr. João Paulo,
Muito obrigado pela disponibilidade visando a resolução do meu problema.
A aplicação encontra-se distribuída por vários computadores no formato ".accdr", assim como toda a referênciação no código fonte e registo dee alguns dados.
O código que passou sei que abre ".accdb" e "accde", mas o que preciso mesmo é abrir ".accdr" protegido.
O ".accdr" desactiva o Painel de navegação, as Opções, o Design, o Layout e o Help.
Cumprimentos

Bruno Gordino

Olá
ACCDR com senha não há solução, já pesquisei muito sobre o assunto.

Olá a todos,

Bruno porque não faz a distribuição em Accdb e no link que abre coloca o parâmetro /Runtime
Obtém o mesmo efeito.

Na minha opinião o mais correto é distribuir em Accde, assim protegemos o código de algum utilizador mais prevaricador, todas as inibições que pretende podem ser feitas via código VBA no arranque ou caso não pretenda escrever código também podemos usar o parâmetro /Runtime .

Abraço

Qualquer usuário que renomear o ACCDR para ACCDB fica com o banco original.
ACCDR não é uma conversão é simplesmente um renomear da extensão do banco.
Em ACCDE fica totalmente protegido.

É certo que o OPEN de Avelino abre o ACCDR com senha, mas notem que o ACCDR está presente apenas no front-end, o back-end em ACCDB ou ACCDE fica com as tabelas e protegido com senha.

Não sei se me entendem, mas abrir ACCDE com senha é simples e todos os códigos bem como os formulários estão protegidos, porque não existe acesso à estrutura.

Viva a todos,

0 erro que dá é o "7866" e "microsoft access can´t open the database because it is missing, or opened exclusively by another user, or is not a ADP file"
Obrigado

Cumprimentos

Bruno Gordino

Viva a todos,

Reabri o tópico para ver se aparece uma ajuda milagrosa.

O seguinte código abre ficheiros .ACCDR mas não sei como colocar a parte da Password, visto que a Base de Dados está protegida:

Código:

Dim strOpenClient as String
strOpenClient = "MSAccess.exe " & CurrentProject.Path & "\Database.accdr" & " /runtime"
Shell strOpenClient, vbNormalFocus

Cumprimentos

Bruno Gordino

Tópico fundido. Mesmo autor, mesma dúvida.

Olá a todos,

Então não existe maneira de abrir um BD. accdr protegido através do comando Shell?

É isso?

Bruno Gordino

Sr. Avelino

Mais uma vez o meu muito obrigado.

Até uma próxima

Bruno Gordino