Alternate colors in report for multicolumn report

#1 (**permalink**) 28-Jul-2006, 08:19 AM

Hi All,

I have a report that has a subreport with 4 columns (Level 1, 2, 3, 4).

I want the report to alternate colors every row; however, each row may
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/11318-alternate-colors-in-report-multicolumn-report.html
have different size values in the columns --
for example:

Level 1 Level 2 Level 3 Level 4
x x x xxx
xxx xx xxx

that is one row -- i need it to shade the entire row grey -- and the
height of the shading to be as long as the Level 4 text.

Any ideas/suggestions?

Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318
Thanks,

Millie

#2 (**permalink**) 28-Jul-2006, 08:20 AM

Regardless of data - rows are rows:
http://www.codewidgets.com/product.aspx?key=35
--
hth,
SusanV

wrote in message
news:1150205199.111523.199390@i40g2000cwc.googlegr oups.com...
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318
> Hi All,
>
> I have a report that has a subreport with 4 columns (Level 1, 2, 3, 4).
>
> I want the report to alternate colors every row; however, each row may
> have different size values in the columns --
> for example:
>
>
> Level 1 Level 2 Level 3 Level 4
> x x x xxx
> xxx xx xxx
>
>
> that is one row -- i need it to shade the entire row grey -- and the
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318
> height of the shading to be as long as the Level 4 text.
>
>
> Any ideas/suggestions?
>
>
> Thanks,
>
>
> Millie
>

#3 (**permalink**) 28-Jul-2006, 08:20 AM

When I do that, it highlights just the text in the row -- so if text is
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318
longer in one column, it is highlighted more --

The entire row is not highlighted -- only the text

SusanV wrote:
> Regardless of data - rows are rows:
> http://www.codewidgets.com/product.aspx?key=35
> --
> hth,
> SusanV
>
>
> wrote in message
> news:1150205199.111523.199390@i40g2000cwc.googlegr oups.com...
> > Hi All,
> >
> > I have a report that has a subreport with 4 columns (Level 1, 2, 3, 4).
> >
> > I want the report to alternate colors every row; however, each row may
> > have different size values in the columns --
> > for example:
> >
> >
> > Level 1 Level 2 Level 3 Level 4
> > x x x xxx
> > xxx xx xxx
> >
> >
> > that is one row -- i need it to shade the entire row grey -- and the
> > height of the shading to be as long as the Level 4 text.
> >
> >
> > Any ideas/suggestions?
> >
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318
> >
> > Thanks,
> >
> >
> > Millie
> >

#4 (**permalink**) 28-Jul-2006, 08:20 AM

Huh? This should set the background color of the row - not any text
formatting such as foreground color or bold or any of that. I use it to
alternate grey and white is several reports as follows:

'===========
Private m_RowCount As Long
'===========
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
m_RowCount = m_RowCount + 1
If m_RowCount / 2 = CLng(m_RowCount / 2) Then
Me.Detail.BackColor = 12632256 'Set to grey
Else
Me.Detail.BackColor = 16777215 'This is the white row
End If
End Sub
'===========

Can you post the entire Detail_Format sub?

SusanV

wrote in message
news:1150290816.465402.192370@y41g2000cwy.googlegr oups.com...
> When I do that, it highlights just the text in the row -- so if text is
> longer in one column, it is highlighted more --
>
> The entire row is not highlighted -- only the text
>
>
> SusanV wrote:
>> Regardless of data - rows are rows:
>> http://www.codewidgets.com/product.aspx?key=35
>> --
>> hth,
>> SusanV
>>
>>
>> wrote in message
>> news:1150205199.111523.199390@i40g2000cwc.googlegr oups.com...
>> > Hi All,
>> >
>> > I have a report that has a subreport with 4 columns (Level 1, 2, 3, 4).
>> >
>> > I want the report to alternate colors every row; however, each row may
>> > have different size values in the columns --
>> > for example:
>> >
>> >
>> > Level 1 Level 2 Level 3 Level 4
>> > x x x xxx
>> > xxx xx xxx
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318
>> >
>> >
>> > that is one row -- i need it to shade the entire row grey -- and the
>> > height of the shading to be as long as the Level 4 text.
>> >
>> >
>> > Any ideas/suggestions?
>> >
>> >
>> > Thanks,
>> >
>> >
>> > Millie
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318
>> >
>

