I've swapped some things around and it seems to be working
I have made the column into a string and filter it by current date which is also a string (dim)
the code below
Code:
Dim theYear As String
Dim strsql As String
Dim intNum As Integer
theYear = Replace(CStr(year(Date)), "/", "")
Debug.Print theYear
With Me
.cboMonth = month(Date)
strsql = "SELECT tblShowYear.ShowYearID, Replace(CStr(Year([ShowYear])),""/"","""") AS ShowYearString, tblShowYear.ShowYear " _
& "FROM tblShowYear " _
& "WHERE (((Replace(CStr(Year([ShowYear])),""/"",""""))=" & theYear & "));"
.cboYear.RowSource = strsql
.cboYear = .cboYear.ItemData(0)
End With
when the user clicks on the combo box I will swap out the filtered row source to one that isn't.
Then they will see all the years
the swap out
Code:
Dim strsql As String
strsql = "SELECT tblShowYear.ShowYearID, tblShowYear.ShowYear, Replace(CStr(Year([ShowYear])),""/"","""") AS ShowYearString " & _
"FROM tblShowYear;"
Me.cboYear.RowSource = strsql
Me.cboYear.Requery