Option Compare Database
Option Explicit
Private Sub Form_Load()
'移動しない
'Application.SetOption "Move After Enter", 0
'次のフィールド
Application.SetOption "Move After Enter", 1
'次のレコード
'Application.SetOption "Move After Enter", 2
End Sub