Add a year to a date from a combo box

[Ruegen]

I have a date field where the user wants to put in only the day and month and not bother typing in the year and have it auto fill the year from the value of the combo box



the combo box has year(date) in the second column(1)

so basically I want a date variable stuffed with the year of the second column

I was hoping to remove e.g. 2014 from the field then replace it with column value (2015)

[Ruegen]

I am using

Dim selYear As Date


selYear = Format(CDate("01/01/" & Me.CboYear.Column(1)), "dd/mm/yyyy")
Debug.Print selYear & " date new"


selYear = DateSerial(Year(selYear), Month(Me.txtFrom.Value), Day(Me.txtFrom.Value))
Debug.Print selYear & " works"
Me.txtFrom = selYear


Debug.Print CStr(Year(selYear))
Debug.Print Me.CboYear.Column(1)


If CStr(Year(selYear)) <> Me.CboYear.Column(1) Then
MsgBox "select a date from the same year you have selected!"
Me.txtFrom.Value = Null
End If

and this works fine however if I format the textbox to "dd/mm" I get a problem

[Ruegen]

Nevermind just used short date instead and it works fine, sorry guys.