Form propertie

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

PG - 08 Feb 2005 17:05 GMT

Hi, is there a quick way to changes the properties of all the forms in the
application looping through all the objects in Allforms collection. Say, I
want to change the GRIDX and GRIDY to a value 21 and the the backcolor of the
header section for all forms to Gray. I am able to read the properties of
the forms but couldn't figure out how to change their values.

Any ideas or suggestions?????

Thanks in advance.

PG

Reply to this Message

Alex Dybenko - 08 Feb 2005 17:38 GMT

in order to set property - you have to open form. and if you have these
properties get saved - then open form in desigh mode, and then save form

Signature

Alex Dybenko (MVP)
http://Alex.Dybenko.com
http://www.PointLtd.com

> Hi, is there a quick way to changes the properties of all the forms in the
> application looping through all the objects in Allforms collection. Say,
[quoted text clipped - 9 lines]
>
> PG

Reply to this Message

PG - 08 Feb 2005 20:57 GMT

That was so helpful. But, I now got stuck with another problem. When I try to
change the header properties for a form that has no header, I get an error
which is valid. So, I now have to check if a form has header and footer
sections, before I set their properties.

I understand the section property is an array whose values will tell me if
there is a header and footer section. But I have no clue as to how to check
this array for a specific value. Could you please help me with coding this if
statement.

Thanks again!!
PG

> in order to set property - you have to open form. and if you have these
> properties get saved - then open form in desigh mode, and then save form
[quoted text clipped - 12 lines]
> >
> > PG

Reply to this Message

Alex Dybenko - 09 Feb 2005 06:49 GMT

Hi,
you can try to access header, if error - then section does not exist

on error resume next
str=Me.Section(acHeader).Name
if err=0 then
'section exist
else
'no section
end if

Signature

Alex Dybenko (MVP)
http://Alex.Dybenko.com
http://www.PointLtd.com

> That was so helpful. But, I now got stuck with another problem. When I try
> to
[quoted text clipped - 32 lines]
>> >
>> > PG

Reply to this Message

PG - 09 Feb 2005 17:07 GMT

It works great. Thank you so much.

> Hi,
> you can try to access header, if error - then section does not exist
[quoted text clipped - 43 lines]
> >> >
> >> > PG

Reply to this Message