Solved: Spin buttons

[maninjapan]

New to VBA here. Making my first attempt at a Userform. Am trying to use the Spin button function to increase/decrease by 1.

I have most of it but just need to know what the XXXX bit should be.

Private Sub SpinButtonLots_SpinDown()
' Reduces Lot size by 1
TextBoxSpin.Text = XXXXX(TextBoxSpin.Text) - 1
End Sub


thanks in Advance

[Bob Phillips]

Private Sub SpinButtonLots_SpinDown()
' Reduces Lot size by 1
TextBoxSpin.Text = Val(TextBoxSpin.Text) - 1
End Sub

[maninjapan]

Simple as that..... Thanks.

I have now tried to use the spin button to adjust the date.
I tried the following (as explained in Microsoft Help and Support)

Private Sub SpinButtonDate_SpinDown()
' Reduces Date by 1 day
TextBoxDate.Text = DateValue(TextBoxDate.Text) - 1
End Sub

however I recieved an Error 13 in regards to the 3rd line.

There was also a module with the following
Sub ShowForm()
TextBox1.Text = Date
UserForm1.Show
End Sub

Not sure how to fix this error...

[Bob Phillips]

Private Sub SpinButtonDate_SpinDown()
With Me.TextBoxDate
' Reduces Date by 1 day
.Text = Format(DateValue(.Text) - 1, "dd mmm yyyy")
End With
End Sub


and



Sub ShowForm()
UserForm1.TextBoxDate.Text = Format(Date, "dd mmm yyyy")
UserForm1.Show
End Sub

[maninjapan]

thanks XLD, Tried the following but still came back with the same error(13)
on the 4th line.....

Private Sub SpinButtonDate_SpinDown()
With Me.TextBoxDate
' Reduces Date by 1 day
.Text = Format(DateValue(.Text) - 1, "dd mmm yyyy")
End With
End Sub

[Bob Phillips]

Did you pre-load it as per the other code?

[maninjapan]

sorry, what do you mean by pre-load it?

[Bob Phillips]

Sub ShowForm()
UserForm1.TextBoxDate.Text = Format(Date, "dd mmm yyyy")
UserForm1.Show
End Sub

[maninjapan]

Ok I get what you mean now. It works fine now. I was trying to just run the Userform itself.

Another Problem solved.

Thanks a lot