View Single Post
  #1  
Old April 28th, 2010, 11:57 PM posted to microsoft.public.access.gettingstarted
orographicfish via AccessMonster.com
external usenet poster
 
Posts: 2
Default Conditional Formatting through VBA works in print preview but nowhere else!

I'm trying to put together a report in Access 2007 where the detail record is
displayed as a different background color depending on the value of a field.
There are more than 3 conditions, so I've opted to attempt this via VBA. It
works- but only in print preview.... Why? I can't figure out what I'm doing
wrong. I'm sure it's something simple, but I'd really appreciate some help
on this one.

Code:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

Select Case Me![Status]
Case 8
Me![Text43].BackColor = RGB(165, 165, 79)
Me![Text43].BackStyle = 1

Case 1
Me![Text43].BackColor = vbCyan
Me![Text43].BackStyle = 1
Case 2 To 3
Me![Text43].BackColor = vbRed
Me![Text43].BackStyle = 1
Case 4, 5, 7
Me![Text43].BackColor = vbGreen
Me![Text43].BackStyle = 1
Case Else
Me![Text43].BackColor = vbYellow
Me![Text43].BackStyle = 1
End Select
End Sub

--
Message posted via http://www.accessmonster.com