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

5 participantes

    [Resolvido] Abrir outro banco de dados externo .ACCDR

    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  brunogor 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 " & 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


    Última edição por brunogor em 13/9/2021, 13:33, editado 2 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 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 : Respeito às Regras 100%

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

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

    Mensagem  brunogor 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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 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 : Respeito às Regras 100%

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

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

    Mensagem  brunogor 13/4/2018, 14:19

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

    Bruno Gordino
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 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 : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 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 : Respeito às Regras 100%

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

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

    Mensagem  brunogor 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 : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 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...
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 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 : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 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 : Respeito às Regras 100%

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

    [Resolvido] Abrir outro banco de dados externo .ACCDR Empty Abrir outro banco de dados externo .ACCDR (Parte 1)

    Mensagem  brunogor 15/4/2018, 18:02

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] Abrir outro banco de dados externo .ACCDR Empty Abrir outro banco de dados externo .ACCDR (Parte 2)

    Mensagem  brunogor 13/9/2021, 13:40

    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. 14/9/2021, 00:20

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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3780
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio 14/9/2021, 09:29

    Bruno

    O ACCDR é um modo operacional  que desativa o Painel de navegação, a Faixa de opções, o Modo de design, o Modo de layout e a Ajuda.  E isso tudo sem uso de programação.  Considero muito útil a utilização do ACCDR.

    Eu não tenho dúvida que a sua melhor opção é a utilização do meu OPEN, se você deseja manter a segurança como sua prioridade.

    Segue o link do meu artigo sobre o OPEN.  Assista ao vídeo e entenda como é fácil implementá-lo.

    (Copie e cole o endereço abaixo no seu navegador)
    usandoaccess.com.br/tutoriais/seguranca-microsoft-access-usando-o-open.asp?id=1#inicio

    Se a segurança não for sua prioridade, você pode resolver a questão utilizando o SendKeys.  A técnica do uso do Sendkeys está no meu artigo e no arquivo exemplo sobre Sistema de Backup.

    (Copie e cole o endereço abaixo no seu navegador)
    usandoaccess.com.br/tutoriais/manutencao-e-backup-access-barra-de-progresso.asp?id=1#inicio

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  brunogor 14/9/2021, 18:18

    Olá a todos,

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

    É isso?

    Bruno Gordino
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3780
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio 14/9/2021, 20:48

    Então

    Utilize o shell para abrir e na sequencia utilize o sendkeys para entrar com a senha.

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  brunogor 15/9/2021, 10:16

    Sr. Avelino

    Mais uma vez o meu muito obrigado.

    Até uma próxima

    Bruno Gordino

      Data/hora atual: 24/9/2022, 19:58