Access report - growing text box

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

CyberDwarf - 20 Sep 2007 18:09 GMT

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

Reply to this Message

S.Clark - 20 Sep 2007 20:16 GMT

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.

Signature

Steve Clark,
Former Access MVP
FMS, Inc
http://www.fmsinc.com/consulting

> Hi,
>
[quoted text clipped - 21 lines]
>
> Steve

Reply to this Message

Bob Quintal - 20 Sep 2007 22:24 GMT

> Hi,
>
[quoted text clipped - 22 lines]
>
> 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.

Signature

Bob Quintal

PA is y I've altered my email address.

--
Posted via a free Usenet account from http://www.teranews.com

Reply to this Message