[Resolvido]Formulário de Filtro para Gerar Relatório

Prezados Experts!

Desenvolvi, finalmente, quase a totalidade do sistema do meu escritório.

Estou tendo dificuldade apenas com a geração de relatórios.

Consigo gerar o relatório do cadastro atual etc..

O que eu gostaria de fazer é o seguinte:

Abrir um formulário "Gerenciador de Relatórios"
Onde neste formulário vão possuir 4 combobox desvinculadas, com textos digitados por mim.
ID1 = Cliente
ID2 = Conta
ID3 = Situação da Diligência
ID4 = Situação do Pagamento.


OBS: no relatório os nomes são os mesmos (IDx)

Gostaria de selecionar as combobox que desejasse e apertar no botão para criar o relatório a partir da seleção.

Por exemplo:

Cliente: Fulano de tal
Conta: Administrativo
Situação da Diligência: Vazio
Situação do Pagamento: Pendente

Então ele abriria o relatório com todas as diligências solicitadas para Fulano de Tal na conta Administrativo, com qualquer situação de diligência e com pagamento pendente.

Acredito que fui o mais claro possível!

tentei adaptar o modelo do avelino em outro tópico e não consegui...
Segue o modelo proposto, com a tentativa de adaptação:
dim filtro as string
filtro = ""
If Not IsNull(ID1) Then filtro = "ID1 = '" & Me!ID1 & "'"
If Not IsNull(ID2) Then filtro = "ID2 = '" & Me!ID2 & "'"
If Not IsNull(ID3) Then filtro = "ID3 = '" & Me!ID3 & "'"
If Not IsNull(ID4) Then filtro = "ID4 = '" & Me!ID4 & "'"
If InStr(filtro, "AND") = 2 Then filtro = Mid(filtro, 6)



Agradeço!

Não seria:

dim filtro as string
filtro = ""
If Not IsNull(ID1) Then filtro = "Cliente = '" & Me!ID1 & "'"
If Not IsNull(ID2) Then filtro = "Conta = '" & Me!ID2 & "'"
If Not IsNull(ID3) Then filtro = "[situação de diligência] = '" & Me!ID3 & "'"
If Not IsNull(ID4) Then filtro = "[Situação de pagamento] = '" & Me!ID4 & "'"
If InStr(filtro, "AND") = 2 Then filtro = Mid(filtro, 6)

Aguardamos

Avelino, os nomes dos campos foram renomeados para ID também!

Não consegui!

abçs

Pessoal, consegui resolver aplicando previamente um filtro no formulário aberto e posteriormente abrindo o relatório com Me.Filter na função where.

Abraços!