MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido] Abrir outro banco de dados externo .ACCDR

    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 243
    Registrado : 24/02/2013

    [Resolvido] Abrir outro banco de dados externo .ACCDR Empty [Resolvido] Abrir outro banco de dados externo .ACCDR

    Mensagem  brunogor em 10/4/2018, 12:35

    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 " & Q & CurrentProject.Path & "\Database.accdr" & Q & " /runtime"
    Shell strOpenClient, vbNormalFocus

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

    Cumprimentos

    Bruno Gordino
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido] Abrir outro banco de dados externo .ACCDR Empty Re: [Resolvido] Abrir outro banco de dados externo .ACCDR

    Mensagem  ahteixeira em 12/4/2018, 18:05

    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
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 243
    Registrado : 24/02/2013

    [Resolvido] Abrir outro banco de dados externo .ACCDR Empty Abrir outro banco de dados externo .ACCDR

    Mensagem  brunogor em 12/4/2018, 21:58

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

    Respeito às Regras 100%

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

    [Resolvido] Abrir outro banco de dados externo .ACCDR Empty Re: [Resolvido] Abrir outro banco de dados externo .ACCDR

    Mensagem  ahteixeira em 12/4/2018, 23:51

    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
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 243
    Registrado : 24/02/2013

    [Resolvido] Abrir outro banco de dados externo .ACCDR Empty Abrir outro banco de dados externo .ACCDR

    Mensagem  brunogor em 13/4/2018, 14:19

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

    Bruno Gordino
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido] Abrir outro banco de dados externo .ACCDR Empty Re: [Resolvido] Abrir outro banco de dados externo .ACCDR

    Mensagem  ahteixeira em 13/4/2018, 15:31

    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
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido] Abrir outro banco de dados externo .ACCDR Empty Re: [Resolvido] Abrir outro banco de dados externo .ACCDR

    Mensagem  JPaulo em 13/4/2018, 17:15

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido] Abrir outro banco de dados externo .ACCDR Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Abrir outro banco de dados externo .ACCDR Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Abrir outro banco de dados externo .ACCDR Folder_announce_new Instruções SQL como utilizar...
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 243
    Registrado : 24/02/2013

    [Resolvido] Abrir outro banco de dados externo .ACCDR Empty Abrir outro banco de dados externo .ACCDR

    Mensagem  brunogor em 13/4/2018, 20:29

    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


    Última edição por brunogor em 13/4/2018, 20:46, editado 1 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido] Abrir outro banco de dados externo .ACCDR Empty Re: [Resolvido] Abrir outro banco de dados externo .ACCDR

    Mensagem  JPaulo em 13/4/2018, 20:41

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido] Abrir outro banco de dados externo .ACCDR Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Abrir outro banco de dados externo .ACCDR Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Abrir outro banco de dados externo .ACCDR Folder_announce_new Instruções SQL como utilizar...
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido] Abrir outro banco de dados externo .ACCDR Empty Re: [Resolvido] Abrir outro banco de dados externo .ACCDR

    Mensagem  ahteixeira em 15/4/2018, 12:25

    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
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido] Abrir outro banco de dados externo .ACCDR Empty Re: [Resolvido] Abrir outro banco de dados externo .ACCDR

    Mensagem  JPaulo em 15/4/2018, 12:42

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido] Abrir outro banco de dados externo .ACCDR Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Abrir outro banco de dados externo .ACCDR Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Abrir outro banco de dados externo .ACCDR Folder_announce_new Instruções SQL como utilizar...
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 243
    Registrado : 24/02/2013

    [Resolvido] Abrir outro banco de dados externo .ACCDR Empty Abrir outro banco de dados externo .ACCDR

    Mensagem  brunogor em 15/4/2018, 18:02

    Viva a todos,
    Mais uma vez, muito obrigado pela aprendizagem.
    Obrigado
    Cumprimentos

    Bruno Gordino

      Data/hora atual: 20/1/2021, 18:43