This is what you need for a sub form;
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo ErrorHandler
If KeyCode = 40 Then
Forms![MainFormName].SetFocus
Forms![MainFormName]![SubFormName].SetFocus
DoCmd.GoToRecord , , acNext
End If...