Access full justification

[Guest]

How do I apply full justification to an Access report's text/memo fields?
Thank you.

 

[Wayne Morgan]

See if this item from Stephen Lebans will help.

http://www.lebans.com/xjustifytext.htm

 

[Guest]

Thanks, Wayne, for the response. The control does help a lot. I do still
need to figure out how to emulate the CanGrow/CanShrink functions since I'm
using plenty of these text boxes. Please let me know if you have any
suggestion. Thanks again.

 

[Wayne Morgan]

I haven't tried it, but I would probably adjust the Height property of the
control in the Format event of the report's section. Another possibility may
be to concatenate multiple rows together into a single box. For an example
of this, try these links. For further help, you would need to ask Stephen,
he is usually in these newsgroups and can be reached here.

http://www.vbwm.com/submissions/display.asp?id=99
http://support.microsoft.com/default.aspx?scid=kb;en-us;287685&Product=acc2002

 

[Stephen Lebans]

Has the OP tried the other Text Justification solution on my site here:
http://www.lebans.com/justidirect.htm
Version 4.0 updated April 15, 2003
JustiDirect.zip is a database containing Functions to produce fully
justified text within standard TextBox controls on your Reports.
Allows a standard Access TextBox, bound to a Memo field to not only
produce fully justified text, but use the CanGrow/CanShrink properties
as well.



Version History

Version 4

Allows you to use any section that has CanGrow/CanShrink props.

Version 3

JustiDirect is now implemented as a Class to allow for multiple
justified controls on a report. You can also have a single Control that
spans more than 22 inches. Finally there are several fixes for
formatting bugs.

Version 2

Fixes two bugs. You now are not required to have the KeepTogether
property set to YES. Further the functions now recognize the blank area
that can develop between the last row of the Detail section and the top
of the Page Footer.
The CanGrow property is now handled correctly when the data carries over
to the next page. You can have a Memo field that spans more than 1 page.
Written completely in VBA. No DLL's or runtime files required. Full
source is included. Updated Version 2.0




--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.

 

[Guest]

Stephen:

Thanks for the reply and for the many add-ons that you've provided on your
site. I have also downloaded and played with JustiDirect. One thing is that
if you stack the text boxes (instead of putting them side by side, as you've
provided in your example), the spacing is off between one textbox and the
next one down. I'm going to play with it and see if I can adjust the spacing
accordingly. I have about 10 or so memo-field-bound text boxes on top of one
another and each once may contain up to 25 lines of texts., so this may or
may not work. I will let both of you know if I can solve this.

Fran P.

 

[Stephen Lebans]

If I remember correctly that solution will not work with stacked TextBox
controls. It would work if you would create seperate sections(grouping)
for each row of your TextBox controls.

If that does not work out then you could use the TextWidthHeight
function on my site to calculate the Height of the Justify ActiveX
control and set it in the Format event of the relevant section. It owuld
give you a kind of autosizing of the Justify ActiveX control.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.

 

[Guest]

Hi i have downloaded the software from S Lebans site but i'm a bit new at
this sort of thing and i don't know what to do from them. I have the
downloaded files on disc. Now what do i have to add some code to my text?
Please help
thanks.

 

[Arvin Meyer [MVP]]

I'm not sure which one you're using but, I use one of them in a query like:

SELECT DISTINCTROW
JustifyString("frmAddingMachine","lstAdd",[Numeral],0,True) AS Expr1 FROM
tblAdd;
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads
http://www.datastrat.com
http://www.mvps.org/access

 

[Arvin Meyer [MVP]]

Oh, and you just import the modules into your own database.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads
http://www.datastrat.com
http://www.mvps.org/access
the

 

[Guest]

I managed to get the fully justifyed code but now i want to fully justify an
unbound box with quite a few lines of code and text - how do i do this?

it was only giving me options to justify a field from the table or query.

thanks for your help

 

[Guest]

Hello can someone help me further i've almost got there with this fully
justified thing but i'm quite new and i need step by step instructions.

so i've been able to go to insert activex control and chosen the fully
justify one but i cant seem to apply it to an unbound field in my
report/letter that contains about 3 lines of code - what do i need to do

please explain

thanks

 

[Stephen Lebans]

In the Format event of the section containing the ActiveX control try
something like:

Me.WhateverYouNamedTheActiveXControl.Value =
Me.WhateverYouNamedYourUnboundTextBox.Value



--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.

 

[Guest]

Hi thanks all for your help in the end the instructions on the folders i
downloaded from stephen lebans site help me. Thanks a million it works great!!