[Resolvido]Mostrar uma mensagem quando a consulta não obter resultado

Bom dia Galera do MA!!!!

Tenho uma dúvida bem simples e gostaria muito da atenção de voces para me ajudar a esclarece-la.

tenho uma consulta com critério de parâmetro como&+[Digite o nome ou o número do cpf para pesquisar]+&, porém algumas vezes não encontra os dados, pois não existem. Não existe nada de errado na consulta. Porém o formulário que me apresentado vem apenas o Cabeçalho.
E o modelo de formulário adotado por mim oferece os comandos numa barra lateral.

POR FAVOR ME AJUDEM COM ESSA DUVIDA, CREIO QUE NÃO É DIFICIL, PROCUREI POR INFORMAÇÕES NO SITE MAIS NÃO ENCONTREI.

SEGUE UM MODELO DO LAYOUT

OBRIGADO E ESPERO O RETORNO

Olá

Meus conhecimentos são muito pequenos.
Mas não seria o caso de usar algo assim:

If Nz(DCount("*", "SuaConsulta")) > 0 Then
'Faça isto
Else
MsgBox "Esta consulta é nula!!!", vbInformation, "Aviso"
End If

Abraços

Boa sorte!!!

Luiz Gustavo

Luiz, os códigos que vc me passou, mesmo que ainda não testei, creio que vão funcionar. Porém, queria ser mais específico:
ACHO MAIS FACIL EXPLICAR EXEMPLIFICANDO:
Tenho uma consunta que consulta pelo nome ou cpf, atravez do valor de parâmetro.
tenho numa tabela relacionada a esta consulta o JOAQUIM, JOÃO, JOSÉ.
Crio uma macro, um botão, pra acionar a consulta e ai digito MARIA.
como se sabe não vai aparecer nenhum resultado, pois maria não está cadastrada, e lembrando ainda que todos os meus comandos estão na lateral esquerda, ficarei sem ação e terei que fechar meu formulário e reabri-lo.

O QUE EU PRETENDO:
Ao digitar MARIA, após o sistema fazer a busca e não encontrar nenhum resultado, abrisse um formulário assim: "Não foram encontrados registros para seus parâmetros" e dois botões: [Refazer Consulta] e [Cancelar].

AGUARDO RESPOSTA, E QUANDO EU TESTAR SEUS CÓDIGOS, LUIZ, POSTO O RESULTADO. MAIS SE PUDER, ME AJUDE NESSE MODELO CITADO

Continue na idéia do Luiz:

If Nz(DCount("*", "SuaConsulta")) > 0 Then

'Faça isto

Else

MsgBox "Deseja refazer a consulta?" vbYesNo

If vbYes Then

'Abre a consulta denovo

Else

'Volta ao início

End If

End If

End Sub

Tenho a impressão que o complemento do Amigo Leandro vai de encontro as suas necessidades.

Boa Sorte

Luiz Gustavo

Bom DIa galera!!!

Testei os códigos, não sei se fiz algo errado, porém na consulta sempre reporta um erro, não que oo código esteja errado, mais uma frase mais ou menos assim: Os critérios "Digite aqui para pesquisar" apresentaram um erro.

Coloquei esse código em Ao Carregar Formulário, e tentei também no Botão que executa a consulta.

Alguma ideia???

Como disse anteriormente, meus conhecimentos são limitados, mas se trancrever aqui, seu código, talvez possa contribuir de alguma forma.

Eu não entendi o que pretende;

Se for num botão, para verificar se a consulta tem registros;

Private Sub SeuBotão_Click()
If DCount("*", "SuaConsulta") = 0 Then
MsgBox "Não existem registros..."
Exit Sub
Else
MsgBox "Tem Registros..."
End If
End Sub

Se for para não abrir o formulario, se não tem registros;


Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "não há registros..."
Cancel = True
End If
End Sub

Passa a resolvido por falta de retorno do autor.