Access y VBA - Recuento de valores de campo distintos

Recuento de valores de campo distintos

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86065
Fecha de impresión: 23/Mayo/2022 a las 13:24

Tema: Recuento de valores de campo distintos

Publicado por: JoseMorales
Asunto: Recuento de valores de campo distintos
Fecha de publicación: 19/Junio/2021 a las 12:59

Hola,

he creado un informe y deseo que al pie realice recuentos.

El informe esta basado en una consulta que realiza un filtro en una tabla.

El recuento de las líneas que imprime el informe se realiza, pero quiero también que haga el recuento de los valores distintos de un campo.

He programado una función en VBA, que recuenta perfectamente los valores distintos de una tabla externa, pero no consigo que recuente los campos distintos del informe.

Public Function Contar() As Long

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("Select distinct NombreCampo from NombreConsulta")

rs.MoveLast

rs.MoveFirst

'MsgBox rs.RecordCount

Contar = rs.RecordCount

End Function

En NombreConsulta puedo poner una tabla o una consulta, si pongo la consulta en la que se basa el informe me da error, supongo que le tendría que pasar el valor que pongo para el filtro.

La función me funciona, pues si coloco otra consulta que no hace ningún filtro, realiza el recuento que deseo perfectamente.

Gracias de antemano.

Jose Morales.

Respuestas:

Publicado por: hipromark
Fecha de publicación: 20/Septiembre/2021 a las 03:23

Pues debería funcionarte, si creas un query usando el SELECT DISTINCT, antes de crear el informe, verás que lo hace perfectamente, pero recuerda que los informes tienen varios niveles, como contenido, pie de página y pie de informe, tal vez estás poniendo tu campo en el pie de página en lugar del pie de informe.

Publicado por: pitxiku
Fecha de publicación: 20/Septiembre/2021 a las 12:55

Otra posibilidad, siempre y cuando se pueda, es crear una agrupación en el informe por el campo que quieres contar. En el encabezado de la agrupación colocas un cuadro de texto cuyo origen de control sea =1, y en su propiedad Suma continua pones el valor Sobre todo. Con esto te ira contando las agrupaciones, y en el pie del informe podrás usarlo para indicar el número.

Cuando veas que todo va bien, puedes ocultar el encabezado de la agrupación si no quieres verla.