[Resolvido]Mensagem de registro vazio em consulta via fornulário

Boa tarde,

Preciso fazer uma consulta via formulário, e preciso que a consulta me retorne mesmo eu digitando apenas parte do texto armazenado no registro. Porém preciso que caso não seja encontrado nenhum correspondente, me retorne uma mensagem de registro não encontrado.

Estou utilizando o seguinte código para a consulta:

If txt_pesquisa.Text <> "" Then
       If (IsNull(DLookup("condominio_nome", "qry_consulta_geral", "condominio_nome='" & Me.txt_pesquisa & "'"))) Then
           MsgBox "Cadastro não encontrado!", vbExclamation, "Registro não encontrado"
       Else
           DoCmd.OpenForm "frm_qry_cond", acNormal, , , acFormReadOnly
           DoCmd.Close acForm, "frm_consulta_geral", acSaveYes
       End If
   ElseIf txt_pesquisa.Text = "" Then
       txt_pesquisa.BackColor = RGB(205, 153, 0)
       MsgBox "Insira o nome do condomínio!", vbOKOnly + vbCritical, "Informação necessária"
       txt_pesquisa.SetFocus
   End If

Porém, só consigo executá-la digitando o texto completo. Preciso que ele executa quando eu digite apenas parte do texto armazenado no registro.

Procurei em vários tópicos, mas não achei exatamente o que preciso.

Obrigado

Em qual ação do campo está este código?
Já tentou colocar no Ao Alterar?

Cláudio, bom dia.

Desculpe a demora em responder.

Já tentei sim, o que preciso é que a pesquisa no campo seja feita apenas por parte do texto, devido não haver uma padronização na digitação das informações (o que já foi exaustivamente tentado na empresa, mas sem sucesso).
A ação deve ocorrer no campo condominio_nome da consulta, mas para que retorne a mensagem de registro não encontrado temos que digitar todo o campo.
Somos uma equipe de consultores de negócios, e este banco de dados foi criado para que ninguém entre em contato com condomínios já contactados por outros, por isso a necessidade de utilizar apenas parte do campo.

Obrigado.

Boa noite,
Utilize
If (IsNull(DLookup("condominio_nome", "qry_consulta_geral", "condominio_nome Like '*" & Me.txt_pesquisa & "*'"))) Then

Obrigado Alexandre.

Já havia feito isso, mas devo ter cometido algum erro na sintaxe que não havia funcionado, agora já deu certo.

Grato pela ajuda.

Olá a todos,

Paulo Nogueira, obrigado pelo retorno, os utilizadores do fórum agradecem.

Parece que resolveu, não se esqueça de dar o tópico como resolvido, veja link abaixo como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos
Abraço

Boa noite.
Faltou fechar o tópico.

I'm sorry.
Já fechado.