Production Date/Expiry Date (Update)

[William Bradley]

"Marshall Barton" <ma*********@wo wway.com> wrote in message
news:9a******** *************** *********@4ax.c om...

William Bradley wrote:

I have two cells on a form. One of them is the "Production Date" and the
other is the "Expiry Date". The "Expiry Date" is 183 days after the
"Production Date."

On an Excel spreadsheet, the "Expiry Date" is automatically entered, when
the "Production Date" is entered. To do this the "Expiry Date" cell carries
the following formula: "=A15+183".

I would like to be able to do the same on an Access Form, with the results
written to the underlying table.

I think what you're asking for can be done by using a line
of code in the Production Date text box's AfterUpdate event
procedure:

txtExpiryDate = DateAdd("d", 183, txtProductionDa te)

Thank you for the above Marsh. I already have a line of code in the "After
Update" of the "ProductionDate " field. Is it possible to add yours, above,
as well? If so how? I tried it and it didn't work, probably due to my
missing something out.

Is there a way of accomplishing the same result using the "Expiry Date"
field.

Thank you,

Bill.

[Patrick Finucane]

William Bradley wrote:

"Marshall Barton" <ma*********@wo wway.com> wrote in message
news:9a******** *************** *********@4ax.c om...

William Bradley wrote:

I have two cells on a form. One of them is the "Production Date" and the
other is the "Expiry Date". The "Expiry Date" is 183 days after the
"Production Date."

On an Excel spreadsheet, the "Expiry Date" is automatically entered, when
the "Production Date" is entered. To do this the "Expiry Date" cell carries
the following formula: "=A15+183".

I would like to be able to do the same on an Access Form, with the results
written to the underlying table.

I think what you're asking for can be done by using a line
of code in the Production Date text box's AfterUpdate event
procedure:

txtExpiryDate = DateAdd("d", 183, txtProductionDa te)
Thank you for the above Marsh. I already have a line of code in the "After
Update" of the "ProductionDate " field. Is it possible to add yours, above,
as well?

Yes. You can add many lines of code to an event.

If so how? I tried it and it didn't work, probably due to my missing something out.
I would dblclick on the field for ExpiryDate and pull up the property
sheet, then click the Other tab. What is the Name field value? Change
txtExpiryDate to that name or do something like
Me.YourExpiryDa teFieldName = DateAdd("d", 183,
Me.YourProducti onDateFieldName )
Is there a way of accomplishing the same result using the "Expiry Date"
field.

Yes. Since the date is calculated, remove the code in the AfterUpdate
event. Then enter
=DateAdd("d", 183, Me.YourProducti onDateFieldName )
as your ControlSource found under the Data tab of the field. Make sure
the name matches the Name field of the field.

[William Bradley]

"Patrick Finucane" <fi******@minds pring.com> wrote in message
news:3F******** *******@mindspr ing.com...

I would dblclick on the field for ExpiryDate and pull up the property
sheet, then click the Other tab. What is the Name field value? Change
txtExpiryDate to that name or do something like
Me.YourExpiryDa teFieldName = DateAdd("d", 183,
Me.YourProducti onDateFieldName )

Is there a way of accomplishing the same result using the "Expiry Date"
field.

Yes. Since the date is calculated, remove the code in the AfterUpdate
event. Then enter
=DateAdd("d", 183, Me.YourProducti onDateFieldName )
as your ControlSource found under the Data tab of the field. Make sure
the name matches the Name field of the field.

Thank you Patrick, the first solution above worked fine.

Bill.