Newsgroup: it.comp.appl.access
Titolo: Formattazione di un report con righe alternate

Buonasera a tutto il NG,
Ho un report con un'elenco in ordine alfabetico, vorrei( l'ho visto su un
testo di A2000, ma non ho capito come si fà), ne corpo del report alterbare
le righe dove compaiono i dati di colori diversi, tipo bianco e grigio...
Spero di aver reso l'idea.
Grazie anticipatamente ed un saluto a tutto il NG.
Lucio

 Spero di aver reso l'idea.
Devi usare l'evento SuFormattazione e cambiare da codice il background
alternado i colori.
Sib

 ha scritto nel messaggio
news:P8fy9.80261$aL4.2...@news1.tin.it...

Ti allego il codice direttamente così si fa prima................!
Option Compare Database
Option Explicit
Private mfGray As Boolean
Private Sub AlternateGray()
    ' If the current section is to be printed in gray,
    ' then set the BackColor property for the section.
    ' This works only because the controls on the section
    ' are all set to be transparent.
    Me.Section(acDetail).Backcolor = IIf(mfGray, vbMenuBar, vbWhite)
    ' Next time, do it the opposite of the way
    ' you did it this time.
    mfGray = Not mfGray
End Sub
@Alex

 ha scritto nel messaggio
news:Lhzy9.2984$Zn2....@twister1.libero.it...



[CUT]
Nel modulo di classe del tuo report scrivi:
Private mfGray As Boolean
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
Me.Section(acDetail).BackColor = IIf(mfGray, vbMenuBar, vbWhite)
mfGray = Not mfGray
End Sub
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Mi da errore sul doppio private
ma non è dim mfgray as boolean
mmmmmm mi sa che non ci capisco un'k
grazie cmq

ma non è dim mfgray as boolean
Chiedo scusa per l'intrusione.
Ho voluto provare la soluzione di Roberto, e ovviamente funziona
perfettamente. Dove hai messo il codice? Lo hai messo nel modulo di
classe del report come indicato?
Spiega nel dettaglio che cosa fai e che errore ti da.
Ciao. Claudio.

 ha scritto nel messaggio
news:zTrz9.12828$8E3.3...@twister2.libero.it...

Come giustamente dice Claudio, probabilmente hai difficoltà a scrivere
Private mfGray As Boolean nel modulo di classe del report.
Prova a fare così:
1) A fronte dell'evento "Su formattazione" del corpo del report tu scrivi
solamente:
Me.Section(acDetail).BackColor = IIf(mfGray, vbMenuBar, vbWhite)
mfGray = Not mfGray
naturalmente lasciando buone le due righe che Access già scrive: quindi alla
fine, nel modulo di classe troverai scritto:
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
Me.Section(acDetail).BackColor = IIf(mfGray, vbMenuBar, vbWhite)
mfGray = Not mfGray
End Sub
2) Creati un nuovo Modulo del tuo database (al quale darai un nome a tuo
piacimento  ma DIVERSO da mfGray); in questo nuovo modulo scrivi solamente:
Public mfGray As Boolean


 Public mfGray As Boolean
Ciao Roberto. Volevo solo sapere se sei riuscito a capire come si riesce a non
far funzionare la prima soluzione... a me sfugge proprio.
Comunque, volendo non fare uso della variabile mfGray, si potrebbe riscrivere
il codice così:
With Me.Section(acDetail)
    .BackColor = IIf(.BackColor = vbWhite, vbMenuBar, vbWhite)
End With
Ciao. Claudio.

 Ciao. Claudio.
Sinceramente non capisco perchè dia questi problemi ...!
Il codice che ho postato con il Private va regolarmente..., almeno
sulle macchine nelle quali va il programma...!
Stanezze di Access.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ciao. Claudio.


 E' decisamente piů elegante!!
Detto da te, credo che stamperň il post e lo conserverň :-)
Ciao. Claudio.

"Claudio" <cld@NOSPAM&COsupereva.it> ha scritto nel messaggio
news:qjPz9.22946$XO.10...@news2.tin.it...

1) Chiedo scusa
2) il primo post funziona, non ricordo + cosa sbagliavo
3) Grazie
Gugge