if question

Hi!

I´m wonder if you can help me with the following code.I'm trying to insert a Webding letter("a") in textbox R15 if the textbox R14 value is less then today's date, if not i want the Webding letter "r" to appear in textbox R15 but i've get always the same letter "a" independently the result in textbox R14.

thank you. Here's the code:

If Me.R14.Value < Format(Now(), "dd/mm/yyyy") Then


Me.R15.TextAlign = fmTextAlignCenter
Me.R15.Font.Size = 12
Me.R15.Font.Name = "Webdings"
Me.R15.Value = "a"
Me.R15.ForeColor = vbGreen
Me.R15.BackColor = vbWhite
Me.R15.Visible = True

Else

Me.R15.TextAlign = fmTextAlignCenter
Me.R15.Font.Size = 12
Me.R15.Font.Name = "Webdings"
Me.R15.Value = "r"
Me.R15.ForeColor = vbRed
Me.R15.BackColor = vbWhite
Me.R15.Visible = True




End If