Using Spinbutton to change a date
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)
"Gheezer" wrote in message
...
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.
|