colors to alternate in rows (1 Viewer)

S

StefanSch

Registered User.

Local time

Today, 15:32

Joined

Jan 18, 2003

Messages

136

• Apr 8, 2003

• #1

This message was once put in this Access Forum:

____________________________________________

Below is the code from the Microsoft Access 97 "Reports" sample db that alternates the color between rows within a report. You should be able to modify the code to use in a form.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

Const WHITE = 16777215
Const YELLOW = 65535

If (Me![LineNum] Mod 2) = 0 Then
Me![ProductName].BackColor = YELLOW
Me![CategoryName].BackColor = YELLOW
Me![QuantityPerUnit].BackColor = YELLOW
Me![UnitsInStock].BackColor = YELLOW
Else
Me![ProductName].BackColor = WHITE
Me![CategoryName].BackColor = WHITE
Me![QuantityPerUnit].BackColor = WHITE
Me![UnitsInStock].BackColor = WHITE
End If

End Sub

HTH


ghudson

I am using Windows XP with Access 97

____________________________________________

Unfortunately, I could not get this to work. How do I add the text box [LineNum] in the report?

Stefan.

 

Mile-O

Back once again...

Local time

Today, 14:32

Joined

Dec 10, 2002

Messages

11,316

• Apr 8, 2003

• #2

I'm guessing line num is added to your table as an autonumber field and that's why the MOD operator is used on it.

 

R

Rich

Guest

• Apr 8, 2003

• #3

Add an unbound textbox to the detail section, hide it, set its control source to =-1, set the running sum to over all

 

S

StefanSch

Registered User.

Local time

Today, 15:32

Joined

Jan 18, 2003

Messages

136

• Apr 8, 2003

• #4

Thanks Rich

The numbering works well.

However, the coloring is not working with the code below.

Did you get it to work?

Stefan

 

R

Rich

Guest

• Apr 8, 2003

• #5

Did you re-name the text box to LineNum ?

 

S

StefanSch

Registered User.

Local time

Today, 15:32

Joined

Jan 18, 2003

Messages

136

• Apr 8, 2003

• #6

Yes, I re-named it. I don't get any error message but no rows are colored.

 

R

Rich

Guest

• Apr 8, 2003

• #7

Post a copy in 97ver here

 

Fornatian

Dim Person

Local time

Today, 14:32

Joined

Sep 1, 2000

Messages

1,396

• Apr 8, 2003

• #8

I use this:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Const Grey = 16777215
Const White = 12632256
Me.Detail.BackColor = IIf(Me.Detail.BackColor = White, Grey, White)
End Sub

 

S

StefanSch

Registered User.

Local time

Today, 15:32

Joined

Jan 18, 2003

Messages

136

• Apr 9, 2003

• #9

Thank you all.

This works perfectly.

 

Cosmos75

Registered User.

Local time

Today, 08:32

Joined

Apr 22, 2002

Messages

1,281

• Feb 25, 2004

• #10

Wonderful! Simple and easy!

StephanSch & Fornation,

Nice examples!

Rich said:

Add an unbound textbox to the detail section, hide it, set its control source to =-1, set the running sum to over all

Click to expand...

Rich,
Thank you for adding that! Very clever of you!

I am not entirely sure I understand how this works but I have an idea.

Code:Copy to clipboard

Me.Detail.BackColor = IIf(Me.Detail.BackColor = White, Grey, White)

1. On the 1st detail, there is no backcolor assigned (even if you have made the default backcolor yellow), so IIf returns White
2. White is stored as the value for Me.Detail.Backcolor
3. 1st detail's backcolor property is now equal to White.
4. Code is run for 2nd detail
5. The IIf's criteria will return TRUE (since Me.Detail.Backcolor = White from 1st detail), so Grey is returned & the .backcolor for the 2nd detail is Grey.
6. and so on...

Is this what is going on?

 

Last edited: Feb 25, 2004

Cosmos75

Registered User.

Local time

Today, 08:32

Joined

Apr 22, 2002

Messages

1,281

• Feb 26, 2004

• #11

Created a sample database using the code here and put it in the Sample Databases Forum.