hiroton
2024/02/19 (月) 10:47:52
bec36@f966d
Exit Sub
は「現在のSubプロシージャを終了する」命令です
Call record_idou
DoCmd.GoToRecord , , acPrevious
Public Sub record_idou()
If IsNull(Me.[F1]) Then
MsgBox"F1未入力時はレコード移動できません"
Exit Sub
End If
End Sub
は、イメージとしては
' Call record_idou
Public Sub record_idou()
If IsNull(Me.[F1]) Then
MsgBox"F1未入力時はレコード移動できません"
Exit Sub '─┐
End If ' │ここに飛ぶ
End Sub '←┘
DoCmd.GoToRecord , , acPrevious
となり、record_idou
プロシージャが終了して、それに続くDoCmd.GoToRecord , , acPrevious
が実行されます
つまり、この例では意味のないExit Sub
ですね(続く処理がないのでどうせ何もせずプロシージャが終了する)
通報 ...