Modify Query Criteria Via Form

Private Sub buttonName_Click()
Dim sWhere As Variant
sWhere = Null
If [combo1].ListIndex > -1 Then
    sWhere = "Field1 = '" & [combo] & "'"
End If
If [combo2].ListIndex > -1 Then
    sWhere = (sWhere + " And ") & "Field2 ='" & [combo2] & "'"
End If
If [combo3].ListIndex > -1 Then
    sWhere = (SWhere + " And ") & "Field3 ='" & [combo3] & "'"
End If
If IsNull(sWhere) Then sWhere = "(1=1)"
DoCmd.OpenReport "Report_1",acViewPreview,, sWhere
End Sub

Public Function GetFilter() As String
  'need variable for each partial filter
  Dim strName As String
  Dim strDate As String
  Dim strState As String
  Dim strCountry As String
  'Need final filter
  Dim strFilter As String
  Dim AndOr As String
  
  'Optional Code for 'and or'. If not remove code for this.
  Select Case Me.frmAndOr
    Case 1
      AndOr = " AND "
    Case 2
      AndOr = " OR "
  End Select
  
  'need code for each combo. Just copy and past. Need to handle dates and strings
  If Not Trim(Me.cmboName & " ") = "" Then
    strName = "Full_Name = '" & Me.cmboName & "'" & AndOr
  End If
  If IsDate(Me.cmboDate) Then
    strDate = "Created_Date = #" & Format(Me.cmboDate, "MM/DD/YYYY") & "#" & AndOr
  End If
  If Not Trim(Me.cmboState & " ") = "" Then
    strState = "State = '" & Me.cmboState & "'" & AndOr
  End If
  If Not Trim(Me.cmboCountry & " ") = "" Then
    strCountry = "Country = '" & Me.cmboCountry & "'" & AndOr
  End If
  
  'Use plus to avoid the nulls
  strFilter = strName + strDate + strState + strCountry
  'Get rid of last And or
  If Not strFilter = "" Then
    strFilter = Left(strFilter, Len(strFilter) - Len(AndOr))
  End If
  GetFilter = strFilter
End Function