MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido] Abrir outro banco de dados externo .ACCDR

    Compartilhe
    avatar
    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Respeito às Regras 100%

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

    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
    avatar
    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Respeito às Regras 100%

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

    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
    avatar
    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Respeito às Regras 100%

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

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

    Respeito às Regras 100%

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

    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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Respeito às Regras 100%

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

    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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Respeito às Regras 100%

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

    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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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: 21/11/2018, 02:22