Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

module to change individual row heights

Status
Not open for further replies.

ossse

Programmer
Jun 26, 2007
49
US
I have a field that is a 'memo' type. I would like to run a module that changes each row height in order to display the full text (with a fixed column width).

If you have any ideas how to do this please let me know.


Thanks in advance
 
I assume you want to do this on a report...

Set the can grow property of the control and the report section it is to yes / true.

As long as the control doesn't overlap others and is not shorter than other contols, it should expand fine. Although, you may just want to make it taller than necessary and set the can shrink on the control and report section too.
 
I'd be surprised if this can be done for a table. You could instead make a form that looks similar to a databasheet view and possibly change the height of all those cells. I think there is already code around the formu to do it to. I'll leave the search up to you.
 
ossse said:
...changes each row height...

When you view a table there is one row height, for all rows (remember it's Access not Excel).

As pointed out by lameid the only easy way to vary the height of a 'row' is during printing (either a form or a report) using the [tt]CanGrow[/tt] property.

Probably not much help,
CMP

[small]For the best results do what I'm thinking, not what I'm saying.[/small]
(GMT-07:00) Mountain Time (US & Canada)
 
End users should not even have access to Access tables! You should. as suggested, make a form that looks like a table, if that's a requirement, and then worry about changing the size of the memo field. Something like this will do:

Code:
Private Sub YourControlName_DblClick()
   If Not IsNull(Me.YourControlName) Then
      DoCmd.RunCommand acCmdZoomBox
   End If
End Sub
Good Luck!


The Missinglinq

Richmond, Virginia

There's ALWAYS more than one way to skin a cat!
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top