If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Open report to current year
I have a form with a combo box for the user to select criteria to open a
report. The following code works but I want to add the criteria that the records displayed only the current year not all years. Any help will be appreciated. Private Sub cmdListCodes_Click() Dim strFilter As String Dim varItem As Variant With lstCodeNumbers If .MultiSelect = 0 Then strFilter = "[code] = " & .Value Else For Each varItem In .ItemsSelected strFilter = strFilter & "," & .ItemData(varItem) Next varItem If Len(strFilter) 0 Then If .ItemsSelected.Count = 1 Then strFilter = "[code] = " & Mid$(strFilter, 2) Else strFilter = "[code] In(" & Mid$(strFilter, 2) & ")" End If End If End If End With 'Clear the listbox selected items With lstCodeNumbers For Each varItem In .ItemsSelected .Selected(varItem) = False Next varItem End With 'Open the report with the selected Codes DoCmd.OpenReport "rptTestDescCode", acViewPreview, WhereCondition:=strFilter End Sub |
Thread Tools | |
Display Modes | |
|
|