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]Problema com Access Runtime

    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 25/6/2019, 17:34

    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


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 312
    Registrado : 25/02/2016

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  FranklinJSP em 26/6/2019, 18:00

    Olá Gilberlanio

    Experimenta isto:

    Código:
    Set dAccess = GetObject(, "Access.Application")

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 27/6/2019, 13:22

    Obrigado pela dica, mas infelizmente não funcionou


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 14/11/2019, 19:11

    Alguem com alguma luz sobre esse tópico?


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    Maicon
    Maicon
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 200
    Registrado : 08/09/2012

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  Maicon em 14/11/2019, 20:17

    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.


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 14/11/2019, 22:47

    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


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    Maicon
    Maicon
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 200
    Registrado : 08/09/2012

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  Maicon em 25/11/2019, 17:08

    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.


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 25/11/2019, 22:15

    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


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  IvanJr. em 27/11/2019, 00:12

    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.


    .................................................................................
    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.
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 27/11/2019, 00:49

    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


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 27/11/2019, 00:57

    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.


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  IvanJr. em 27/11/2019, 01:37

    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)


    .................................................................................
    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.
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 27/11/2019, 02:34

    Tenho dois arquivos ambos em accdb

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




    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  IvanJr. em 29/11/2019, 02:53

    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.

    Anexos
    [Resolvido]Problema com Access Runtime AttachmentErRuntime.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 4 vez(es)


    .................................................................................
    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.
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 29/11/2019, 13:29

    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
    Anexos
    [Resolvido]Problema com Access Runtime AttachmenttesteRuntime.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (668 Kb) Baixado 13 vez(es)


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  IvanJr. em 30/11/2019, 03:14

    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.


    .................................................................................
    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.
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 1/12/2019, 01:30

    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.
    Anexos
    [Resolvido]Problema com Access Runtime AttachmenttesteRuntime_old.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (674 Kb) Baixado 5 vez(es)


    Última edição por gilberlanio em 1/12/2019, 01:34, editado 1 vez(es)


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  IvanJr. em 1/12/2019, 01:31

    Aqui deu tudo certo.

    Qual erro surge para você?


    .................................................................................
    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.
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 1/12/2019, 01:35

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


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  IvanJr. em 1/12/2019, 01:38

    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.


    .................................................................................
    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.
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 1/12/2019, 01:47

    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


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  IvanJr. em 1/12/2019, 01:53

    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.
    Anexos
    [Resolvido]Problema com Access Runtime AttachmenttesteRuntime_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (675 Kb) Baixado 12 vez(es)


    .................................................................................
    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.
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 1/12/2019, 01:58

    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


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  IvanJr. em 1/12/2019, 02:03

    No Access completo funciona?

    Testei aqui no runtime 2007 e Acccess completo 2010.


    .................................................................................
    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.
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 1/12/2019, 02:10

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


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  IvanJr. em 1/12/2019, 02:14

    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


    .................................................................................
    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.
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 1/12/2019, 02:27

    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?


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  IvanJr. em 1/12/2019, 02:32

    '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.


    .................................................................................
    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.
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 1/12/2019, 02:36

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


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  IvanJr. em 1/12/2019, 17:32

    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.


    .................................................................................
    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.
    Maicon
    Maicon
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 200
    Registrado : 08/09/2012

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  Maicon em 1/12/2019, 19:49

    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.


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  IvanJr. em 1/12/2019, 19:58

    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?


    .................................................................................
    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.
    Maicon
    Maicon
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 200
    Registrado : 08/09/2012

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  Maicon em 2/12/2019, 02:53

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






    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 2/12/2019, 02:56

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


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 2/12/2019, 03:00

    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.


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  IvanJr. em 2/12/2019, 03:03

    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.


    .................................................................................
    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.
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 2/12/2019, 14:41

    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


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  IvanJr. em 2/12/2019, 23:06

    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


    .................................................................................
    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.
    Maicon
    Maicon
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 200
    Registrado : 08/09/2012

    [Resolvido]Problema com Access Runtime Empty Funcionou

    Mensagem  Maicon em 3/12/2019, 04:25

    Excelente

    Funcionou perfeitamente. muito bom.


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  IvanJr. em 4/12/2019, 01:21

    Beleza, Maicon.

    Gilberlanio, tudo certo?


    .................................................................................
    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.
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 761
    Registrado : 30/08/2010

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  gilberlanio em 4/12/2019, 16:49

    Tudo certo Ivan, obrigado por compartilhar o conhecimento.


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  IvanJr. em 4/12/2019, 21:18

    O fórum agradece o retorno. Sucesso.

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


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

    Conteúdo patrocinado

    [Resolvido]Problema com Access Runtime Empty Re: [Resolvido]Problema com Access Runtime

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 11/12/2019, 02:48