#5 (**permalink**) 28-Jul-2006, 08:20 AM

Option Compare Database
Private shadeNextRow As Boolean
Private lastProgression As String
Private lastProgressionRow As String
Const shadedColor = 16770273
Const normalColor = 16777215
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If lastProgression <> Me!Progression Or lastProgressionRow <>
Me!ProgressionRow Then
shadeNextRow = Not shadeNextRow
lastProgression = Me!Progression
lastProgressionRow = Me!ProgressionRow
End If
If shadeNextRow Then
Me.Section(acDetail).BackColor = shadedColor
Else
Me.Section(acDetail).BackColor = normalColor
End If
If Me!CapabilityColor = "red" Then
Me!Capability.ForeColor = RGB(255, 0, 0)
ElseIf Me!CapabilityColor = "orange" Then
Me! Capability.ForeColor = RGB(255, 140, 0)
ElseIf Me!CapabilityColor = "green" Then
Me! Capability.ForeColor = RGB(0, 100, 0)
ElseIf Me!CapabilityColor = "purple" Then
Me!Capability.ForeColor = RGB(148, 0, 211)
ElseIf Me! CapabilityColor = "blue" Then
Me!Capability.ForeColor = RGB(0, 0, 255)
End If
End Sub

SusanV wrote:
> Huh? This should set the background color of the row - not any text
> formatting such as foreground color or bold or any of that. I use it to
> alternate grey and white is several reports as follows:
>
> '===========
> Private m_RowCount As Long
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318
> '===========
> Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
> m_RowCount = m_RowCount + 1
> If m_RowCount / 2 = CLng(m_RowCount / 2) Then
> Me.Detail.BackColor = 12632256 'Set to grey
> Else
> Me.Detail.BackColor = 16777215 'This is the white row
> End If
> End Sub
> '===========
>
>
> Can you post the entire Detail_Format sub?
>
> SusanV
>
> wrote in message
> news:1150290816.465402.192370@y41g2000cwy.googlegr oups.com...
> > When I do that, it highlights just the text in the row -- so if text is
> > longer in one column, it is highlighted more --
> >
> > The entire row is not highlighted -- only the text
> >
> >
> > SusanV wrote:
> >> Regardless of data - rows are rows:
> >> http://www.codewidgets.com/product.aspx?key=35
> >> --
> >> hth,
> >> SusanV
> >>
> >>
> >> wrote in message
> >> news:1150205199.111523.199390@i40g2000cwc.googlegr oups.com...
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318
> >> > Hi All,
> >> >
> >> > I have a report that has a subreport with 4 columns (Level 1, 2, 3, 4).
> >> >
> >> > I want the report to alternate colors every row; however, each row may
> >> > have different size values in the columns --
> >> > for example:
> >> >
> >> >
> >> > Level 1 Level 2 Level 3 Level 4
> >> > x x x xxx
> >> > xxx xx xxx
> >> >
> >> >
> >> > that is one row -- i need it to shade the entire row grey -- and the
> >> > height of the shading to be as long as the Level 4 text.
> >> >
> >> >
> >> > Any ideas/suggestions?
> >> >
> >> >
> >> > Thanks,
> >> >
> >> >
> >> > Millie
> >> >
> >

#6 (**permalink**) 28-Jul-2006, 08:20 AM

using the code you provided and using this code that i just pasted, i
get the same results

