DateAdd Syntax

[Ice Rhino]

Hi

I have a combo box on my form. I wish to set the value of a text box on lost focus of the combo to be the value of the combo cbxDateFrom +6 months

The code I am using is

Private Sub cbxDateFrom_LostFocus()
cbxDateTo.Value = [DateAdd("mmmm", 6, me.cbxDateFrom.Value)]
End Sub

But it does not appear to work in any variant I have tried. If it is easier to do it in properties or event builder I don't mind that, I just need the right syntax

Regards

 

[Mile-O]

One m not four.

 

[Mile-O]

Private Sub cbxDateFrom_LostFocus()
    Me.cbxDateTo = DateAdd("m", 6, Me.cbxDateFrom)
End Sub

One question though, why the LostFocus event?

 

[Ice Rhino]

Excellent, quick response and it works too

Great, thanks very much

Regards

 

[Mile-O]

Put it in the AfterUpdate event though - not the LostFocus.

 

[Ice Rhino]

It shall be done

Thank you for the scoop

Regards