rectangle

  • Thread starter Thread starter Chuck216
  • Start date Start date
C

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
 
Chuck216 said:
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
Click to expand...


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
 
Thats works

Thanks




Marshall Barton said:
Chuck216 said:
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
Click to expand...


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
Click to expand...
 
Back
Top