In your form, use the AfterUpdate event procedure of the first control to
assign a value to the 2nd control.
This example assumes 2 text boxes, with control source of HireDate and
ReturnDue respectively.
Private Sub HireDate_AfterUpdate()
Me.[ReturnDue] = DateAdd("d", 10, Me.HireDate)
End Sub
We are assuming here that you want it to default to 10 days later, but there
are times where you want to change that (e.g. to give an extension). If it
should *always* be exactly 10 days later, then don't store the date: use a
calculated field instead. Details of how and when to do that in:
Calculated Fields
at:
http://members.iinet.net.au/~allenbrowne/casu-14.html