millie.patel@gmail.com wrote:
> Option Compare Database
> Private shadeNextRow As Boolean
> Private lastProgression As String
> Private lastProgressionRow As String
> Const shadedColor = 16770273
> Const normalColor = 16777215
> Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
> If lastProgression <> Me!Progression Or lastProgressionRow <>
> Me!ProgressionRow Then
> shadeNextRow = Not shadeNextRow
> lastProgression = Me!Progression
> lastProgressionRow = Me!ProgressionRow
> End If
> If shadeNextRow Then
> Me.Section(acDetail).BackColor = shadedColor
> Else
> Me.Section(acDetail).BackColor = normalColor
> End If
> If Me!CapabilityColor = "red" Then
> Me!Capability.ForeColor = RGB(255, 0, 0)
> ElseIf Me!CapabilityColor = "orange" Then
> Me! Capability.ForeColor = RGB(255, 140, 0)
> ElseIf Me!CapabilityColor = "green" Then
> Me! Capability.ForeColor = RGB(0, 100, 0)
> ElseIf Me!CapabilityColor = "purple" Then
> Me!Capability.ForeColor = RGB(148, 0, 211)
> ElseIf Me! CapabilityColor = "blue" Then
> Me!Capability.ForeColor = RGB(0, 0, 255)
> End If
> End Sub
>
> SusanV wrote:
> > Huh? This should set the background color of the row - not any text
> > formatting such as foreground color or bold or any of that. I use it to
> > alternate grey and white is several reports as follows:
> >
> > '===========
> > Private m_RowCount As Long
> > '===========
> > Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
> > m_RowCount = m_RowCount + 1
> > If m_RowCount / 2 = CLng(m_RowCount / 2) Then
> > Me.Detail.BackColor = 12632256 'Set to grey
> > Else
> > Me.Detail.BackColor = 16777215 'This is the white row
> > End If
> > End Sub
> > '===========
> >
> >
> > Can you post the entire Detail_Format sub?
> >
> > SusanV
> >
> > wrote in message
> > news:1150290816.465402.192370@y41g2000cwy.googlegr oups.com...
> > > When I do that, it highlights just the text in the row -- so if text is
> > > longer in one column, it is highlighted more --
> > >
> > > The entire row is not highlighted -- only the text
> > >
> > >
> > > SusanV wrote:
> > >> Regardless of data - rows are rows:
> > >> http://www.codewidgets.com/product.aspx?key=35
> > >> --
> > >> hth,
> > >> SusanV
> > >>
> > >>
> > >> wrote in message
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318
> > >> news:1150205199.111523.199390@i40g2000cwc.googlegr oups.com...
> > >> > Hi All,
> > >> >
> > >> > I have a report that has a subreport with 4 columns (Level 1, 2, 3, 4).
> > >> >
> > >> > I want the report to alternate colors every row; however, each row may
> > >> > have different size values in the columns --
> > >> > for example:
> > >> >
> > >> >
> > >> > Level 1 Level 2 Level 3 Level 4
> > >> > x x x xxx
> > >> > xxx xx xxx
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318
> > >> >
> > >> >
> > >> > that is one row -- i need it to shade the entire row grey -- and the
> > >> > height of the shading to be as long as the Level 4 text.
> > >> >
> > >> >
> > >> > Any ideas/suggestions?
> > >> >
> > >> >
> > >> > Thanks,
> > >> >
> > >> >
> > >> > Millie
> > >> >
> > >

#7 (**permalink**) 28-Jul-2006, 08:20 AM

You copied the exact code I posted and you're getting the DATA format
changing?

