Abrir outro BD com Senha

Boa tarde a Todos,

Localizei aqui um módulo que abre outro bd e fiz os testes aqui está funcionando perfeitamente, conforme abaixo:

Public 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

Call ShellExecute(0, vbNullString, Me.NomeCampo, vbNullString, vbNullString, 1)

Agora vem a Pergunta. E se o BD à abrir estiver protegido por senha, como faço?
Se eu quiser referenciar um campo do BD a ser aberto, como por exemplo o nome do usuário que logou o BD atual que deverá aparecer no BD que foi aberto, como faço?

Fico no aguardo da resposta dos amigos.

Att,

Valdenir

Olá Valdenir,

Veja tópico abaixo se ajuda:
https://www.maximoaccess.com/t33010-resolvido-abrir-outro-banco-de-dados-externo-accdr

Abraço

Acessei o Link porém não consegui fazer o código rodar amigo. O meu código que postei ai roda muito bem porém o meu bd tem senha somente isto.

Att,

valdenir

Ola Valdenir,
Cole o codigo da mensagem n. 7 num botao e teste.

Abraco

Bom dia ahteixeira,

Ele começa a atualizar o enterprise e depois dá um erro 7866 " O Microsoft Oficce não pode abrir o banco de dados porque ele está ausente, foi aberto exclusivamente por um outro usuário ou não é um arquivo ADP."

Esta é a mensagem que está dando.

Achei este Código do Rui maciel,

Adaptei o código e funcionou perfeitamente aqui, conforme abaixo:

Código:

Dim strcmd As String
Dim objaccess As Access.Application
strcmd = SysCmd(acSysCmdAccessDir) & "\msaccess.exe " & "\\Usuario-s\d\Valdenir\Relatorios.accdb"
Call Shell(strcmd, vbNormalFocus)
DoEvents:
Set objaccess = GetObject("\\Usuario-s\d\Valdenir\SGQ_Fluxo.accdb")
DoCmd.Quit

Agora vem a pergunta,

E se o Meu banco a ser aberto tiver senha? Como faço?

Att,


Valdenir Teixeira

Olá Valdenir,

Desde 2009 que o JPaulo tem 102 Códigos VBA para Access, já viu o segundo exemplo?

No entanto criei um pequeno exemplo que anexo.

Abraço

Olá Valdenir Teixeira,

Como ficou a situação?
Os membros do fórum merecem e agradecem o retorno.

Se a situação ficou sanada, não se esqueça de dar o tópico como Resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço