The following code works but I am looking for a way to loop through each field. How can this be done?
Dim fname As String
Dim dname As Field
txtStartDate.SetFocus
fname = txtStartDate.Text
'For i = 1 To 4
' dname = "txtDate" & i
' dname.SetFocus
'...