next button help

[ashgull80]

hi
just a small question bout this code,
[VBA]Private Sub cmdNext_Click()
Dim iYear As Long

iYear = CLng(txtYear.Text)
If iYear < Year(Date) Then
iYear = iYear + 1
txtYear.Text = iYear
End If
End Sub

Private Sub cmdPrev_Click()
Dim iYear As Long

iYear = CLng(txtYear.Text)
iYear = iYear - 1
txtYear.Text = iYear
End Sub [/VBA]

i need to be able to go back years as far as 2006 but only forward to the current year how is that possible? as at the moment it starts on 2007 will go forward to 2008 and no further but will not go back any years.
also how can i set the text box so when the user form is opened it starts on the current year?
thanks ash

[Norie]

What's in the textbox?

The code works fine for me if I just have the year in it.

[ashgull80]

the next butoon works fine, will start on 2007 then will only go as far as 2008 perfect, but the previous button will not go back once the next button has been pressed.

[Norie]

Well it does for me.

[ashgull80]

what year can you go back to?

[ashgull80]

sorry been a idiot works fine if i attach the code to the correct button, can i set it though so i cant go any further back than 2007?

[Norie]

As far as I want it would appear, though I obviously didn't test for every year.

And I can go backwards and forwards no problem up to 2008.

By the way have you considered using a spinner control instead of 2 command buttons?

[ashgull80]

no how does that work?

[Norie]

What years do you actually want to use?

3 controls seems like overkill when you appear, though it's not clear, to only want to work with 2-3 years.

You could easily populate a combobox with the required years.

[ashgull80]

well from 2007 as that s far back as the data will go, but could be 20years forward depending on workbook life!

[Norie]

Well there's nothing stopping you populating a combobox dynamically based on what data you have.

Code to do it would depend on the data.

Could be simple as finding the max and min years from it.

[Bob Phillips]

[vba]

Private Sub cmdPrev_Click()
Dim iYear As Long

iYear = CLng(txtYear.Text)
If iYear > 2007 Then
iYear = iYear - 1
txtYear.Text = iYear
End If
End Sub
[/vba]