Private Sub Field3_KeyDown(KeyCode As Integer, Shift As Integer)
ShiftDown = (Shift And SHIFT_MASK) > 0
If OnOff Then
If KeyCode = Key_Tab Then
If ShiftDown = 0 Then
KeyCode = 0
Me!Sub1.SetFocus
DoCmd.GoToControl "Field0"
End If
ElseIf KeyCode = Key_Return Then
KeyCode = 0
Me!Sub1.SetFocus
DoCmd.GoToControl "Field0"
Else: Exit Sub
End If
End If