** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - REPORTES: Papel pijama en informes
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoREPORTES: Papel pijama en informes

 Responder Responder
Autor
Mensaje Invertir el orden de clasificación
admin Ver desplegable
Administrador
Administrador
Avatar

Unido: 14/Agosto/2013
Localización: Cualquier lugar
Estado: Sin conexión
Puntos: 790
Enlace directo a este mensaje Tema: REPORTES: Papel pijama en informes
    Enviado: 14/Agosto/2013 a las 20:49
Emilio Sancha 2004

Esta es una rutina para crear el clasico efecto "papel pijama" en los informes.

'*******************************************************************************

'* PapelPijama

'* cambia el color de registros alternos de un informe

'* Argumentos:

'* uso: Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)

'*      PapelPijama

'*      End Sub

'* ESH 04/11/04 13:49

'*******************************************************************************

 

 

Sub PapelPijama()

    Const VerdeClaro = 11645283

   

    On Error GoTo PapelPijama_TratamientoErrores

   

    If Me.CurrentRecord Mod 2 = 0 Then

        Me.Section(acDetail).BackColor = VerdeClaro

    Else

        Me.Section(acDetail).BackColor = vbWhite

    End If

   

PapelPijama_Salir:

    On Error GoTo 0

    Exit Sub

   

PapelPijama_TratamientoErrores:

   

    MsgBox "Error " & Err.Number & " en proc.: PapelPijama de Documento VBA: Report_Aplicaciones (" & Err.Description & ")"

    GoTo PapelPijama_Salir

   

End Sub         ' PapelPijama

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable