[Resolvido]Como criar uma consulta de duas caixas de combinação vinculadas

Olá pessoal,
Estou com um problema no meu bd, pois quero emitir um relatório selecionando duas caixas de combinação vinculadas. Ao clicar em uma aparecem as opções vinculadas da outra. O objetivo é criar um relatório onde apareça somente o resultado selecionado (no caso das caixas Cargo e Área de Atividade - como por exemplo, quero o número de cadastros que são Analistas Judiciários da Área de Atividade Administrativa). Isto deveria estar definido na consulta que gera o relatório, mas quando clico para exibir o relatório, o mesmo sai em branco... Agradeço a ajuda!

Fábio Santana

Boa noite,
Tem-se abordado várias vezes o assunto de "combos em cascata". Procure e adapte

Prezado Alexandre,

Busquei um tópico que tinha o código que implementei abaixo. Fiz as alterações abaixo mas ele diz que não consegue "achar" o relatório. Veja abaixo...

Private Sub cmdExibir_click()

Dim strFiltro As String
strFiltro = ""
If Len(cboCargo & "") > 0 Then strFiltro = " and Cargo='" & cboCargo & "'"
If Len(cboAreaDeAtividade & "") > 0 Then strFiltro = strFiltro & " and Área_de_Atividade=#" & cboAreaDeAtividade & "#"
If Len(strFiltro) > 0 Then strFiltro = Mid(strFiltro, 16)
DoCmd.OpenReport "RelCargo", , , strFiltro

End Sub

Boa tarde,
Confirme se o relatório existe
- utilize apenas DoCmd.OpenReport "RelCargo"

Fiz a alteração, mas o relatório está retornando todos os resultados. Será que há erro nos if's?? Se eu fizer a consulta que puxe os dados de cargo e área de atividade do form relatórios ele não vai funcionar?

É assim que despista o erro. Neste caso, o relatório abre; assim, o erro está no filtro

Prezados,

Já resolvi o problema, com a ajuda do Mestre Avelino, que me propôs a seguinte alteração:

Dim filtro As String
filtro = ""
If Not IsNull(me!cboCargo) Then filtro = filtro & "Cargo LIKE '*" & me!cboCargo & "*'"
If Not IsNull(me!cboAreaDeAtividade) Then filtro = filtro & " AND ÁreaDeAtividad LIKE '*" & Me!cboAreaDeAtividade & "*'"
If InStr(filtro, "AND") = 2 Then filtro = Mid(filtro, 6)

DoCmd.OpenReport "RelCargo", acViewPreview, , FILTRO

Muito obrigado a todos.