[Resolvido]Filtrar relatório com um ou mais ComboBox

Olá,

Tenho o form abaixo, e ele tem 3 combos de pesquisa (cmbCorretor, cmbStatus, e cmbStatusDet)




Eu tenho o seguinte AFTER UPDATE de cada combo:

Código:

Private Sub cmbCorretor_AfterUpdate()
Me.RecordSource = "SELECT processo.NumProc, processo.NumCliente, processo.Corretor, processo.observações, processo.STATUSgeral, processo.DataStatusG, processo.StatusSub, processo.DataSub, clientes.Nome FROM clientes INNER JOIN processo ON clientes.NumCliente = processo.NumCliente WHERE (processo.Corretor = forms!cst_procs![cmbCorretor]) ORDER BY clientes.Nome, processo.Corretor, processo.STATUSgeral, processo.StatusSub"
End Sub

Private Sub cmbStatus_AfterUpdate()
Me.RecordSource = "SELECT processo.NumProc, processo.NumCliente, processo.Corretor, processo.observações, processo.STATUSgeral, processo.DataStatusG, processo.StatusSub, processo.DataSub, clientes.Nome FROM clientes INNER JOIN processo ON clientes.NumCliente = processo.NumCliente WHERE (processo.STATUSgeral = forms!cst_procs![cmbStatus]) ORDER BY clientes.Nome, processo.Corretor, processo.STATUSgeral, processo.StatusSub"
End Sub


Private Sub cmbStatusDet_AfterUpdate()
Me.RecordSource = "SELECT processo.NumProc, processo.NumCliente, processo.Corretor, processo.observações, processo.STATUSgeral, processo.DataStatusG, processo.StatusSub, processo.DataSub, clientes.Nome FROM clientes INNER JOIN processo ON clientes.NumCliente = processo.NumCliente WHERE (processo.StatusSub = forms!cst_procs![cmbStatusDet]) ORDER BY clientes.Nome, processo.Corretor, processo.STATUSgeral, processo.StatusSub"
End Sub

Porém, ele pesquisa apenas pelo combo que eu alterar.

Eu gostaria de, por exemplo, selecionar o primeiro (ele vai filtrar o corretor) e depois o segundo combo (ele vai selecionar o status, dentre os resultados anteriores, daquele corretor).
Gostaria de, se eu limpar apenas um campo, ele refaça a pesquisa, de acordo com o que estiver preenchido.

Tentei fazer com If mas deu tudo errado.
Pesquisei um modelo aqui no forum, mas nao consegui fazer funcionar também..

Será que alguém consegue me ajudar?

Ana, estude a lógica aplicada, corrija e adapte se for necessário

Código:

Private Sub cmbCorretor_AfterUpdate()
    call fncMontaRecordSourceAvaliandoSePrecisaWhere
End Sub

Private Sub cmbStatus_AfterUpdate()
    call fncMontaRecordSourceAvaliandoSePrecisaWhere
End Sub

Private Sub cmbStatusDet_AfterUpdate()
    call fncMontaRecordSourceAvaliandoSePrecisaWhere
End Sub

Private Sub fncMontaRecordSourceAvaliandoSePrecisaWhere()

    dim strParteDoSelect as string
    dim strParteDoFrom as string
    dim strParteDoWhere as string
    dim strParteDoOrderBy as string

    'montando a parte do select, afinal, ela é fixa
    strParteDoSelect = "SELECT processo.NumProc, processo.NumCliente, processo.Corretor, processo.observações, processo.STATUSgeral, processo.DataStatusG, processo.StatusSub, processo.DataSub, clientes.Nome"

    'montando a parte do from, afinal, ela é fixa
    strParteDoFrom = "FROM clientes INNER JOIN processo ON clientes.NumCliente = processo.NumCliente"

    'montado a parte do order by, afinal, ela é fixa
    strParteDoOrderBy = "ORDER BY clientes.Nome, processo.Corretor, processo.STATUSgeral, processo.StatusSub"

    'agora farei avaliações para saber se preciso montar o where
    'deixarei fixo o operador de AND para juntar os filtros

    'se a combo Corretor não estiver vazia então
    if nz(forms!cst_procs![cmbCorretor]) <> "" then
        'adicionarei o filtro para esta combo
        strParteDoWhere = strParteDoWhere & " AND processo.Corretor = forms!cst_procs![cmbCorretor]"
    end if

    'se a combo Status não estiver vazia então
    if nz(forms!cst_procs![cmbStatus]) <> "" then
        'adicionarei o filtro para esta combo
        strParteDoWhere = strParteDoWhere & " AND processo.STATUSgeral = forms!cst_procs![cmbStatus]"
    end if

    'se a comboStatusDet não estiver vazia então
    if nz(forms!cst_procs![cmbStatusDet]) <> "" then
        'adicionarei o filtro para esta combo
        strParteDoWhere = strParteDoWhere & " AND processo.StatusSub = forms!cst_procs![cmbStatusDet]"
    end if

    'se em algum momento o where foi montado então
    if strParteDoWhere <> "" then

        'terminarei de montar essa parte
        'para isso, retirarei o primeiro AND, isto é, considerarei da variável somente o que houver a partir do sexto caractere
        'afinal, essa cláusula não é montada como "where AND filtro1... mas sim, where filtro1 AND filtro2...
        strParteDoWhere = mid(strParteDoWhere, 6)
        'adicionarei o where inicial
        strParteDoWhere = "where" & " " & strParteDoWhere

        'agora juntarei tudo
        me.recordsource = strParteDoSelect & " " & strParteDoFrom & " " & strParteDoWhere & " " & strParteDoOrderBy

    else 'senão, ou seja, se o where não foi montado em por combo nenhuma
   
        'juntarei tudo
        me.recordsource = strParteDoSelect & " " & strParteDoFrom & " " & strParteDoOrderBy

    end if

