Adding a value to a date

[Nomis_Eswod]

Hi,

i'm trying to use the below code to automatically add a date to 1 textbox and the value 1 to another. Then using the third I want to add the 2 values, so that the third textbox shows the date from the first text plus 1 day.

For example, TextBox3 shows todays date, TextBox 9 shows one, so I want TextBox 11 to show tomorrows date.

However, it is currently adding a 1 onto the end of the date. Any ideas how to get around this?

Private Sub TextBox11_Enter()
TextBox11.Value = TextBox3.Value + TextBox9.Value
End Sub

Private Sub TextBox3_Enter()
TextBox3.Value = Format(Date, "d-mmmm-yy")
End Sub

Private Sub TextBox9_Enter()

TextBox9.Value = 1

End Sub

Many thanks!

 

[Andrew Poulsom]

You have to convert the date string to a date, otherwise the + will behave like &:

Private Sub TextBox11_Enter()
   TextBox11.Value = Format(DateValue(TextBox3.Text) + TextBox9.Value, "d-mmmm-yy")
End Sub

 

[Nomis_Eswod]

Perfect....many thanks!!