have you tried:
Code:
dim sControlName
For x = 0 To 8
DateHolder = cboWeekBeg.Value + WeekDelta
sControlName = "txt_main" & x
Me.Controls(scontrolname).SetFocus
Me.Controls(scontrolname).Value = DateHolder
WeekDelta = WeekDelta + 7
Next x
I'm assuming your controls are named txt_main_0 through txt_main_8
you probably don't want to set focus on each individual control, doesn't really make sense to do it on anything but the first or last control depending on where you want to be.
this was my test code and it worked:
Code:
Dim scontrolname As String
For x = 0 To 2
scontrolname = "Text" & x
Me.Controls(scontrolname) = "TESTER"
Next x