wrote in message
news:1150303334.518662.84440@y41g2000cwy.googlegro ups.com...
> using the code you provided and using this code that i just pasted, i
> get the same results
>
>
> millie.patel@gmail.com wrote:
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318
>> Option Compare Database
>> Private shadeNextRow As Boolean
>> Private lastProgression As String
>> Private lastProgressionRow As String
>> Const shadedColor = 16770273
>> Const normalColor = 16777215
>> Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
>> If lastProgression <> Me!Progression Or lastProgressionRow <>
>> Me!ProgressionRow Then
>> shadeNextRow = Not shadeNextRow
>> lastProgression = Me!Progression
>> lastProgressionRow = Me!ProgressionRow
>> End If
>> If shadeNextRow Then
>> Me.Section(acDetail).BackColor = shadedColor
>> Else
>> Me.Section(acDetail).BackColor = normalColor
>> End If
>> If Me!CapabilityColor = "red" Then
>> Me!Capability.ForeColor = RGB(255, 0, 0)
>> ElseIf Me!CapabilityColor = "orange" Then
>> Me! Capability.ForeColor = RGB(255, 140, 0)
>> ElseIf Me!CapabilityColor = "green" Then
>> Me! Capability.ForeColor = RGB(0, 100, 0)
>> ElseIf Me!CapabilityColor = "purple" Then
>> Me!Capability.ForeColor = RGB(148, 0, 211)
>> ElseIf Me! CapabilityColor = "blue" Then
>> Me!Capability.ForeColor = RGB(0, 0, 255)
>> End If
>> End Sub
>>
>> SusanV wrote:
>> > Huh? This should set the background color of the row - not any text
>> > formatting such as foreground color or bold or any of that. I use it to
>> > alternate grey and white is several reports as follows:
>> >
>> > '===========
>> > Private m_RowCount As Long
>> > '===========
>> > Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
>> > m_RowCount = m_RowCount + 1
>> > If m_RowCount / 2 = CLng(m_RowCount / 2) Then
>> > Me.Detail.BackColor = 12632256 'Set to grey
>> > Else
>> > Me.Detail.BackColor = 16777215 'This is the white row
>> > End If
>> > End Sub
>> > '===========
>> >
>> >
>> > Can you post the entire Detail_Format sub?
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318
>> >
>> > SusanV
>> >
>> > wrote in message
>> > news:1150290816.465402.192370@y41g2000cwy.googlegr oups.com...
>> > > When I do that, it highlights just the text in the row -- so if text
>> > > is
>> > > longer in one column, it is highlighted more --
>> > >
>> > > The entire row is not highlighted -- only the text
>> > >
>> > >
>> > > SusanV wrote:
>> > >> Regardless of data - rows are rows:
>> > >> http://www.codewidgets.com/product.aspx?key=35
>> > >> --
>> > >> hth,
>> > >> SusanV
>> > >>
>> > >>
>> > >> wrote in message
>> > >> news:1150205199.111523.199390@i40g2000cwc.googlegr oups.com...
>> > >> > Hi All,
>> > >> >
>> > >> > I have a report that has a subreport with 4 columns (Level 1, 2,
>> > >> > 3, 4).
>> > >> >
>> > >> > I want the report to alternate colors every row; however, each row
>> > >> > may
>> > >> > have different size values in the columns --
>> > >> > for example:
>> > >> >
>> > >> >
>> > >> > Level 1 Level 2 Level 3 Level 4
>> > >> > x x x xxx
>> > >> > xxx xx xxx
>> > >> >
>> > >> >
>> > >> > that is one row -- i need it to shade the entire row grey -- and
>> > >> > the
>> > >> > height of the shading to be as long as the Level 4 text.
>> > >> >
>> > >> >
>> > >> > Any ideas/suggestions?
>> > >> >
>> > >> >
>> > >> > Thanks,
>> > >> >
>> > >> >
>> > >> > Millie
>> > >> >
>> > >
>

#8 (**permalink**) 28-Jul-2006, 08:20 AM

yup

i still get the data being highlighted - not the entire row
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318

