How to make a loop in VB

[darwin]

I am new in Access not much experiance with VB

I have a LoopForm.accdb

Inside the LoopForm.accdb database I have a table DateTable


The DateTable has the columns: ID, DateToday, StartDate, EndDate

I have a DateTableForm with the elements DateTodayForm, StartDateForm and EndDateForm.

What I want is when the DateTableForm is opened up, the dates for all three boxes
is automatically filled with dates.


Then the loop

The DateTodayForm = currentdate

StartDateForm = begin start at April 27

EndDateForm = begin end at May 10

if currentdate is between April 27 and May 10

Then StartDateForm = April 27

and EndDateForm = May 10



if not

the loop should spell 2 weeks up

if

currentdate is between May 11 and May 24

Then StartDateForm = May 11

and EndDateForm = May 24

and so on



Any one WHO can tell about how I do this in a Modules with VB ??

[June7]

Why using VBA?

Why don't you bind the form to the table then bind textboxes to fields. Data will automatically display. No code required.

[darwin]

thanks

But thats logic

But I am in the learning mode about vba, and could use it in other solutions.

[June7]

Some developers do use unbound forms/controls to display data from tables - I never have.

If you want to display data from all records, better use bound form. If you want to pull data for only one record - which one? How do you want to identify which record?

I should think there are more practical exercises for learning VBA. Here's one that demonstrates opening a recordset and looping through the records and outputting data to the VBA immediate window:

Sub TestVBALoop()
Dim rs AS DAO.Recordset
Set rs = CurrentDb.OpenRecordset ("SELECT * FROM DateTable")
While Not rs.EOF
Debug.Print rs!DateToday & " : " & rs!StartDate & " : " & rs!EndDate
rs.MoveNext
Wend
End Sub

If you just want to set textboxes with values that have no connection to data in table, a loop is not needed. But you are describing conditional code.
Me.DateTodayForm = Date()
If Date() >= "4/27/" & Year(Date()) And Date() <= "5/10/" & Year(Date()) Then
Me.StartDateForm = "4/27/" & Year(Date())
Me.EndDateForm = "5/10/" & Year(Date())
Else
...
End If

[darwin]

thanks jun7

But my criteria is

April 27 - May 10
May 11 - May 24
May 25 - June 7
June 8 - june 21
and so on in the endless with + 14 days

so the currentday is crucial for the start day and end day

The idea is that the user do not have to even have to sign these days

[June7]

Sorry, I don't understand the purpose. Take my example of If Then and adapt as needed.