[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

Olá, galera ACCESSiana...

Baixei a aplicação SecuritMs2016 do genial e glorioso JPAULO.
Mas infelizmente não sei porque a aplicação NÃO está ATIVANDO o bloqueio da tecla SHIFT.
A aplicação abre a tela procurar, seleciono o tipo da base de dados ACCDB ou ACCDE e clico em ATIVA
Então retorna que a propriedade AllowBypassKey foi alterada com sucesso para VERDADEIRO
Mas infelizmente ao abrir a minha aplicação pressionando a tecla SHIFT abre normal expondo todas as tabelas, consultas, forms, rels, macros, mods...
A Minha versão ACCESS2016 é para 32bits.
E agora, rapaziada ACCESSiana, como proceder para bloquear a tecla SHIFT ?

Obs. Antes quando usava o ACCESS2000 a 2007 rodava um módulo para .MDB que funcionava muito bem, só que para estas novas versões ACCESS dá erro de incompatibilidade.

Muito obrigado a todos com alguma dica ou exemplo pronto para que eu possa adaptar. Valeu !

O botão "Activa" é para desbloquear, o botão "Desactida" é para bloquear, qualquer duvida dê um grito;

Olá, JPaulo

Meu nobre desenvolvedor, esta sua versão SecuritMs2019 está funcionando, bloqueando 100% a tecla SHIFT.

Tópico RESOLVIDO. Muito grato !

Obrigado pelo retorno o forum agradece.