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]Ajuda com o SecuritMs2007

    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 28/02/2012

    [Resolvido]Ajuda com o SecuritMs2007 Empty [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  clemerson 27/2/2022, 18:48

    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.
    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 28/02/2012

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  clemerson 3/3/2022, 12:15

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  JPaulo 3/3/2022, 15:45

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

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


    .................................................................................
    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]Ajuda com o SecuritMs2007 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ajuda com o SecuritMs2007 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ajuda com o SecuritMs2007 Folder_announce_new Instruções SQL como utilizar...
    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 28/02/2012

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  clemerson 4/3/2022, 03:52

    Não faz nada joão paulo.
    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 28/02/2012

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  clemerson 29/3/2022, 20:30

    Olá amigos. Alguém teve este problema ,mas resolveu?
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  Alvaro Teixeira 30/3/2022, 12:49

    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
    Anexos
    [Resolvido]Ajuda com o SecuritMs2007 AttachmentSecuritMs2016.zip
    Reposicao do ficheiro partilhado
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 9 vez(es)


    Última edição por ahteixeira em 8/6/2022, 17:49, editado 1 vez(es)
    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 28/02/2012

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  clemerson 8/4/2022, 16:32

    Valeu meu amigo Ahteixeira, funcionou perfeitamento.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  Alvaro Teixeira 10/4/2022, 12:35

    Olá Clemerson,

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

    Abraço a todos
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1078
    Registrado : 23/03/2010

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  Finformática 11/4/2022, 17:21

    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



    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  Alvaro Teixeira 11/4/2022, 17:31

    Olá,

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

    Abraço
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1078
    Registrado : 23/03/2010

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  Finformática 11/4/2022, 19:34

    Olá,

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

    Abraço
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1078
    Registrado : 23/03/2010

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  Finformática 11/4/2022, 22:49

    Não visualiza DB mdb.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  Alvaro Teixeira 12/4/2022, 09:16

    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
    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 28/02/2012

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  clemerson 1/5/2022, 02:47

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  Alvaro Teixeira 2/5/2022, 11:34

    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
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1078
    Registrado : 23/03/2010

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  Finformática 5/5/2022, 02:33

    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

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  Alvaro Teixeira 8/6/2022, 17:50

    Olá Finformatica,

    Só vi agora, no tipo de ficheiro escolha todos os ficheiros.
    [Resolvido]Ajuda com o SecuritMs2007 0207

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

    Abraço
    avatar
    NorBerT
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 31/03/2023

    [Resolvido]Ajuda com o SecuritMs2007 Empty SecuritMs2016 bloqueador da tecla SHIFT

    Mensagem  NorBerT 31/3/2023, 20:26

    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 !


    Última edição por NorBerT em 3/4/2023, 19:15, editado 1 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  JPaulo 3/4/2023, 14:37

    O botão "Activa" é para desbloquear, o botão "Desactida" é para bloquear, qualquer duvida dê um grito;
    Anexos
    [Resolvido]Ajuda com o SecuritMs2007 AttachmentSecuritMs2019.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (50 Kb) Baixado 7 vez(es)


    .................................................................................
    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]Ajuda com o SecuritMs2007 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ajuda com o SecuritMs2007 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ajuda com o SecuritMs2007 Folder_announce_new Instruções SQL como utilizar...
    avatar
    NorBerT
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 31/03/2023

    [Resolvido]Ajuda com o SecuritMs2007 Empty [RESOLVIDO] SecuritMs2016 bloqueador da tecla SHIFT

    Mensagem  NorBerT 3/4/2023, 19:58

    Olá, JPaulo

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

    Tópico RESOLVIDO. Muito grato !
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  JPaulo 4/4/2023, 10:06

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    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]Ajuda com o SecuritMs2007 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ajuda com o SecuritMs2007 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ajuda com o SecuritMs2007 Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Ajuda com o SecuritMs2007 Empty Re: [Resolvido]Ajuda com o SecuritMs2007

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 20/5/2024, 12:31