Date add 1 year

[overflo]

Hi
I am trying to help someone and and I'm only a beginner myself in VBA.

We have an after update event of a text box (txtDatePaid). What we need it to do is grab the date from another text box (txtDueDate) add 1 year (the date will always be 30th June) and put this back into txtDueDate. I realise there are a few ways of doing this, what would be the simplest?

Thanks in advance

 

[missinglinq]

I think this is what you're asking for:

Private Sub txtDatePaid_AfterUpdate()
  Me.txtDueDate = DateAdd("yyyy", 1, Me.txtDueDate)
End Sub

The Missinglinq

Richmond, Virginia

There's ALWAYS more than one way to skin a cat!

 

[overflo]

Thanks

You're a champion

 

[missinglinq]

Glad to help!

Linq

The Missinglinq

Richmond, Virginia

There's ALWAYS more than one way to skin a cat!