David McAfee
davidmcafee at gmail.com
Wed Aug 25 16:30:38 CDT 2010
Put a hidden text field and do something like this:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim ctl As Control
Dim Highlight As Long
'Light green = 65280
'White = 16777215
'Yellow = 10092543
'Caca Color = 32896
'or you can use VBred, VBwhite, VBBlack...
Select Case Me.txtReportCode
Case "R"
Highlight = 14286847 'Yellow
Case "W"
Highlight = 12713952 'Light Green
Case Else
Highlight = 16777215 'White
End Select
For Each ctl In Me.Controls
If ctl.Tag = "Colored" Then
ctl.BackColor = Highlight
End If
Next ctl
Me.Detail.BackColor = Highlight
On Wed, Aug 25, 2010 at 2:19 PM, Debbie <delam at zyterra.com> wrote:
> It looks like that is the offending piece. Now to figure out how to
> shade part of the detail section without it. Thanks for the help.
>
> Debbie
>
> Sent from my iPhone
>
> On Aug 25, 2010, at 4:07 PM, "Steve Schapel" <steve at datamanagementsolutions.biz
> > wrote:
>
>> Debbie,
>>
>> As an experiment, can you try removing this rectangle control, and see
>> whether it makes any difference?
>>
>> Regards
>> Steve
>>
>>
>> --------------------------------------------------
>> From: "Debbie" <delam at zyterra.com>
>> Sent: Thursday, August 26, 2010 8:58 AM
>> To: "Access Developers discussion and problem solving"
>> <accessd at databaseadvisors.com>
>> Subject: Re: [AccessD] Access 2007 question
>>
>>> Not trying for boxes or borders. I do have a rectangle in the
>>> background of the detail section to shade portions of the detail. It
>>> is the same height as the control and section.
>>>
>>
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>