Hi

I am able to change rows height of a continuous form containing 3
fields with a button containing the following code

[Field1].height = 480
[Field2].height = 480
[Field3].height = 480

This way the user can see more text. When finish, user click on
another button containing this code

[Field1].height = 240
[Field2].height = 240
[Field3].height = 240
[Detail].height = 240

Buttons are situated in the form header

Now I have a Main form “employee” (single) containing a continuous
subform “employeeSub”

I want to be able to change rows height of te subform with a button
situated on the main form

I have try many codes without success

Can someone help me

thanks

jean wrote:

I added a command button. For the click event

'display current height of a field
MsgBox Me.SubFormName!FieldName.Height
'increase height of all fields by 200 pixals
Dim ctl As Control
For Each ctl In Me.SubFormName.Form
ctl.Height = ctl.Height + 200
Next


You could create a tag (property sheet/Other) and enter Inc
Then if ctl.Tag = "Inc" then inc/dec the height.

Me.SubFormNmed!FieldName.Height = Me.SubFormName!FieldName.Height + 200