Alex you are a genious. I did some playing based on the information that you posted. Here is the code:
Private Sub Form_Load()
Dim firsthour As Integer
Dim consumedhours As Integer
Dim firstunithour As Integer
Dim UHU As Integer
Dim ctl As Control
Dim i As Integer

DoCmd.OpenQuery "qryTaskTime"
DoCmd.OpenForm "frmUnitHours", acNormal, , , acFormAdd
DoCmd.GoToRecord acDataForm, "frmUnitHours", acNewRec
Forms![frmUnitHours]![DOS].Value = DLookup("ScheduledDate", "qryTaskTime", "PCNumber=" & Forms![frmUnChargedUnitHours]![PCNumber])
firstunithour = DLookup("firstHour", "qryTaskTime", "PCNumber=" & Forms![frmUnChargedUnitHours]![PCNumber])
UHU = DLookup("ConsumedUnitHours", "qryTaskTime", "PCNumber=" & Forms![frmUnChargedUnitHours]![PCNumber])


Dim time As Integer
time = firstunithour
Dim hours As Integer
hours = UHU
For i = firstunithour To (firstunithour + UHU)
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
        If ctl.Name = "hr" & i Then
        ctl.Value = 1
        End If
    End If
    Next ctl
Next i
End Sub

Couldnt have done it without you. The good news is that I have it completely automated, it ran through 250+ records in about a minute while I was playing army attack on facebook.

Now on to the graphs.

cant thank you enough