Contar el número de líneas de un resultado de consulta
Resuelto
angelo2night
-
DALAF -
DALAF -
Bonjour,
Estoy intentando codificar en VBA en Access 2007 una macro que me permita contar el número de filas de un resultado de consulta.
Poseo una tabla en la que extraigo la información deseada a través de una consulta y la muestro.
Lo que no logro hacer es crear un MsgBox que me muestre el número de filas.
RecapChantierEffectue: es el nombre de mi consulta que me permite mostrar la información deseada.
Aquí está mi código que se ejecuta al hacer clic:
Private Sub Commande0_Click()
Dim cpt As Integer
'Ejecución de la consulta
'DoCmd.OpenQuery "Queryname", acReadOnly para permitir al usuario visualizar únicamente
DoCmd.OpenQuery "RecapChantierEffectue", acReadOnly
cpt = DCount("*&, "RecapChantierEffectue")
MsgBox ("Has realizado un total de " & cpt " obras")
End Sub
¡El DCount no funciona! ¡Ayuda por favor!
Configuración: Windows Vista / Firefox 8.0
Estoy intentando codificar en VBA en Access 2007 una macro que me permita contar el número de filas de un resultado de consulta.
Poseo una tabla en la que extraigo la información deseada a través de una consulta y la muestro.
Lo que no logro hacer es crear un MsgBox que me muestre el número de filas.
RecapChantierEffectue: es el nombre de mi consulta que me permite mostrar la información deseada.
Aquí está mi código que se ejecuta al hacer clic:
Private Sub Commande0_Click()
Dim cpt As Integer
'Ejecución de la consulta
'DoCmd.OpenQuery "Queryname", acReadOnly para permitir al usuario visualizar únicamente
DoCmd.OpenQuery "RecapChantierEffectue", acReadOnly
cpt = DCount("*&, "RecapChantierEffectue")
MsgBox ("Has realizado un total de " & cpt " obras")
End Sub
¡El DCount no funciona! ¡Ayuda por favor!
Configuración: Windows Vista / Firefox 8.0
