Resize ME

[captnk]

This code works fine in 2002,but just hangs in 2007
It appears to hang on the "ReSizeForm Me!myform1.Form"..in fact nothing happens at all.
Quote
Private Sub Form_Open(Cancel As Integer)
ReSizeForm Me
ReSizeForm Me!myform1.Form


DoCmd.Maximize
DoCmd.GoToRecord
End Sub
Unquote
Taken a while to sort this ,but this bit of code appears to be where the action is hanging
Captnk

 

[Zigzag]

Hi,

If the code you are refering to is from Jamie Czernik then i have used this in 2003 many times but have never used it like the second line you have posted.

ReSizeForm Me!myform1.Form

What is this code supposed to do that the "ResizeForm Me" on its own does not?

Garry

 

[captnk]

Good question..I wrote the original a long time ago.

It is supposed to open the subform
The main form has a sub form in it.

I actually tried taking that bit out like u r sort of suggesting,and it worked a couple times and then just hung.
Thats why Im looking at putting the subform bit back again.

 

[Zigzag]

Maybe this is an issue with 2007? who knows?

When I have a subform on a main form I just resize the main form and the subform follows.

Do you also have the resize code in the "on open" event of the subform? (try removing it)
Do you have any code in the "on resize" event of main form or subform? (try removing it)

Garry

 

[captnk]

Many Thanks Zigzag
I redid my edits again and like u suggested removed the
"ReSizeForm Me!myform1.Form"
and it now seems to be working ok

Regards
Captnk

 

[Zigzag]

Captnk,

Glad to hear you managed to find a solution and get it working

Garry