Microsoft Access 掲示板

ファームにある複数のコンボボックスでフィルター / 7

15 コメント
views
4 フォロー
7
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ですね(続く処理がないのでどうせ何もせずプロシージャが終了する)

通報 ...