MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Duvida sendkeys ou codekeys

    maguim
    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  maguim em 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 100%

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

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

    Mensagem  FranklinJSP em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  marcelo3092 em 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 100%

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

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

    Mensagem  maguim em 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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/7/2019, 13:36