Solved Field iteration

[extraordin]

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
' dname.Text = DateAdd("d", i - 1, fname)
'Next
txtDate1.SetFocus
txtDate1.Text = DateAdd("d", 0, fname)
txtDate2.SetFocus
txtDate2.Text = DateAdd("d", 1, fname)
txtDate3.SetFocus
txtDate3.Text = DateAdd("d", 2, fname)
txtDate4.SetFocus
txtDate4.Text = DateAdd("d", 3, fname)

 

[arnelgp]

For i = 1 To 4
me("txtDate" & i) = DateAdd("d", i - 1, me("txtDate" & i).ControlSource)
Next

 

[Gasman]

Shouldn't that be

For i = 1 To 4
me("txtDate" & i) = DateAdd("d", i - 1, fname)
Next

as the user is using txtStartDate to base the calculations on?

 

[extraordin]

Thanks to both of you. That works fine.