userform on top of another userform -> runtime error 402

[webster188]

Hello,

Trying to find a solution for following problem:

I have an application using two userforms
Following sequence is used:

1. Open Userform1 (with uf.show)
2. click on a commandbutton in userform1 opens a second userform on top of userform1.
3. Close userform2 with commandbutton on userform2 (userform2.hide)
(I did not want the user to close the UF via the "X" )

Runtime error 402 : Must close or hide topmost modal form first


So, I changed my code so when the user clicks the commandbutton in userform2

userform1.hide (which is the topmost)
userform2.hide

But again I get the same error.

What am I doing wrong here??

Regards,

Dimitri

 

[gsbelbin]

The only way I could replicate your problem was if I tried to close the first form with the button on the second form. Have you definitely got your form names correctly entered?

Edit

For the second button you could try Me.Hide

 

[webster188]

Additional info: when I close the userform2 by clicking on the "X", it works, no error message.

 

[gsbelbin]

Have you tried changing the code in the second form's button to Me.Hide?

 

[webster188]

Hi Gsbelbin,

Yes, I tried and it works.

What is the secret here? Me.hide is working, Userformname.Hide does not


Regards,

Dimitri

 

[obiron]

go into the properties of the first userform and change the show modal property to FALSE

A modal window locks the application from doing anything else until it is closed, hence the requirement to close the first form before closing the second form.

 

[gsbelbin]

It should work either way and does so when I try it. Like I said, the only way I could get it to fail was if I tried closing the first form using the second form's button.

 

[gsbelbin]

obiron, what you've suggested will work but it's not what I believe Dimitri is trying to do. He's having problems closing the second form.

 

[ukithaz]

Hi!
Try this...


'Capture the [X] button click
If CloseMode = vbFormControlMenu Then

'Stop the default unload close
Cancel = True

'Force the Hide close
Me.Hide

End If

End Sub[/CODE]