Jamie Poole
asked on
Code for Do until Loop
I am trying to write a Do Until loop, what I want to know is how to write the if statement, I want the loop to continue until all 14 check boxes are read. Here is what i think it should be the code below.
Is there a way to have the field Day_ InAMTime etc, read inclemently. There are 14 days that have 4 time fields that need to be populated based on weather the corresponding check box is checked.
\thank you.
Is there a way to have the field Day_ InAMTime etc, read inclemently. There are 14 days that have 4 time fields that need to be populated based on weather the corresponding check box is checked.
\thank you.
If WKDay "& = False Then
Me.Day01InAMTime.Value = tbl_EmployeeData.InAMTime
Me.Day01OutAMTime.Value = tbl_EmployeeData.OutAMTime
Me.Day01InPMTime.Value = tbl_EmployeeData.InPMTime
Me.Day01OutPMTime.Value = tbl_EmployeeData.OutPMTime
Else
Me.Day01InAMTime.Value = Null
Me.Day01OutAMTime.Value = Null
Me.Day01InPMTime.Value = Null
Me.Day01OutPMTime.Value = Null
ASKER
Simple question why & Format, and how do I test against the check boxes, in the mean time i will play with this thank you.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Do I need to change format and if so to what.
I only want to populate the days that have been checked on another form but that information is stored in the same table that populates the time fields.
I only want to populate the days that have been checked on another form but that information is stored in the same table that populates the time fields.
ASKER
thank you
Dim x as Integer
For x = 1 to 14
Me("Day" & Format(x, "00") & "InAMTime").Value = goo
Me("Day" & Format(x, "00") & "OutAMTime").Value = foo
Me("Day" & Format(x, "00") & "InPMTime").Value = boo
Me("Day" & Format(x, "00") & "OutPMTime").Value = haachoo
next