Hi Scott,

I've sort of got it working but it's not efficient, think I've got an extra loop I don't need, always struggle with the nested loops!

I've had to change a couple of things too.
Firstly I've named the textboxes 0 1 2 3 not 01 02 03 as I would need an extra if statement checking if the value was less than 10 add a leading zero.
Another presumption is you run the code with a button once the 2 values are populated into certain textboxes.

So I've got a textbox called txtTime [tasktimestart] and txtHours [subtotalUHU].
I guess you will set those with the query when you open the form from another form.

Then I have a couple of textboxes hr0 -> hr3.

I've added a button on the form - btnFill
I've manually changed txtTime & txtHours then pressed the button and it fills in only the textboxes within the loop.

Now here is the code

Private Sub btnFill_Click()
    MsgBox "a"
    Dim ctl As Control
    
    Dim time As Integer
    time = txtTime
    Dim hours As Integer
    hours = txtHours
    
    For i = time To (time + hours)
        For Each ctl In Me.Controls
            If ctl.ControlType = acTextBox Then
                    MsgBox ctl.Name
                    If ctl.Name = "hr" & i Then
                       ctl.Value = 1
                    End If
            End If
        Next ctl
    Next i
End Sub

Now you have a loop from the time it starts to the time it starts plus the number of hours it takes.

Is that what you were after?

Is there a better way Rick?

---

Reply from Richard Rost:

Nope... you got it. You guys are too good.