اذا لم تستطع فتح ملف استاذ @kkhalifa1960
اول شي اعمل KeyPreview = yes للنموذج ثم ضع الكود التالي عند حدث KeyDown
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 38 'Up Arrow
If Not Me.Recordset.BOF Then
Me.Recordset.MovePrevious
End If
Case 40 'Down Arrow
If Not Me.Recordset.EOF Then
Me.Recordset.MoveNext
End If
End Select
End Sub