End Sub

Tentei do jeito acima e não deu certo. Consegui colocando um monte de IFs e um botão para com uma função para filtrar após preencher as combo... funcionou!

Código:

Private Function filtrar()

'corretor apenas
If Not IsNull(Me.cmbCorretor) Then
If IsNull(Me.cmbStatus) And IsNull(Me.cmbStatusDet) Then
Me.RecordSource = "SELECT processo.NumProc, processo.NumCliente, processo.Corretor, processo.observações, processo.STATUSgeral, processo.DataStatusG, processo.StatusSub, processo.DataSub, clientes.Nome FROM clientes INNER JOIN processo ON clientes.NumCliente = processo.NumCliente WHERE (processo.Corretor = forms!cst_procs![cmbCorretor]) ORDER BY clientes.Nome, processo.Corretor, processo.STATUSgeral, processo.StatusSub"
End If
End If

'status apenas
If Not IsNull(Me.cmbStatus) Then
If IsNull(Me.cmbCorretor) And IsNull(Me.cmbStatusDet) Then
Me.RecordSource = "SELECT processo.NumProc, processo.NumCliente, processo.Corretor, processo.observações, processo.STATUSgeral, processo.DataStatusG, processo.StatusSub, processo.DataSub, clientes.Nome FROM clientes INNER JOIN processo ON clientes.NumCliente = processo.NumCliente WHERE (processo.STATUSgeral = forms!cst_procs![cmbStatus]) ORDER BY clientes.Nome, processo.Corretor, processo.STATUSgeral, processo.StatusSub"
End If
End If

'status detalhe apenas
If Not IsNull(Me.cmbStatusDet) Then
If IsNull(Me.cmbCorretor) And IsNull(Me.cmbStatus) Then
Me.RecordSource = "SELECT processo.NumProc, processo.NumCliente, processo.Corretor, processo.observações, processo.STATUSgeral, processo.DataStatusG, processo.StatusSub, processo.DataSub, clientes.Nome FROM clientes INNER JOIN processo ON clientes.NumCliente = processo.NumCliente WHERE (processo.StatusSub = forms!cst_procs![cmbStatusDet]) ORDER BY clientes.Nome, processo.Corretor, processo.STATUSgeral, processo.StatusSub"
End If
End If

'corretor e status
If Not (IsNull(Me.cmbCorretor) And IsNull(Me.cmbStatus)) Then
If IsNull(Me.cmbStatusDet) Then
Me.RecordSource = "SELECT processo.NumProc, processo.NumCliente, processo.Corretor, processo.observações, processo.STATUSgeral, processo.DataStatusG, processo.StatusSub, processo.DataSub, clientes.Nome FROM clientes INNER JOIN processo ON clientes.NumCliente = processo.NumCliente WHERE (processo.Corretor = forms!cst_procs![cmbCorretor]) and (processo.STATUSgeral = forms!cst_procs![cmbStatus]) ORDER BY clientes.Nome, processo.Corretor, processo.STATUSgeral, processo.StatusSub"
End If
End If

'corretor e status detalhe
If Not (IsNull(Me.cmbCorretor) And IsNull(Me.cmbStatusDet)) Then
If IsNull(Me.cmbStatus) Then
Me.RecordSource = "SELECT processo.NumProc, processo.NumCliente, processo.Corretor, processo.observações, processo.STATUSgeral, processo.DataStatusG, processo.StatusSub, processo.DataSub, clientes.Nome FROM clientes INNER JOIN processo ON clientes.NumCliente = processo.NumCliente WHERE (processo.Corretor = forms!cst_procs![cmbCorretor]) and (processo.StatusSub = forms!cst_procs![cmbStatusDet]) ORDER BY clientes.Nome, processo.Corretor, processo.STATUSgeral, processo.StatusSub"
End If
End If

'status e status detalhe
If Not (IsNull(Me.cmbStatus) And IsNull(Me.cmbStatusDet)) Then
If IsNull(Me.cmbCorretor) Then
Me.RecordSource = "SELECT processo.NumProc, processo.NumCliente, processo.Corretor, processo.observações, processo.STATUSgeral, processo.DataStatusG, processo.StatusSub, processo.DataSub, clientes.Nome FROM clientes INNER JOIN processo ON clientes.NumCliente = processo.NumCliente WHERE (processo.STATUSgeral = forms!cst_procs![cmbStatus]) and (processo.StatusSub = forms!cst_procs![cmbStatusDet]) ORDER BY clientes.Nome, processo.Corretor, processo.STATUSgeral, processo.StatusSub"
End If
End If

End Function