[Resolvido]Navegar com setas do teclado

Ola pessoal,

Alguém poderia me ajudar com um exemplo de como navegar com as setas do teclado em
um formulário continuo ?

Ola

É simples;

O seu formulario tem de ter Visualizar Teclas = Sim

No procedimento VBA KeyDown do formulario;

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo 1
    If KeyCode = 39 Then Me.Recordset.MoveNext
    If KeyCode = 37 Then Me.Recordset.MovePrevious
1:
If Err.Number = 3021 Then
    MsgBox "Não existem mais registros para nevegar...", vbCritical
    Exit Sub
    End If
End Sub

JPaulo bom dia obrigado pela atenção, mais ele só navega de lado nos registros do formulário continuo
se eu quiser ir para o registro da linha de baixo tenho que percorrer todos registros para depois ir para o registro da linha
de baixo, teria como fazer as setas irem para o registro de baixo sem precisar percorrer todos ?

Veja como é meu formulário

Basta acrescentar esta linha a seguir ás outras que eu fiz;

If KeyCode = 40 Then DoCmd.GoToRecord

JPaulo muito obrigado pela atenção dispensada, consegui resolver dessa forma


If KeyCode = 37 Then Me.Recordset.MoveUp
If KeyCode = 39 Then Me.Recordset.MoveDown
If KeyCode = 38 Then Me.Recordset.MovePrevious
If KeyCode = 40 Then Me.Recordset.MoveNext

estranho mais dessa forma funcionou, mais uma vez obrigado JPaulo

Me.Recordset.MoveUp e Me.Recordset.MoveDown, não existe no VBA, logo se funciona é porque você tem a instrução On Error Resume Next no inicio para inibir os erros.

Existem duas formas de o fazer, mais funcional;

1ª

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'JPaulo ® maximoaccess 2016
On Error Resume Next
    Select Case KeyCode
        Case vbKeyDown
        DoCmd.GoToRecord Record:=acNext
        KeyCode = 0
        Case vbKeyUp
        DoCmd.GoToRecord Record:=acPrevious
        KeyCode = 0
    Case Else
    
    End Select
End Sub

2ª

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim UltimoRegistro As Long
  
   UltimoRegistro = Me.Recordset.RecordCount
  
   If Shift = 0 Then
      If KeyCode = vbKeyUp Then
         If Me.CurrentRecord > 1 Then Me.Recordset.MovePrevious
         KeyCode = 0
      ElseIf KeyCode = vbKeyDown Then
         If Me.CurrentRecord < UltimoRegistro Then Me.Recordset.MoveNext
         KeyCode = 0
      End If
   End If
End Sub