Using Spinbutton to change a date

[Guest]

I been looking but I cannot find out how to change a date in a textbox using a spinbutton. I appreciate your help on this matter.

 

[Bob Phillips]

Make sure that you put a date string in the textbox on itiliaisation, and
this spin code will work it

Private Sub SpinButton1_SpinUp()
TextBox1.Text = Format(CDate(TextBox1.Text) + 1, "dd mmm yyyy")
End Sub

Private Sub SpinButton1_SpinDown()
TextBox1.Text = Format(CDate(TextBox1.Text) - 1, "dd mmm yyyy")
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

I been looking but I cannot find out how to change a date in a textbox

using a spinbutton. I appreciate your help on this matter.

 

[Guest]

That did the trick. Thank you very much.

 

[Bob Phillips]

You are more than welcome.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)