Solved

Code for Do until Loop

Posted on 2008-06-25
5
795 Views
Last Modified: 2013-11-28
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.
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

Open in new window

0
Comment
Question by:life42
  • 3
  • 2
5 Comments
 
LVL 65

Expert Comment

by:Jim Horn
ID: 21868626
Give this a whirl... (air code, so modify to suit your needs)

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
0
 

Author Comment

by:life42
ID: 21868672
Simple question why & Format, and how do I test against the check boxes, in the mean time i will play with this thank you.
0
 
LVL 65

Accepted Solution

by:
Jim Horn earned 500 total points
ID: 21868694
>Simple question why & Format
So 1 will be read as 01, 2 as 02, 3 as 03, etc.

>and how do I test against the check boxes,
Not sure what you mean here.
0
 

Author Comment

by:life42
ID: 21868720
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.

0
 

Author Closing Comment

by:life42
ID: 31470699
thank you
0

Featured Post

Complete VMware vSphere® ESX(i) & Hyper-V Backup

Capture your entire system, including the host, with patented disk imaging integrated with VMware VADP / Microsoft VSS and RCT. RTOs is as low as 15 seconds with Acronis Active Restore™. You can enjoy unlimited P2V/V2V migrations from any source (even from a different hypervisor)

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article is a continuation or rather an extension from Cascading Combos (http://www.experts-exchange.com/A_5949.html) and builds on examples developed in detail there. It should be understandable alone, but I recommend reading the previous artic…
It’s been over a month into 2017, and there is already a sophisticated Gmail phishing email making it rounds. New techniques and tactics, have given hackers a way to authentically impersonate your contacts.How it Works The attack works by targeti…
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question