知人に質問されて答えられなかったので作ってみました。
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