rectangle

Hi


I have a rectangle in the detail section of a report with the below code
attached to it in the on format event.

If [HostGuest] = "host" Then
[Box16].BackColor = 9824951
Else
[Box16].BackColor = 6008319

End If

My problem is I have several memo fields on the report that need the ability
to grow. How can I have the rectangle “Box16� grow as the detail section
grows? I found the below code to make a rectangle in this discussion group.
But it doesn’t allow for my If/Then statement.

Me.Line ((0,0)-Step(Me.Width,Me.Section(0).Height), , B


Any help will be greatly appreciated

Chuck216 wrote:
>I have a rectangle in the detail section of a report with the below code
>attached to it in the on format event.
>
>If [HostGuest] = "host" Then
> [Box16].BackColor = 9824951
>Else
> [Box16].BackColor = 6008319
>
>End If
>
>My problem is I have several memo fields on the report that need the ability
>to grow. How can I have the rectangle “Box16” grow as the detail section
>grows? I found the below code to make a rectangle in this discussion group.
>But it doesn’t allow for my If/Then statement.
>
>Me.Line ((0,0)-Step(Me.Width,Me.Section(0).Height), , B


If [HostGuest] = "host" Then
Me.Line ((0,0)-Step(Me.Width,Me.Section(0).Height),
9824951, BF
Else
Me.Line ((0,0)-Step(Me.Width,Me.Section(0).Height),
6008319, BF
End If

--
Marsh
MVP [MS Access]