[Resolvido]Problema com Access Runtime

Olá pessoal, não sei se alguém já passou por isso.
Uso essa função para abrir um banco com senha. Funciona perfeitamente se o Access estiver instalado, mas com o Access Runtime não funciona.

Obs. Já fiz o debug e não apresenta erro no código

Alguma dica?...

Código:

Sub fncAbrirSistema()
    Dim dAccess As Object
    Dim db As Database
    Set dAccess = CreateObject("Access.Application")
    dAccess.Visible = True
    Set db = dAccess.DBEngine.OpenDatabase("C:\PastaTeste\Banco.accdb", False, False, ";pwd=1234")
    dAccess.OpenCurrentDatabase filepath:="C:\PastaTeste\Banco.accdb"
    Set dAccess = Nothing
End Sub


Olá Gilberlanio

Experimenta isto:

Código:

Set dAccess = GetObject(, "Access.Application")

Saludos

Obrigado pela dica, mas infelizmente não funcionou

Alguem com alguma luz sobre esse tópico?

Desculpe a pergunta básica , mas as vezes pode nos escapar algo não seria o caso de verificar a versão do VBA , 32 ou 64. Outra coisa vou pesquisar mas se está usando office 2013 creio que ele não tenha o access runtime embutido como as versões anteriores , parece que o access 2013 não roda arquivos accdr mude a extensão para accde. Para fazer o teste. Pelo que vi nos teus vídeos você usa o Access ,2013. " muitos bons" abraço desculpe se só falei o que já sabia.

Olá Maicon obrigado pela dica. Mas já verifiquei essas questão e o problema continua. Ele não abre o arquivo com Senha pelo RunTime

Só por curiosidade o tua versão do office é 2013 ? Tive um problema com Access 2013 e não rodava Runtime porém após instalar service pack 1 resolveu.

Minha versão é 2016

Acredito que alguma linha de comando abaixo não funciona no Runtime

Código:

Sub fncAbrirSistema()
    Dim dAccess As Object
    Dim db As Database
    Set dAccess = CreateObject("Access.Application")
    dAccess.Visible = True
    Set db = dAccess.DBEngine.OpenDatabase("C:\PastaTeste\Banco.accdb", False, False, ";pwd=1234")
    dAccess.OpenCurrentDatabase filepath:="C:\PastaTeste\Banco.accdb"
    Set dAccess = Nothing
End Sub

Em uma instalação completa é possível
1. Abrir uma instância da aplicação Access e a partir dela abrir um arquivo,
ou
2. Dar dois cliques em um arquivo do Access e ele carregar automaticamente em uma instância da aplicação Access.

Em uma instalação runtime é possível carregar/executar um arquivo diretamente dando dois cliques (possibilidade anterior 2), mas não é possível abrir uma instância do programa Access e só depois chamar o arquivo (possibilidade anterior 1).

E é exatamente o que o seu código tenta fazer (criar uma instância sem um arquivo), tendo sucesso em uma instalação completa, mas falhando em uma instalação runtime.

Código:

Sub fncAbrirSistema()
    Dim dAccess As Object
    Dim db As Database

    'abrir uma instância
    'passo possível com o Access completo
    'mas não possível com o Access runtime
    Set dAccess = CreateObject("Access.Application")

    ...

End Sub

Sugestão:
Tente abrir seu arquivo com o FollowHyperlink e enviar a senha com o sendkeys (cuidado aqui, uma falha e sua senha é capturada). Ou outra implementação que contorne a impossibilidade do runtime de abrir o Access sem um arquivo carregado.

Obrigado Ivan pelas informações, vou tentar seguir suas dicas.

Mas caso conseguisse montar um pequeno exemplo para nós seria de muita ajuda.

Obrigado

Pelo que vi nesse tópico o JPaulo fala que não é possível abrir arquivo do Access com senha pelo Runtime. - https://www.maximoaccess.com/t33010-resolvido-abrir-outro-banco-de-dados-externo-accdr
Não sei se teria alguma solução para isso.. Fica aqui o desafio para os que se aventurarem. Vou continuar tentando uma solução. Caso consiga coloque aqui.

Qual seu objetivo?

De um arquivo já aberto no Access chamar a função fncAbrirSistema e explorar via código os objetos (tabelas, por exemplo) de outro arquivo Access .accdr?
(impossível, segundo o JPaulo via link mostrado por você)

ou

De um arquivo já aberto no Access chamar a função fncAbrirSistema e abrir outro arquivo Access .accdr para execução?
(possível, tá aí o Open do mestre Avelino mostrando isso)

Tenho dois arquivos ambos em accdb

Arquivo2 protegido por senha
Arquivo1 onde fica a função para abrir o arquivo2 protegido por senha.

Então não se trata do arquivo ser um .accdr, como na mensagem do JPaulo. Não é esse o seu caso.

Segue arquivo com a linha problemática.

Como dito, o runtime é apenas para execução de um arquivo. Não é possível abrir uma instância da aplicação sem nada a ser executado.

Nesse caso não tem geito para abrir um segundo arquivo protegido por senha pelo Runtime?

