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

3 participantes

    [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift

    avatar
    Luiz antônio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 06/02/2020

    [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift Empty [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift

    Mensagem  Luiz antônio 14/1/2023, 01:47

    Boa noite, pessoal.

    Consultei aqui no Forum sobre bloqueio e desbloqueio da tecla SHIFT. Há quem propõe a conversão do arquivo em ACCDE. Todavia, vi que JPaulo deu uma importante contribuição ao disponibilizar um DB (SecuritMs2007.zip) com códigos que nos permitem bloquear e desbloquear DB "por fora". Inicialmente, essa contribuição destinava-se a DB do Access 2007. Depois JPaulo disse em outra postagem, se entendi bem, que poderia utilizar os códigos para Access 2010, 2013, e este é o meu caso. Entretanto, percebo que alguns botões do formulário do JPaulo não respondem.
    Vou começar pelo botão ..., que é para localizar o arquivo no computador.

    Código:
    Private Sub LocArquivo_Click()
    On Error Resume Next
    Dim strFilter As String
    Dim strInputFileName As String
    strFilter = ahtAddFilterItem(strFilter, "(*.accdb)", "*.accdb")
    strFilter = ahtAddFilterItem(strFilter, "(*.mde)", "*.mde")
    strFilter = ahtAddFilterItem(strFilter, "(*.*)", "*.*")
    strInputFileName = ahtCommonFileOpenSave(Filter:=strFilter, OpenFile:=True, _
                    DialogTitle:="Selecione o banco de dados ...", _
                    Flags:=ahtOFN_HIDEREADONLY)
    If strInputFileName <> "" Then Locais = strInputFileName
    End Sub

    Quando clico no botão ..., nada acontece.
    avatar
    Luiz antônio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 06/02/2020

    [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift Empty Re: [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift

    Mensagem  Luiz antônio 17/1/2023, 13:18

    Bom dia pessoal
    Fiz alguma bobagem?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2759
    Registrado : 13/12/2016

    [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift Empty Re: [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift

    Mensagem  Alexandre Fim 17/1/2023, 14:21

    Olá Luiz,

    A instrução On Error Resume Next ignora quaisquer erros gerados dentro do procedimento, e deve ser usado com muita cautela.

    Substitua a instrução por esta:
    Código:


    Private Sub LocArquivo_Click()
    'On Error Resume Next
    On Error GoTo trata_erro
    Dim strFilter As String
    Dim strInputFileName As String
       
        strFilter = ahtAddFilterItem(strFilter, "(*.accdb)", "*.accdb")
        strFilter = ahtAddFilterItem(strFilter, "(*.mde)", "*.mde")
        strFilter = ahtAddFilterItem(strFilter, "(*.*)", "*.*")
        strInputFileName = ahtCommonFileOpenSave(Filter:=strFilter, OpenFile:=True, _
                        DialogTitle:="Selecione o banco de dados ...", _
                        Flags:=ahtOFN_HIDEREADONLY)
        If strInputFileName <> "" Then Locais = strInputFileName
       
        Exit Sub

    trata_erro:
        MsgBox "Erro ocorrido: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
        Exit Sub
       
    End Sub


    Assim, vc vai conseguir ver o erro gerado.

    Att,

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Luiz antônio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 06/02/2020

    [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift Empty Códigos para bloqueio e desbloqueio da tecla shift

    Mensagem  Luiz antônio 18/1/2023, 00:53

    Alexandre Fim, obrigado por me disponibilizar parte de seu tempo e de seus conhecimentos.
    Infelizmente não funcionou.

    Estou anexando o arquivo.
    Anexos
    [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift AttachmentTeclaShift-adaptação.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (74 Kb) Baixado 2 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift Empty Re: [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift

    Mensagem  Assis 18/1/2023, 09:57

    Bom dia

    Teste este
    Anexos
    [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift AttachmentSecuritMs2016.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 8 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift Empty Re: [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift

    Mensagem  Assis 20/1/2023, 11:35

    Bom dia

    Se resolveu ...

    Encerre o tópico


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Luiz antônio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 06/02/2020

    [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift Empty Códigos para bloqueio e desbloqueio da tecla shift

    Mensagem  Luiz antônio 20/1/2023, 12:37

    Assis, bom dia. Obrigado pelo carinho de ter me respondido.

    Estava numa área incomunicável. Chegando agora para testar. Daqui a pouco apresento aqui o resultado.

    Um grande abraço, mestre.
    avatar
    Luiz antônio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 06/02/2020

    [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift Empty Códigos para bloqueio e desbloqueio da tecla shift

    Mensagem  Luiz antônio 20/1/2023, 12:52

    Assis, adiantou bastante o seu arquivo. Fiz o teste do botões ... (localizar), Sair, Limpar lista e <<< (procura item anterior da lista) e >>> (procura item posterior da lista) estão funcionando direitinho. Mas o botão Activa não deveria estar bloqueando a tecla shift?

    Estudei esse código:
    Código:
    #If VBA7 Then
    Private Declare PtrSafe Function apiShowWindow Lib "user32" _
        Alias "ShowWindow" (ByVal hwnd As Long, _
              ByVal nCmdShow As Long) As Long
    #Else
    Private Declare Function apiShowWindow Lib "user32" _
        Alias "ShowWindow" (ByVal hwnd As Long, _
              ByVal nCmdShow As Long) As Long

    Na segunda parte dele não deveria ser também
    Código:
    Private Declare PtrSafe Function apiShowWindow Lib "user32" _
    ?

    Estou fazendo alguma coisa errada?

    Mais uma vez bom dia, obrigado e um grande abraço.
    avatar
    Luiz antônio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 06/02/2020

    [Resolvido]Códigos para bloqueio e desbloqueio da tecla shift Empty Códigos para bloqueio e desbloqueio da tecla shift

    Mensagem  Luiz antônio 23/1/2023, 18:10

    Assis, obrigado mais uma vez.

    O cabeção aqui estava fazendo alguma coisa errada. Desculpe-me.

    Funcionou direitinho o sistema que me mandou.

      Data/hora atual: 27/1/2023, 05:41