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):
Code:
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