Copying date from one text field to another - Error 13

[DubCap01]

Hi all,



Really frustrated with this one.

I want to copy the date from field [DateStart] and paste that date (minus one day) into [LeaseStart1]. I get Error Code 13 no matter what permutation I try...
Format for both fields is Medium Date - I even copied [LeaseStart] and pasted the same field and renamed it [LeaseStart1] - still no resolution
Here's my code for the On Change event (using the date picker to change the date):

Private Sub LeaseStart_Change()
        Me.LeaseStart1 = Me.LeaseStart - 1
        Me.LeaseEnd = DateAdd("m", Me.LeaseTerm1, Me.LeaseStart1)
        Me.KmAllowance.SetFocus
End Sub

Can anyone help me fix the error ?
Thanks in anticipation

Pete

[DubCap01]

Worked around it folks, took out the On Change element and made it After Update - for some reason it worked...
happy Camper moves on...