Prev: linking fields which may be incomplete
Next: Separately named Forms?
From: orographicfish via AccessMonster.com on 28 Apr 2010 18:57
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

From: Duane Hookom on 28 Apr 2010 21:44
Code will only run in Print and Print Preview modes.

--
Duane Hookom
MS Access MVP


"orographicfish via AccessMonster.com" <u57931(a)uwe> wrote in message
news:a73a06dcdb5c5(a)uwe...
> 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
>
From: orographicfish via AccessMonster.com on 29 Apr 2010 10:50
Is there a way to conditionally format the background appearance of the
detail section based on a field's value in Report View? I need this to work
for display- not just for printing.

Duane Hookom wrote:
>Code will only run in Print and Print Preview modes.
>
>> I'm trying to put together a report in Access 2007 where the detail record
>> is
>[quoted text clipped - 31 lines]
>> End Select
>> End Sub

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

From: Duane Hookom on 29 Apr 2010 23:36
Use the print preview.

--
Duane Hookom
MS Access MVP


"orographicfish via AccessMonster.com" <u57931(a)uwe> wrote in message
news:a74257932e8df(a)uwe...
> Is there a way to conditionally format the background appearance of the
> detail section based on a field's value in Report View? I need this to
> work
> for display- not just for printing.
>
> Duane Hookom wrote:
>>Code will only run in Print and Print Preview modes.
>>
>>> I'm trying to put together a report in Access 2007 where the detail
>>> record
>>> is
>>[quoted text clipped - 31 lines]
>>> End Select
>>> End Sub
>
> --
> Message posted via http://www.accessmonster.com
>
 | 
Pages: 1
Prev: linking fields which may be incomplete
Next: Separately named Forms?