ms-access - formulario - cuadros combinados en cascada excel

¿Cómo se filtra un subformulario de acceso con varios cuadros combinados en el formulario?

Question

Tengo varios cuadros combinados en mi formulario (acct_nbr, type, team_aud). Estoy buscando una forma de filtrar el subformulario (como una hoja de datos) en función de la selección de cada cuadro combinado. Si no se utiliza un cuadro combinado en el filtro, los datos del subformulario simplemente se filtran en los otros dos cuadros combinados.

Esto es lo que tengo hasta ahora:

Private Sub cboAccountFilter_AfterUpdate()
    Call FilterSubform
End Sub

Private Sub cboTypeFilter_AfterUpdate()
    Call FilterSubform
End Sub

Private Sub txtTeamAuditorFilter_AfterUpdate()
    Call FilterSubform
End Sub

Private Sub FilterSubform()
    Dim strWhere As String

    If Nz(Me.cboAccountFilter, "") <> "" Then
        strWhere = strWhere & "[acct_nbr] = ''" & Me.cboAccountFilter & " '' AND "
    End If

    If Nz(Me.cboTypeFilter, "") <> "" Then
        strWhere = strWhere & "[Type] = ''" & Me.cboTypeFilter & " '' AND "
    End If

    If Nz(Me.txtTeamAuditorFilter, "") <> "" Then
        strWhere = strWhere & "[team_aud] = ''" & Me.txtTeamAuditorFilter & " '' AND "
    End If

    If strWhere <> "" Then
        strWhere = Left(strWhere, Len(strWhere) - 5)
        Me.fsubStatsDashPrimarySix.Form.Filter = strWhere
        Me.fsubStatsDashPrimarySix.Form.FilterOn = True
    Else
        Me.fsubStatsDashPrimarySix.Form.Filter = ""
        Me.fsubStatsDashPrimarySix.Form.FilterOn = False
    End If
End Sub

No recibo un error cuando hago clic en uno de los cuadros combinados, pero se filtran todos los datos.

Answer 1

Cambia tus filtros a esto:

If Nz(Me.cboAccountFilter, "") <> "" Then
    strWhere = strWhere & "[acct_nbr] = ''" & Trim(Me.cboAccountFilter) & "'' AND "
End If

If Nz(Me.cboTypeFilter, "") <> "" Then
    strWhere = strWhere & "[Type] = ''" & Trim(Me.cboTypeFilter) & "'' AND "
End If

If Nz(Me.txtTeamAuditorFilter, "") <> "" Then
    strWhere = strWhere & "[team_aud] = ''" & Trim(Me.txtTeamAuditorFilter) & "'' AND "
End If

Editar:

Según su comentario, creo que sería:

strWhere = strWhere & "[team_aud] LIKE *''" & Trim(Me.txtTeamAuditorFilter) & "''* AND "

(Intenté dejar eso como un comentario, pero los asteriscos se interpretaron como letra cursiva debido al lenguaje de marcado de SO).