[Resolvido]Uso das Teclas

Bom Dia

Estou precisando de uma forcinha.

estou querendo integrar as teclas do teclado com o comando do sistema.

estou precisando acrescentar a:
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious

as teclas do teclado (Page Down, Page Up)

Se alguém puder me ajudar ficarei muito grato.

Desde já agradeço.

Boa tarde,

Page down:

SendKeys "{PGDN}"

Page Up:

SendKeys "{PGUP}"

Boa Tarde


Não deu certo

Boa tarde,

A sua intenção é ao carregar nas teclas PageUp ou PageDown ele executar os códigos que referiu??

Abraço...

Um pitaco;

Tem de ter o Visualizar Teclas = Sim, nas propriedades do seu formulario;

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo 1
If KeyCode = 33 Then
  KeyCode = 0
  DoCmd.GoToRecord , , acNext
End If
If KeyCode = 34 Then
  KeyCode = 0
    DoCmd.GoToRecord , , acPrevious
End If
1:
If Err.Number = 2105 Then
    MsgBox "Você Encontrou o último registro", 16, "Atenção"
End If
End Sub

Boa tarde JPaulo

Testado e aprovado.... , Também vou aprendendo algumas coisas...

Abraço...

É precisamente esse o objetivo deste fórum.

Valeu

Deu certinho

Muito Obrigado.