Registros totales

[Laufwerk]

Hola amigos
Estoy usando un formulario continuo con el que tengo dos listbox que utilizo para filtrar la info.
En el pie del formulario tengo una etiqueta de registros totales y quiero que cada vez que se cambia alguno de los dos filtros me recalcule los registros totales de la consulta.
Este es el evento de mi 1r filtro

Código:

Private Sub lstbxEstados_Change()
    Call filtrarRegistros
End Sub

este el evento del segundo filtro

Código:

Private Sub lstbxSites_Change()
    Call filtrarRegistros
End Sub

y esta la funcion filtrarRegistros

Código:

Private Sub filtrarRegistros()
    If IsNull(Me.lstbxEstados.Value) Then
        Me.lstbxEstados.Value = 0
    End If
    
    If Me.lstbxEstados.Value <> 0 Then
        Me.Filter = "id_site = " & Me.lstbxSites.Value & " AND id_estado_elemento = " & Me.lstbxEstados.Value
        Me.FilterOn = True
    Else
        Me.Filter = "id_site = " & Me.lstbxSites.Value
        Me.FilterOn = True
    End If
    ' Actualizamos los registros
    Call registrosTotales
End Sub

Como podeis ver, al final de esta llamo a la funcion registrosTotales que hace lo siguiente:

Código:

Private Sub registrosTotales()
    Me.lblRegistrosTotales.Caption = Me.Recordset.RecordCount
End Sub

Inicialmente no me coje bien el total y cada vez que cambio a veces funciona y a veces no, por lo que me decidí a crear un boton en el pié del formulario que actualizara la etiqueta de registros totales.

Este es el evento del boton actualizar

Código:

Private Sub cmdActReg_Click()
    Call registrosTotales
End Sub

Resulta ser, que necesita un tiempo de espera para recalcular los registros totales. Que puedo hacer al respecto? cómo lo solucionaríais?


Gracias!