Access report - growing text box

[CyberDwarf]

Hi,

I have a report with a repeating detail section, containing a text field
(which can grow), plus three more text fields, which cannot grow.

These fields are horizontally aligned.

This detail must have a border, plus vertical dividing lines between the
fields.

My problem is that I cannot find a way to produce vertical dividing lines
which will grow to the same height as the expanding text box. I have tried
using the format event of the Detail section to adjust the height of the
non-growing text boxes and to adjust the height of the vertical dividing
lines.

But no luck!

Am I barking up the wrong tree, or is this just not possible?

Any suggestions gratefully accepted.

TIA

Steve

 

[Guest]

I seem to remember a solution the vertical line growth, but don't remember
how. I think it was in Access Advisor. Ping Ken, Richard, or Peter... they
should be able to produce it.

For the text boxes, you say that two of them "can't" grow, but my solution
would be to make them grow. To do this, I would figure out the length of the
one that could grow, then pad the other two with blank spaces thus forcing
them to grow to the same size. That way, each of their border would be the
same.

 

[Bob Quintal]

Hi,

I have a report with a repeating detail section, containing a text
field (which can grow), plus three more text fields, which cannot
grow.

These fields are horizontally aligned.

This detail must have a border, plus vertical dividing lines
between the fields.

My problem is that I cannot find a way to produce vertical
dividing lines which will grow to the same height as the expanding
text box. I have tried using the format event of the Detail
section to adjust the height of the non-growing text boxes and to
adjust the height of the vertical dividing lines.

But no luck!

Am I barking up the wrong tree, or is this just not possible?

Any suggestions gratefully accepted.

TIA

Steve

In the report section's On Print Event, get the textbok.height
property from the can grow textbox, then use the line command to
draw the line.

'draw a vertical line to the right of a textbox,

Dim x1 As Integer, x2 As Integer, y1 As Integer, y2 As Integer
dim c as variant
x1 = me.textbox.top
y1 = me.textbox.left+ me textbox.width ' this gives the right edge.
x2 = x1 ' for a vertical line
y2 = me.textbox.top + me textbox.height
c = rgb(0,0,0)

Me.Line (x1, y1)-(x2, y2), c
'X1,Y1 are coordinates of the start and X2, Y2 are end
'coordinates.c is color.