Mostrar mensagem quando campo consulta não tem o valor procurado

Boa tarde!

Gostaria de uma ajuda no seguinte sentido: criei um formulário atrelado a uma consulta e nesta consulta há um campo que se chama "nome", neste coloquei o seguinte critério: (Como "*" & [Digite o nome que deseja consultar] & "*") para que pudesse pesquisar por qualquer parte do nome, porém quando o nome procurado não existe o formulário abre somente com o pano de fundo, sem nenhum campo.

Gostaria de saber como fazer para que fosse exibida uma mensagem avisando que não há o nome procurado.

Fico no aguardo e agradeço a atenção dos amigos.

Obs.: sou iniciante.

Bom dia, coloque no evento Ao Abrir do formulário

Código:

Private Sub Form_Open(Cancel As Integer)
If Form.RecordsetClone.RecordCount = 0 Then
  MsgBox "Sem registros", vbExclamation, "Atenção"
  DoCmd.Close acForm, "Seu_Formulario"
  Exit Sub
End If
End Sub


Olá Fernando Bueno!

Obrigado pela ajuda. Resolveu o meu problema.

Desculpe não ter agradecido antes, mas foi porque eu fiquei um tento sem acessar devido a problemas particulares.

Abraço.