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


    [Resolvido]Combinações de Teclas CTRL+ENTER, ao invés de Executar a Chamada Ele quebra linha no campo

    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 370
    Registrado : 02/08/2018

    [Resolvido]Combinações de Teclas CTRL+ENTER, ao invés de Executar a Chamada Ele quebra linha no campo Empty [Resolvido]Combinações de Teclas CTRL+ENTER, ao invés de Executar a Chamada Ele quebra linha no campo

    Mensagem  mfmaiafilho 19/3/2021, 18:25

    Boa tarde Srs.

    Estou com um probleminha meu chato, tenho um botão "Procurar" que preciso chama-lô ao fazer a combinação das teclas CTRL+ENTER.

    o problema é que quando uso CTRL+ENTER o access quebra linha no campo de pesquisa não vinculado.

    o que posso fazer pra resolver este problema?

    Estou com keypreview ativo
    Me.KeyPreview = True


    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    ' CTRL+ENTER = chamar btn_procurar
    If Shift = 2 And KeyCode = vbKeyReturn Then
    On Error Resume Next
    Call btn_procurar_Click
    End If

    End Sub
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Combinações de Teclas CTRL+ENTER, ao invés de Executar a Chamada Ele quebra linha no campo Empty Re: [Resolvido]Combinações de Teclas CTRL+ENTER, ao invés de Executar a Chamada Ele quebra linha no campo

    Mensagem  DamascenoJr. 19/3/2021, 22:34

    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    ' CTRL+ENTER = chamar btn_procurar
    If Shift = 2 And KeyCode = vbKeyReturn Then
    On Error Resume Next
    KeyCode = 0
    Call btn_procurar_Click
    End If

    End Sub


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

    mfmaiafilho gosta desta mensagem

    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 370
    Registrado : 02/08/2018

    [Resolvido]Combinações de Teclas CTRL+ENTER, ao invés de Executar a Chamada Ele quebra linha no campo Empty Re: [Resolvido]Combinações de Teclas CTRL+ENTER, ao invés de Executar a Chamada Ele quebra linha no campo

    Mensagem  mfmaiafilho 19/3/2021, 23:29

    Boa noite mestre!

    Obrigado por me ajudar a resolver ^^

    realmente não tinha percebido nos outros Select Case, tenho esse KeyCode = 0 para anular os usos de algumas teclas por exemplo a F1 do Access.

    Resolvido!

    ' DELETE
    Select Case KeyCode
    Case vbKeyDelete
    KeyCode = 0
    End Select
    ' ESCAPE
    Select Case KeyCode
    Case vbKeyEscape
    KeyCode = 0
    End Select

    Conteúdo patrocinado

    [Resolvido]Combinações de Teclas CTRL+ENTER, ao invés de Executar a Chamada Ele quebra linha no campo Empty Re: [Resolvido]Combinações de Teclas CTRL+ENTER, ao invés de Executar a Chamada Ele quebra linha no campo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/5/2021, 14:01