"For each" with fields 1

[CharlesFS]

Guys, i have two text field in access form.[date1] and [date2].

In field [date1] i put the initial date value and [date2] i put the end date value. like: [01/10/2009] [03/10/2009] Obs:format date(dd/mm/yyyy)

I need a code to call one sub for each date between fields [date1] and [date2] values.

Thanks a lot!

 

[SkipVought]

Hi,

First, you must convert each string to a real date.

dim dFrom as date, dThru as date
dFrom = datevalue(me.[date1]) ' assuming that your string in is in your regional settings format.

Then loop, incrimenting the date by one until you reach the second date.

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[CharlesFS]

Thankyou SkipVought, but have you a sample code about:
"Then loop, incrimenting the date by one until you reach the second date."

Thanks a lot SkipVought

 

[SkipVought]

dim dFrom as date, dThru as date, dte as date
dFrom = datevalue(me.[date1]) ' assuming that your string in is in your regional settings format.
dThru = datevalue(me.[date2])
dte = dfrom
do
  dte = dte + 1
'do something
loop until dte > dthru

or

for dte = dfrom to dthru
'do something
next

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[CharlesFS]

WOooooooohoooooo !!!!

SkipVought Thank you!
SkipVought Thank youuu!
SkipVought Thank youuuuu!
SkipVought Thank youuuuuuuu!