rectangle

[Chuck216]

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

 

[Marshall Barton]

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

 

[Chuck216]

Thats works

Thanks

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