Criei um exemplo com os dois arquivos, mas só não funciona no Runtime

Você conhece o comando "AppActivate"? Ele muda o foco de uma janela. Por exemplo

Código:

AppActivate "MaximoAccess"

Isso muda o foco para uma janela/programa aberta que tenha "MaximoAccess" na barra de título.

Nas instruções abaixo faremos uso deste recurso e para um bom funcionamento dele temos que ter títulos definidos.

Atribua um título ao arquivo exemplo1 nas opções do Access -> banco de dados atual. Pode ser "exemplo1".

Num módulo global cole a função abaixo, pois ela que nos auxiliará

Código:

Public Sub fncAguardar(lngMilesegundos&)
Dim varStart
varStart = Timer 'Tempo inicial
Do While Timer < varStart + (lngMilesegundos / 1000): DoEvents: Loop
End Sub

Troque o código do botão do seu arquivo exemplo1 para

Código:

On Error GoTo trataErro

    Set ws = CreateObject("WScript.Shell")
    x = ws.Run(Chr(34) & CurrentProject.Path & "\" & "exemplo2.accdb" & Chr(34), vbMaximizedFocus, False)

volta:
    Call fncAguardar(200)

    'se um arquivo não tiver título definido então ele recebe "Microsoft Access" como título padrão.
    'se ele tiver título definido, estando com senha, enquanto ela não é informada, o título padrão é atribuído
    'faremos uso dele para mudar o foco da janela e enviar a senha
    AppActivate "Microsoft Access"
    
    ws.SendKeys "123", True
    ws.SendKeys "{ENTER}"
    Set ws = Nothing
    Exit Sub

trataErro:
    Resume volta

As instruções acima são apenas uma alternativa. O mais seguro mesmo é proteger seu arquivo tornando-o um ACCDE, e sendo o caso, separar as tabelas em um novo arquivo protegendo-as com o código PROTEC.

Ivan obrigado pela dica. Mas segui todos os passos e mesmo assim não abriu no runtime

Segue o exemplo com suas dicas aplicadas. Ele não valida a senha.

Aqui deu tudo certo.

Qual erro surge para você?

Veja o exemplo que postei aplicando suas dicas. Ele não faz autenticação da senha

Nas instruções abaixo faremos uso deste recurso e para um bom funcionamento dele temos que ter títulos definidos.

Atribua um título ao arquivo exemplo1 nas opções do Access -> banco de dados atual. Pode ser "exemplo1".

Você não seguiu os passos acima.

Eu deixei em brando que no caso ele pegaria o padrão "Microsoft Access"

Alterei agora o título e o código e mesmo assim não autentica a senha "123" do arquivo2

Por via das dúvidas, subi o tempo da chamada da função fncAguardar para 400 milisegundos.

Aqui tá funcionando. Seria bom se mais algum colega do fórum puder testar e dar um retorno.

Aqui testei o seu exemplo e não faz a autenticação da senha.
Não sei se é por conta da minha versão do Runtime, estou testando no Runtime 2016 32bits

No Access completo funciona?

Testei aqui no runtime 2007 e Acccess completo 2010.

Também não funciona o meu é o Access 2016 64bits

Talvez o título padrão no 2016 não seja "Microsoft Access" e com isso o foco não muda para a janela onde a autenticação seria feita.

Verifique o nome na barra de título do Access 2016 na janela de autenticação. Se for diferente, adapte no AppActivate

No meu aparece o título somente "Access" mas mesmo assim não autenticou. Mas essa questão depegar o nome padrão do título é somente se eu deixar em branco no caso de colocar um nome no título e para pegar o nome que coloquei não é isso?

'se um arquivo não tiver título definido então ele recebe "Microsoft Access" como título padrão.
'se ele tiver título definido, estando com senha, enquanto ela não é informada, o título padrão é atribuído
...

O Access atribui o título padrão até que o arquivo seja autenticado.

Beleza, vou continuar tentando aqui e qualquer novidade te informo.
Obrigado por enquanto.

Baixei e instalei o runtime 2016 para testes e o título padrão realmente muda para apenas "Access". Fiz a adaptação no AppActivate e funcionou.

Obs.: certifiquei-me de rodar os arquivos em pastas informadas para o Access como confiáveis, assim evitando aquela mensagem inicial da macro de segurança.

Opa , Testei no access 2013 64 bit e não funcionou.

Estou aprendendo muito acompanhando este tópico , mas eu muitas vezes por falta de tempo ou de conhecimento, normalmente os dois juntos quando não consigo de uma forma faço de outra. claro que sempre que posso volto ao tema que não entendi e tento aprender de duas formas. bom o que quero dizer é que talvez desse para fazer da seguinte forma :

No banco de dados A no evento ao clicar antes de abrir formulário B enviar a senha, salva em uma tabela temporária, variável ou Args .
No Formulário B , no evento Antes de abrir buscaria a senha na tabela, variável ou Args validadria e entraria no banco de dados se não. se a senha não estiver no banco fecha o banco inteiro.
-Vou tentar fazer um exemplo assim. E pra ficar show mesmo precisaria de uma rotina que verifica-se se o banco de dados fosse com extensão ACCDR se não fecha o banco.

Maicon, novas ideias sempre são bem vindas. Obrigado por participar do tópico.

Você testou com o arquivo da mensagem número 22? Seu Access é completo ou runtime? Qual título aparece na barra de título do arquivo exemplo2 na tela de autenticação? Ao clicar no botão o arquivo chega a ser aberto ou nada acontece?

Access completo 2013 , 64 bits -- Abre o Access mas não abre o aplicativo fica parado na tela de senha.

O meu Access 2016 64bits também fica parado na tela de senha

Se conseguimos chegar em um código que abrisse em todas as versões completas do Access e também no Runtime caso a pessoa não tenha o Access completo seria top.

Estranho, colegas. Pra mim tá redondo aqui.

Explorem a função AppActivate e veja se ela muda o foco para outras janelas diferente do Access. Deve ter outras maneiras de mudar o foco para outro programa também. Esta é uma maneira.

Bons estudos. Ficarei acompanhando o avanço do tópico.

Fiz os testes aqui e realmente o código do Ivan está correto. Só tem um detalhe que é no título.

Quando colocamos:
AppActivate "Microsoft Access" - Assim só autentica a senha nas versões 2007-2010
AppActivate "Access" - Assim só autentica a senha nas versões 2013-2019

Se conseguirmos fazer uma forma de ele identificar as versões e colocar uma função If... para pegar o titulo de acordo com a versão resolveria.
Outra dica era armazenar o título em uma tabela mas sei se é possível.

Código:

On Error GoTo trataErro

    Set ws = CreateObject("WScript.Shell")
    x = ws.Run(Chr(34) & CurrentProject.Path & "\" & "exemplo2.accdb" & Chr(34), vbMaximizedFocus, False)

volta:
    Call fncAguardar(200)

    'se um arquivo não tiver título definido então ele recebe "Microsoft Access" como título padrão.
    'se ele tiver título definido, estando com senha, enquanto ela não é informada, o título padrão é atribuído
    'faremos uso dele para mudar o foco da janela e enviar a senha
    AppActivate "Microsoft Access"
   
    ws.SendKeys "123", True
    ws.SendKeys "{ENTER}"
    Set ws = Nothing
    Exit Sub

trataErro:
    Resume volta

Código:

On Error GoTo trataErro

    Set ws = CreateObject("WScript.Shell")
    x = ws.Run(Chr(34) & CurrentProject.Path & "\" & "exemplo2.accdb" & Chr(34), vbMaximizedFocus, False)

volta:
    Call fncAguardar(200)

    'se um arquivo não tiver título definido então ele recebe "Microsoft Access" como título padrão.
    'se ele tiver título definido, estando com senha, enquanto ela não é informada, o título padrão é atribuído
    'faremos uso dele para mudar o foco da janela e enviar a senha
    Select Case Application.Version
       Case 12, 14: AppActivate "Microsoft Access"
       Case Else: AppActivate "Access"
    End Select
    
    ws.SendKeys "123", True
    ws.SendKeys "{ENTER}"
    Set ws = Nothing
    Exit Sub

trataErro:
    Resume volta

Excelente

Funcionou perfeitamente. muito bom.

Beleza, Maicon.

Gilberlanio, tudo certo?

Tudo certo Ivan, obrigado por compartilhar o conhecimento.

O fórum agradece o retorno. Sucesso.

PS: obrigado pelas aulas do youtube. De muito me valem. Sempre indico.

Viva a a todos

Só uma questão em relação às variáveis "ws" e "x" no seguinte código, pois costumo usar o "Option Explicit" no inicio de cada módulo:

Código:

On Error GoTo trataErro

    Set ws = CreateObject("WScript.Shell")
    x = ws.Run(Chr(34) & CurrentProject.Path & "\" & "exemplo2.accdb" & Chr(34), vbMaximizedFocus, False)

volta:
    Call fncAguardar(200)

    'se um arquivo não tiver título definido então ele recebe "Microsoft Access" como título padrão.
    'se ele tiver título definido, estando com senha, enquanto ela não é informada, o título padrão é atribuído
    'faremos uso dele para mudar o foco da janela e enviar a senha
    Select Case Application.Version
       Case 12, 14: AppActivate "Microsoft Access"
       Case Else: AppActivate "Access"
    End Select
    
    ws.SendKeys "123", True
    ws.SendKeys "{ENTER}"
    Set ws = Nothing
    Exit Sub

trataErro:
    Resume volta


Sendo a variável "ws" do tipo "Object", qual é o tipo da variável "x"?

Obrigado

Bruno Gordino

o x nesse caso armazenaria um valor numérico referente ao resultado do comando (se houve erro, se teve sucesso etc). Ignore isso.

Troque isso
x = ws.Run(..

por isso
Call ws.Run(..

Damasceno Jr.

Mais uma vez as suas poucas palavras são sinónimo de grandes resoluções.

Muito obrigado

Até uma próxima

Bruno Gordino