[Resolvido]Consulta baseada em Caixa de Combinação com critérios

Olá pessoal, tudo bem!

Tenho uma consulta baseada na caixa de combinação NomeDoenca que está no formulário ConsultaForm.

O que eu não estou conseguindo é o seguinte:
-Gostaria que, no caso do usuário selecionar a opção "TODOS" ou não selecionar nada, a consulta retornar todos os registro do campo desejado.

Espero ter me expressado adequadamente.

Desde já agradeço!

Boas Erisson

Ao selecionar Todos, a consulta entenderá a palavra "Todos" como um tipo de doença.

Crie uma Caixa Texto e no evento após atualizar da combo lance nesta o nome da doença

Me.SuaCaixaTexto = Me.SuaCombo.Column(x), onde x é a coluna onde está o nome da doença

E uma cláusula if para a palavra Todos ficando algo assim:

If Me.SuaCombo.Column(x) = "Todos" Then
Me.SuaCaixaTexto = Null
Else
Me.SuaCaixaTexto = Me.SuaCombo.Column(x), onde x é a coluna onde está o nome da doença
End If

Na consulta referencia a Caixa texto em criterios

Como Forms!SeuForm!SuaCaixaTexto


Um requery no form ou onde está aplicado a consulta.


Cumprimentos.

Piloto, desde logo agradeço a sua atenção.

Vê se eu fiz algo errado, pois não deu certo.

. Eu criei uma caixa de texto, chamada Doenca
. No evento Após atualizar da caixa de combinação coloquei o código:

Código:

Private Sub NomeDoenca_AfterUpdate()

Me.doenca = Me.NomeDoenca.Column(0)

If Me.NomeDoenca.Column(0) = "Todos" Then
    Me.doenca = Null
Else
    Me.doenca = Me.NomeDoenca.Column(0)
End If


End Sub

. E por fim, na consulta coloquei como referência a minha nova caixa de texto Doenca

Código:

[Formulários]![ConsultaForm]![Doenca]

Só que quando seleciono alguma doênça dar certo, porém quando seleciono a "Todos" a consulta não retorna nada.

no Critério da Consulta, além do critério:

Código:

[Formulários]![ConsultaForm]![Doenca]

coloquei no critério OU, o código?

Código:

[Formulários]![ConsultaForm]![Doenca]É Nulo

Valeu Pela Dica!!!

tesnte assim:


Como [Formulários]![ConsultaForm]![Doenca] & "*"

Maravilha Piloto, deu muito certo.

Obrigado. Você ajudou muito!

O Fórum agradece o Retorno.

So faltou o resolvido, desta vez eu coloco.

Cumprimentos.