MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    Abrir outro BD com Senha

    avatar
    Valdenirst
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 20
    Registrado : 04/05/2015

    Abrir outro BD com Senha Empty Abrir outro BD com Senha

    Mensagem  Valdenirst 26/4/2018, 17:31

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7379
    Registrado : 15/03/2013

    Abrir outro BD com Senha Empty Re: Abrir outro BD com Senha

    Mensagem  ahteixeira 26/4/2018, 18:10

    avatar
    Valdenirst
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 20
    Registrado : 04/05/2015

    Abrir outro BD com Senha Empty Re: Abrir outro BD com Senha

    Mensagem  Valdenirst 26/4/2018, 21:32

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7379
    Registrado : 15/03/2013

    Abrir outro BD com Senha Empty Re: Abrir outro BD com Senha

    Mensagem  ahteixeira 26/4/2018, 22:24

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

    Abraco
    avatar
    Valdenirst
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 20
    Registrado : 04/05/2015

    Abrir outro BD com Senha Empty Re: Abrir outro BD com Senha

    Mensagem  Valdenirst 27/4/2018, 12:47

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7379
    Registrado : 15/03/2013

    Abrir outro BD com Senha Empty Re: Abrir outro BD com Senha

    Mensagem  ahteixeira 11/5/2018, 15:57

    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
    Anexos
    Abrir outro BD com Senha AttachmentAbrirOutraBaseDadosComPassword.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (40 Kb) Baixado 37 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7379
    Registrado : 15/03/2013

    Abrir outro BD com Senha Empty Re: Abrir outro BD com Senha

    Mensagem  ahteixeira 26/7/2018, 12:25

    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


      Data/hora atual: 25/1/2022, 16:26