Contar el nº de filas de un listbox vba
a tod@s.
Tengo un listbox llamado FILTADOPORCODIGO, después de hacer un filtrado por SQL, nos muestra un resultado en dicho listbox, con diferentes ítems, quisiera contarlos y no se como.
Atención estoy utilizando el listbox en Access... Estoy atascado.
1 Respuesta
El Nombre lo interpreto como > FILTRAPORCODIGO.
En un Evento que ya debes de tener, y después de ese filtrado que comentas:
Dim I As Integer, Filas As Integer
For I = 0 To FILTRAPORCODIGO.ListCount – 1
If FILTRAPORCODIGO.List(I, 0) <> "" Then
Filas = Filas + 1
End If
Next I
MsgBox "Se han encontrado: " & Filas & " Filas"
‘Y si las quieres Guardar en algún TextBox, que puedes llamar TxtNumFilas, estando en ‘el Formulario
Me.TxtNumFilas.Value = Filas
Mis saludos >> Jacinto
Hola Jacinto.
Primero darte las gracias de antemano.
A la hora de ejecutar tu código, me genera un error o aviso, se tinta de rojo la propiedad .List, y el mensaje es "No se encontró el método o el dato miembro"
If FILTRAPORCODIGO.List(I, 0) <> "" Then
He ido al examinador de objetos, buscando Access, Listbox y como miembros aparecen ListCount, ListIndex.ListItemsEditForm...echando en falta List.
Tengo que activar alguna librería o referencia o....?
Necesito de tu ayuda...vamos.
S2 y gracias por tu tiempo.
La línea .. List(I, 0) es una Matriz que analizando tu pregunta veo que no necesitas, porque además faltaba declararla.
Simplifica el Código así:
Dim Filas As Integer
Filas = Me.FILTRAPORCODIGO.ListCount
MsgBox "Se han encontrado: " & Filas & " Filas"
'Y si las quieres Guardar en algún TextBox, que puedes llamar TxtNumFilas, estando en ‘el Formulario
Me.TxtNumFilas.Value = Filas
Espero no tengas dificultades y disculpa la ligereza primera al leer tu pregunta. Saludos >> Jacinto
