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!