Searching for data in a combo list - vba

Question

I have a database with a table ALL_INCOME which contains all my data with reference to income.
I managed to create a search button which is able to search the data in a date range successfully.
My table has these fields:
Date,Type of income, Amount.
I will like to search in a date range so it can pick a specific type of income records to be displayed.
For instance, if I have investment, savings as the type of income in my table and also in my combo list, I will like to be able to search in a date range using a specific type of income.
These are my codes which is able to search data in a date range that displays all data.
Private Sub Command20_Click()
' Search button
Call Search
End Sub
Sub Search()
Dim strCriteria, task As String
Me.Refresh
If IsNull(Me.OrderDateFrom) Or IsNull(Me.OrderDateTo) Then
MsgBox "Please enter the date range", vbInformation, "Date Range Required"
Me.OrderDateFrom.SetFocus
Else
strCriteria = "([DATE] >= #" & Me.OrderDateFrom & "# And [DATE] <= #" & Me.OrderDateTo & "#)"
task = "select * from ALL_INCOME where (" & strCriteria & ") order by [DATE]"
DoCmd.ApplyFilter task
End If
End Sub
Any help with this will be greatly appreciated.
Thank you

Answer 1

Try below codes. It will search specific IncomeType between two date range. If you do not select any IncomeType then it will filter all IncomeType in specified date range.
Option Compare Database
Option Explicit
Private Sub cmdApplyFilter_Click()
Call Search
End Sub
Sub Search()
Dim strCriteria, task As String
Me.Refresh
If IsNull(Me.OrderDateFrom) Or IsNull(Me.OrderDateTo) Then
MsgBox "Please enter the date range", vbInformation, "Date Range Required"
Me.OrderDateFrom.SetFocus
Else
strCriteria = "[MyDate] >= " & Format(Me.OrderDateFrom, "\#mm\/dd\/yyyy\#") & _
" And [MyDate] <= " & Format(Me.OrderDateTo, "\#mm\/dd\/yyyy\#") & _
" AND [IncomeType] LIKE '" & IIf(IsNull(Me.cboIncomeType), "*", Me.cboIncomeType) & "'"
'task = "select * from ALL_INCOME where (" & strCriteria & ") order by [DATE]"
DoCmd.ApplyFilter , strCriteria
End If
End Sub