SusanV wrote:
> You copied the exact code I posted and you're getting the DATA format
> changing?
>
> wrote in message
> news:1150303334.518662.84440@y41g2000cwy.googlegro ups.com...
> > using the code you provided and using this code that i just pasted, i
> > get the same results
> >
> >
> > millie.patel@gmail.com wrote:
> >> Option Compare Database
> >> Private shadeNextRow As Boolean
> >> Private lastProgression As String
> >> Private lastProgressionRow As String
> >> Const shadedColor = 16770273
> >> Const normalColor = 16777215
> >> Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
> >> If lastProgression <> Me!Progression Or lastProgressionRow <>
> >> Me!ProgressionRow Then
> >> shadeNextRow = Not shadeNextRow
> >> lastProgression = Me!Progression
> >> lastProgressionRow = Me!ProgressionRow
> >> End If
> >> If shadeNextRow Then
> >> Me.Section(acDetail).BackColor = shadedColor
> >> Else
> >> Me.Section(acDetail).BackColor = normalColor
> >> End If
> >> If Me!CapabilityColor = "red" Then
> >> Me!Capability.ForeColor = RGB(255, 0, 0)
> >> ElseIf Me!CapabilityColor = "orange" Then
> >> Me! Capability.ForeColor = RGB(255, 140, 0)
> >> ElseIf Me!CapabilityColor = "green" Then
> >> Me! Capability.ForeColor = RGB(0, 100, 0)
> >> ElseIf Me!CapabilityColor = "purple" Then
> >> Me!Capability.ForeColor = RGB(148, 0, 211)
> >> ElseIf Me! CapabilityColor = "blue" Then
> >> Me!Capability.ForeColor = RGB(0, 0, 255)
> >> End If
> >> End Sub
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318
> >>
> >> SusanV wrote:
> >> > Huh? This should set the background color of the row - not any text
> >> > formatting such as foreground color or bold or any of that. I use it to
> >> > alternate grey and white is several reports as follows:
> >> >
> >> > '===========
> >> > Private m_RowCount As Long
> >> > '===========
> >> > Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
> >> > m_RowCount = m_RowCount + 1
> >> > If m_RowCount / 2 = CLng(m_RowCount / 2) Then
> >> > Me.Detail.BackColor = 12632256 'Set to grey
> >> > Else
> >> > Me.Detail.BackColor = 16777215 'This is the white row
> >> > End If
> >> > End Sub
> >> > '===========
> >> >
> >> >
> >> > Can you post the entire Detail_Format sub?
> >> >
> >> > SusanV
> >> >
> >> > wrote in message
> >> > news:1150290816.465402.192370@y41g2000cwy.googlegr oups.com...
> >> > > When I do that, it highlights just the text in the row -- so if text
> >> > > is
> >> > > longer in one column, it is highlighted more --
> >> > >
> >> > > The entire row is not highlighted -- only the text
> >> > >
> >> > >
> >> > > SusanV wrote:
> >> > >> Regardless of data - rows are rows:
> >> > >> http://www.codewidgets.com/product.aspx?key=35
> >> > >> --
> >> > >> hth,
> >> > >> SusanV
> >> > >>
> >> > >>
> >> > >> wrote in message
> >> > >> news:1150205199.111523.199390@i40g2000cwc.googlegr oups.com...
> >> > >> > Hi All,
> >> > >> >
> >> > >> > I have a report that has a subreport with 4 columns (Level 1, 2,
> >> > >> > 3, 4).
> >> > >> >
> >> > >> > I want the report to alternate colors every row; however, each row
> >> > >> > may
> >> > >> > have different size values in the columns --
> >> > >> > for example:
> >> > >> >
> >> > >> >
> >> > >> > Level 1 Level 2 Level 3 Level 4
> >> > >> > x x x xxx
> >> > >> > xxx xx xxx
> >> > >> >
> >> > >> >
> >> > >> > that is one row -- i need it to shade the entire row grey -- and
> >> > >> > the
> >> > >> > height of the shading to be as long as the Level 4 text.
> >> > >> >
> >> > >> >
> >> > >> > Any ideas/suggestions?
> >> > >> >
> >> > >> >
> >> > >> > Thanks,
> >> > >> >
> >> > >> >
> >> > >> > Millie
> >> > >> >
> >> > >
> >

#9 (**permalink**) 28-Jul-2006, 08:21 AM

millie.patel@gmail.com wrote:
> yup
>
> i still get the data being highlighted - not the entire row

Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11318
When you state that you have "multiple columns of data" do you mean multiple
fields arranged in columns or do you mean that you are using the
Multi-column options in Page Setup of the report?

Using the "newspaper columns" option in page setup will produce a different
effect because the detail section is not only repeated in horizontal bands
but also snaked into columns and the background WILL have some margin
separation between those columns.

--
Rick Brandt, Microsoft Access MVP
Email (as appropriate) to...
RBrandt at Hunter dot com