Calculate a date (from start date) when check Box is activated

[Oliver]

Hi,
I have the follwing table
1. StartDate ( date Format)
2. Inc1Mo (checkBox)
3. SampleReadyOn (date Format)
I would like to program the following into a Form:
When the CheckBox is activated ( to yes) than:
1 month is add to the startDate and the new date is given into the
SampleReadyOn column.

For eg. if the Start date is 051708
When CheckBox is activated to " YES"
Than the following date shoud appears into SampleReadyOn = 061708 (Start
date + 1 month)
And I would like to have the same possibility for 3,6,12,24 months

Thanks for your help
Oliver

 

[Al Campagna]

Oliver,
Use the DateAdd function in the AfterUpdate event of Inc1Mo.
Private Sub Inc1Mo_AfterUpdate()
If Inc1Mo = True Then
SampleReadyOn = DateAdd("m", 1, StartDate)
End if
End Sub
--
hth
Al Campagna
Microsoft Access MVP
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."

 

[Linq Adams via AccessMonster.com]

Private Sub Inc1Mo_AfterUpdate()
If Inc1Mo = -1 Then
Me.SampleReadyOn = DateAdd("m", 1, Me.StartDate)
End If
End Sub

To do it for 3, 6 etcmonths, change the 1 to the appropriate number in the
DateAdd() function.

You should note, however, that

051708

is NOT A DATE, and Access won't recognize it as one! You have to have
standard delimiters between the date components, i.e.

05/17/08
or

05-17-08

or

05.17.08

before Access will allow it in a field defined as DateTime datatype and hence
nefore DateAdd() will work

 

[Linq Adams via AccessMonster.com]

Sorry, should have added that if you want to be able to change you mind and
uncheck the box and delete the value you've placed in the SampleReadyOn field:


Private Sub Inc1Mo_AfterUpdate()
If Inc1Mo = -1 Then
Me.SampleReadyOn = DateAdd("m", 1, Me.StartDate)
Else
Me.SampleReadyOn = ""
End If
End Sub

 

[Oliver]

Dear Linq,
Thanks a lot for your help.
It works fine.
Warm Regards.
Oliver