[Resolvido]atualização com 3 paramentros (compare + ListCount)

Olá a todos do fórum

Estou com seguinte situação:

Tenho uma caixa de listagem chamada [ListaClass] que atualiza entrada de nomes;

Tenho uma caixa (compare) de texto que recebe no campo valor padrão o seguinte: =[ListaClass].[ListCount]

A caixa de listagem vem de uma consulta que recebe todos o nomes que são lançados e que é atualizado no evento timer: Me.ListaClass.requery

A questão é a seguinte: a consulta que alimenta a caixa de listagem é alimentada por um form e esvaziada por outro.

Só que a caixa de texto (compare) continua exibindo o valor em sequencia sem esvaziar?

Alguém aponta uma solução, lembrando que estou usando a seguinte rotina:

Me.ListaClass.Requery
Me.compare.Requery
If Me.ListaClass.ListCount > CLng(compare.Value) Then
Me.compare.Value = Me.ListaClass.ListCount
SomPreto
SomPreto
MsgBox "Existe usuário aguardando! "vbOKOnly"
Me.ListaClass.Requery

Me.compare.Value = Me.ListaClass.ListCount

Me.ListaChatPosto.Requery

End If

Olá a todos

Resolvi o problema da seguinte maneira:
#atualizar contador em caixa de texto baseada em listbox


Private Sub Form_Timer()
Dim lngItens As Long
>>aqui manda contar os itens da listbox e define a caixa de texto com o valor da listbox
lngItens = ListaClass.ListCount
compare = lngItens
>>aqui atualiza a listbox
Me.ListaClass.Requery
>>aqui compara a lisbox com a caixa de texto
If Me.ListaClass.ListCount > CLng(compare.Value) Then
>>aqui chama aviso sonoro
SomPreto
SomPreto
>>aqui chama msgbox
MsgBox "Existe paciente aguardando classificação! ", vbOKOnly, " i-PROnto"
>>aqui encerra o bloco If (se: condição)
End If
>>aqui encerra o código
End Sub

Sem: =[ListaClass].[ListCount] na caixa de texto


É isso aí espero ter contribuído com o fórum
Depois anexarei o exemplo
Sucesso a todos