[Resolvido]Duvida sendkeys ou codekeys

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

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

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

@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

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

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

obrigado novamente marcelo,

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

valew demais !