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


4 participantes

    [Resolvido]Duvida sendkeys ou codekeys

    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    [Resolvido]Duvida sendkeys ou codekeys Empty [Resolvido]Duvida sendkeys ou codekeys

    Mensagem  maguim 4/4/2019, 17:59

    Boa tarde!

    Estou com uma duvida.


    Gostaria de fazer algo relacionado se o usuário apertar o crtl alt delete no formulário eu gravar o nome em uma tabela com hora e data e usuário!!

    porque?

    Tem uns espertinhos aqui que estão arruinando meu relatórios na empresa por nao em preencher os campos vazio, pelo fato de atualizar dados cadastrais.

    entao seria uma forma de precaver com os espertinhos na hora de prestar contas.

    alguem ja fez algo parecido?

    o certo seria ao pressionar ou ao apertar ^ % delete gravar na tabela com recordeset

    porem eu nao sei usar o parametro de validação de teclas

    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 479
    Registrado : 25/02/2016

    [Resolvido]Duvida sendkeys ou codekeys Empty Re: [Resolvido]Duvida sendkeys ou codekeys

    Mensagem  FranklinJSP 5/4/2019, 13:43

    Bom dia Maguim!

    No exemplo seguinte, é determinado se a tecla Shift, Ctrl ou Alt foi pressionada. Estude o código e veja se você pode aplicá-lo ao seu código.

    Código:
    Private Sub Textbox_KeyDown(KeyCode As Integer, _
        Shift As Integer)
        Dim intShiftDown As Integer, intAltDown As Integer
        Dim intCtrlDown As Integer
     
        intShiftDown = (Shift And acShiftMask) > 0
        intAltDown = (Shift And acAltMask) > 0
        intCtrlDown = (Shift And acCtrlMask) > 0

        'Exibir mensagem informando ao usuário qual tecla foi pressionada.
        If intShiftDown Then MsgBox "Você pressionou a tecla SHIFT."
        If intAltDown Then MsgBox "Você pressionou a tecla ALT"
        If intCtrlDown Then MsgBox "Você pressionou a tecla CTRL"
    End Sub

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 299
    Registrado : 19/08/2010

    [Resolvido]Duvida sendkeys ou codekeys Empty Duvida sendkeys ou codekeys

    Mensagem  marcelo3092 6/4/2019, 02:16

    Boa noite amigo acho que preparei algo que vai te ajudar abre o formulario teste1 e faça os teste da uma estudada nele, não tem ou n achei um código que intercepite tres teclas juntas porem com duas funciona
    ele esta interceptando as teclas
    CTRL+DEL
    SHFIT + DEL
    ALT + DEL
    Ou seja apertando ALT + DEL ele adiciona registro na tabela teste com o nome de usuario  data hora nome do formulario nome do computador e a tecla que foi combinada.
    Qualquer coisa so chama.

    https://drive.google.com/open?id=1XjqBzQU2vlZVQ3ZIfu2C-tXlNIUydwZB
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    [Resolvido]Duvida sendkeys ou codekeys Empty Re: [Resolvido]Duvida sendkeys ou codekeys

    Mensagem  maguim 16/4/2019, 19:58

    @marcelo3092

    exemplo impecavel!!!!

    ajudou muito, ate em outra duvida sobre registrar computador que eu tinha em mente.


    @FranklinJSP

    obg pelos exemplos ajudou tb.


    peguei dois exemplos e adaptei obggooo bounce Very Happy


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    avatar
    patrickdanielli1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 22/07/2017

    [Resolvido]Duvida sendkeys ou codekeys Empty Re: [Resolvido]Duvida sendkeys ou codekeys

    Mensagem  patrickdanielli1 21/3/2020, 13:30

    vou pegar carona nesse post,

    marcelo excelente exemplo, me ajudou bastante tbm

    pessoal to com uma duvida simples para estudo

    queria que ao pressionar crtl+1 a chkbox seria desmarcada,

    tentei assim sem sucesso.

    Código:
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim IntTeclaControl As Integer
    IntTeclaControl = (Shift And acCtrlMask) > 0
    If IntTeclaControl And KeyCode = 49 Then
    Me.chkbox = False
    End Sub
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 299
    Registrado : 19/08/2010

    [Resolvido]Duvida sendkeys ou codekeys Empty Re: [Resolvido]Duvida sendkeys ou codekeys

    Mensagem  marcelo3092 21/3/2020, 21:34

    Ola amigo entra no formulario teste1 e aberte ctrl + 1 em qualquer um dos dois numero do teclado comentei no codigo do formulario teste1 se quiser adicionar mais combinações de tecla.
    https://drive.google.com/open?id=1ijgYwOyTfB3LbPs70HPfu50mqheNCHGt

    eu coloqueui true no codigo basta mudar para false ou 0
    avatar
    patrickdanielli1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 22/07/2017

    [Resolvido]Duvida sendkeys ou codekeys Empty Re: [Resolvido]Duvida sendkeys ou codekeys

    Mensagem  patrickdanielli1 22/3/2020, 09:17

    obrigado novamente marcelo,

    custei a entender a propriedade Form.keypreview, ela precisa estar true para liberar a entrada do teclado no controle.

    valew demais !

    Conteúdo patrocinado


    [Resolvido]Duvida sendkeys ou codekeys Empty Re: [Resolvido]Duvida sendkeys ou codekeys

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 21:40