Calculate Dates by terms field

[Marclem]

Hello everyone!

I have the following fields:

Name Date Terms Pay Date
Marc 05/25/05 30
Nancy 05/21/05 60
Peter 05/23/05 20
Mary 04/21/05 90
Paul 03/01/05 120
Vinny 02/10/05 15

What I am trying to get is a calculation from the terms field and the Date field, to have the output placed in the Pay Date field.

For example: if the date is 05/25/05 and the Terms is 30 days, then the date for the output will be 06/24/05

Thank you!

 

[jebry]

Hi!

If your Date is actually a date/time field then the Pay Date field will be Date + Term.

BTW, since Date is a function in access you should probably change the name of the field.

hth


Jeff Bridgham
bridgham@purdue.edu

 

[TheAceMan1]

How are ya Marclem . . . . .

In the [blue]code module[/blue] of the form, copy/paste the following routine:

[blue]Public Sub SetPayDate()
   If IsDate(Me!Date) And IsNumeric(Me!Terms) Then
      Me![Pay Date]=Me!Date + Me!Terms
   End If
End Sub[/blue]

In the [blue]AfterUpdate[/blue] event of [purple]Date[/purple] & [purple]Terms[/purple], copy/paste the following:

[blue]   Call SetPayDate[/blue]

See Ya! . . . . . .

 

[Marclem]

Thank you TheAceman1

It works like a charm!

You have been around for a while now and you have helped a lot of people in this forum.

Thank you so much!