帳票フォーム画面での入力チェック | 備忘録 (。・_・。)ノ

知人に質問されて答えられなかったので作ってみました。
Private Sub コマンド9_Click()

    Dim rs As Recordset
    Dim i As Integer
    Me.Requery
    Set rs = CurrentDb.OpenRecordset("交通費")
    MsgBox rs.RecordCount& "件"
    For i = 1 To rs.RecordCount
        DoCmd.GoToRecord , , acGoTo, i
        If Me.出発 = "" Or IsNull(Me.出発) Then
            Me.出発.SetFocus
            MsgBox "必須は" & i & "番目の出発"
            GoTo EndRtn
        End If
    Next i
    DoCmd.GoToRecord , , acFirst
    Exit Sub
EndRtn:
    Set rs = Nothing
End Sub