Contagem de registros em Caixa de Listagem

Boa tarde mestres,


Tenho um banco no qual fiz um formulário de pesquisa com os seguintes nomes:

No formulário: Pesquisa na Caixa de listagem nomeada como: Lista82

Outro comando para pesquisar os dados desta caixa de listagem:

Caixa de texto nomeada como: txtLocaliza a qual está com a propriedade "Após atualizar"

No comando após atualizar está o VBA:

   Me.Lista82.Requery
   Me.Refresh
   Me.Comando84.SetFocus


Só que eu que incrementar na Caixa de listagem a contagem do número de registros apresentados.
Caso na pesquisa não fosse apresentado nenhum dados correspondente me apresentasse a msgbox "Não há registros que correspondam a pesquisa atual" se não fosse coincidente com os dados da caixa de listagem.

tentei assim: (Mas não deu certo)

If Lista82.ListCount = 0 Then
   MsgBox "Nenhum registro corresponde a pesquisa atual...", vbOKOnly + vbInformation, "Sem Resultados"
   Me.Comando4.SetFocus

Else

   Me.Lista82.Requery
   Me.Refresh
   Me.Comando84.SetFocus

End If

End Sub

O grande problema é que não estou conseguindo associar o 1º If ao comando ListCount da Lista82.

Alguém pode me ajudar.

Envio o arquivo só para alguma análise necessária no código.

Obrigado a todos.

Cole este código no evento ao alterar da caixa de texto localizartexto

If SubForm.Form.RecordsetClone.RecordCount = 0 Then
MsgBox "Não há registros que correspondam a pesquisa atual.", vbExclamation, "Erro!!!"
Exit Sub
End If

Colega cláudio, tudo bom?
usei o código que me passou e aconteceu um erro:

Erro em tempo de execução '424'
" o objeto é obrigatório"

não entendi o Erro.

Esta linha de comando ficou amarela:

If SubForm.Form.RecordsetClone.RecordCount = 0 Then

Em que formulário acontece isso?
Eu fiz no Pesquisa avançada e funcionou normalmente.

Cláudio,

Desculpe o engano amigo. Perdão.

Era no formulário: "Pesquisa" Nesta contém uma caixa de listagem e não Subformulário.

Mas com este equívoco, surtiu uma outra dúvida, se me permite.
Bom, não deixa de ser ótimo para o aprendizado.

No Formulário "Pesquisa Avançada" onde "encaixaria o código" que me passou?

Tenho este código já na propriedade (Ao alterar)

Private Sub localizartexto_Change()

Dim C As String, X As String
X = Me.localizartexto.Text
C = " where Cod like '*" & X & "*' or Objeto like '*" & X & "*' or autuação like '*" & X & "*' or situação like '*" & X & "*' or Localização like '*" & X & "*' or Destino like '*" & X & "*'"
Me.SubForm.Form.RecordSource = "select * from Dados" & C
'tabela
'Me.Form.RecordSource = " select * from pagar" & C

End Sub


tentei ante e depois mas sem êxito.