|
|
Informes : Totales por página
| Autor/es:
Juan M Afán de Ribera | | Pregunta : ¿Cómo puedo conseguir en un informe un campo que calcule solamente el total por cada página, sin acumularlo para la siguiente página, como hace la propiedad Suma continua (RunningSum)? | Respuesta : Puedes emplear un sencillo código y utilizarlo en el evento Print de la sección Detalle del informe.
Supongamos que tenemos en un informe un control llamado "Cantidad" del cual queremos sumar el total por página. También, en el pie de página, habríamos puesto otro control llamado "TotalCantidad", en el cual pretendemos reflejar el total del control "Cantidad" para cada página. Pues bien, en el evento Al imprimir (Print) de la sección Detalle del informe, pondríamos este código: | ' variable para controlar el número de página
Static pag As Long
' si se ha cambiado de página
If pag <> Page Then
' actualizamos el número de página en
' nuestra variable
pag = Page
' borramos el contenido anterior
' del control TotalCantidad
Me.TotalCantidad = Null
End If
' sumamos el total usando Nz para evitar los nulos
Me.TotalCantidad = Nz(Me.TotalCantidad) + Nz(Me.Cantidad)
| Sencillo, ¿no?
;-) | Ejemplos: | Temas relacionados: |
|
