[Resolvido]Ajuda com o SecuritMs2007

Boa tarde colegas. Achei uma aplicação do joão paulo  que ativa e desativa a tecla shift de um banco externo, mas não sei por qual motivo o botão localizar próximo não está funcionando. Uso o access 2016, talvez seja por isso, mas se for como resolver esse problema?

Grato pela atenção dada até aqui.

Oi joão paulo. Obrigado por responder. Fiz o teste e continua com o mesmo problema.

Amigão estou com o MsAccess 2016 e está a funcionar.

Qual o erro que dá, ou não faz nada ?

Não faz nada joão paulo.

Olá amigos. Alguém teve este problema ,mas resolveu?

Olá a todos,

Testei no 2019 e dá erro na chamada do metodo "print", será alterar por "call" e resolve.
Creio que o colega Clemerson tem a versão 64 Bits, será que pode confirmar e partilhar?
Na versão  64 bits apesar de não dar erro ao compilar, ao clicar no botão para escolher/pesquisar o ficheiro não faz nada.
Alterei o código para usar o "Application.FileDialog".

Clemerson verifique se já funciona.

Abraço a todos

Valeu meu amigo Ahteixeira, funcionou perfeitamento.

Olá Clemerson,

Apenas por curiosidade , qual a versão que estava a dar erro 32 bits ou 64 bits?

Abraço a todos

Caros Amigos,

Aqui no meu computador quando peço para visualizar o sistema em determinada pasta o mesmo não é exibido. O sistema está lá na pasta. Será a versão? Meu office é 2016.

Muito grato

Olá,

É no exemplo da mensagem 10, que está a dar erro relatado?

Abraço

Olá,

Minha mensagem foi a nove. É isso que se refere?

Abraço

Não visualiza DB mdb.

Olá,

Tem razão, queria dizer mensagem 6, se era com este exemplo.
Pelos visos sim, pois já deu mais detalhes.

Para a questão, pode escolher Todos os ficheiros , se preferir ter também *.mdb e *.mde será ajustar no código, veja:

Código:

Private Sub LocArquivo_Click()
    ' ahteixeira 2022 para MaximoAccess
    ' Requer referencia a Microsoft Office XX Object Library
    On Error GoTo PROC_ERR
    
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    fd.Title = "selecione o ficheiro"
    fd.Filters.Add "Base dados ACCDB", "*.accdb"
    fd.Filters.Add "Base dados ACCDE", "*.accde"
    fd.Filters.Add "Todos os ficheiros", "*.*"

Abraço

Olá ahteixeira,boa noite. Só agora percebi que a resposta para tua pergunta sobre em qual versão estava dando erro não foi postada. Estou usando a versão 64bits.

Olá a todos

Clemerson, obrigado pelo retorno.
Sim ficou confirmado que o problema existia, ficou resolvido da forma indicada na mensagem 6.

F Informatica resolveu?

O fórum merece e agradece o retorno.

Abraço a todos

Caro Teixeira,

Continuo na mesma. Usando o DB da mensagem 06 é como se não existisse um DB (mdb) no diretório escolhido. Fiquei aguardando.

Abraços

Olá Finformatica,

Só vi agora, no tipo de ficheiro escolha todos os ficheiros.


Também pode ajustar o código para ficheiros MDE e MDB

Abraço