Date*1 year???

[satty]

hey people,

i have a text box on a form called txtStartDate. i also have another text box just below is called txtExpiryDate.

i was wondering if somebody could help me with this lil 'glitch'.

The Problem

what i want is, when i enter a date in the Start Date, for example, 27/12/03. i want the expiry date to automatically come with 27/12/04, exactly one year difference.

thanx guys!



Satty

 

[Joe4]

Simply add code that updates txtExpiryDate upon entering txtStartDate.

To do this, right click on the txtStartDate variable and select Properties.
Go to the Event tab and click on "After Update" and select "Code". Paste the following code:

Private Sub txtStartDate_AfterUpdate()
    
    If txtStartDate.Value > 0 Then
        txtExpiryDate = DateSerial(Year(txtStartDate) + 1, Month(txtStartDate), Day(txtStartDate))
    End If

End Sub

(the first and last line should already be there for you).

Now it should automatically update txtExpiryDate upon updating txtStratDate.

 

[satty]

hey,

thanx alot mate! that did the trick!!!!!!!!!!!!!!!!!!!!






cheers


Satty