Userform - how do I return values without hiding it?

[squidgeny]

Hi everyone,

I have a piece of code which (highly simplified) looks like this:

Sub mySub()

myform.Show

Select Case myform.Tag
    Case 1
        mysecondform.Show
    Case 2
        mythirdform.Show
End Select

End Sub

This code displays a form (myform) with a couple of buttons, which when pressed display other forms of their own (mysecondform and mythirdform)

The code for myform is simply this:

Private Sub ShowMySecondForm_Click()

    Tag = 1
    Hide

End Sub

Private Sub ShowMyThirdForm_Click()

    Tag = 2
    Hide

End Sub

What I want is for mysecondform and mythirdform to appear without myform being hidden. So if, for example, I clicked a Cancel button on mysecondform (which would hide it), myform would still be displayed. However, when I try stripping out the "Hide" method from the above code, the buttons don't work.

It seems as if hiding the form is necessary for mySub to continue running its code (and thus do the Select Case stuff). A workaround would be to put mysecondform.Show into the code of ShowMySecondForm_Click, etc, but for reasons I won't go into, I can't do this.

So is there any way to get around this? Or have I backed myself into a corner?

Thanks!

 

[GlennUK]

Shouldnn't that be:

Sub mySub()

myform.Show

End Sub

and

Private Sub ShowMySecondForm_Click()

            mysecondform.Show
            Me.Hide

End Sub

Private Sub ShowMyThirdForm_Click()

    mythirdform.Show
    Me.Hide


End Sub

 

[squidgeny]

Well that's the thing, there's a lot of other code involved which won't enable me to do that.

However, I just had a thought - can I use a GoTo thing? So my code would be:

Sub mySub()

StartAgain:

myform.Show

Select Case myform.Tag
    Case 1
        mysecondform.Show
             Select Case
                  Case 0 '(which would occur if, say, the Cancel button was clicked)
                       GoTo StartAgain
             End Select
    Case 2
        mythirdform.Show
             Select Case
                  Case 0
                       GoTo StartAgain
             End Select
End Select

End Sub

I have not used GoTos before so I'm not sure if this'll do the trick though. Worth trying?

 

[sykes]

When a userform runs (is shown), all executing code from the calling procedure stops until the form's either hidden, or (often better) unloaded. The calling procedure then carries on with any other code.
If, however, you run userforms modelessly, the calling procedure's code will continue to run.

This can be demonstrated by you running these two subs:

Sub mySub()

myform.Show
MsgBox "Test. This message didn't display 'til after you closed the userform."
End Sub

...and

Sub mySub()

myform.Show modeless
MsgBox "Test. This message displayed whilst the userform was still active and visible."
End Sub

...........armed with this, you should be able to sort yourself out.

 

[sykes]

....................oh, and Welcome to Mr. Excel!!

 

[sykes]

......To put it all into context.........

Private Sub ShowMySecondForm_Click()

            mysecondform.Show

End Sub

Private Sub ShowMyThirdForm_Click()

    mythirdform.Show
 


End Sub

........you may have to mess about with the modeless properties if you get an error message, but it'll get you on the right track............

 

[squidgeny]

Thank you! This board has helped me a lot so I plan to stick around and contribute

Anyway, I tried my GoTo idea but suffice to say it didn't work.

I also tried putting "modeless" after the .Show method but when running the code, I got an error telling me the variable was undefined... is there anything else I have to do to use modeless? :/

Edit: sorry, took too long and didn't see your latest post. I give things a try.

 

[RoryA]

I would suggest you alter the two forms that get called after the first form so that they return a Cancelled property if applicable. The calling code can then check that and re-show the first form if necessary.
Modeless forms won't work since the first routine will carry on before you have a chance to press a button on the first form.

 

[sykes]

Did myform ever get to show?

Which variable was undefined? If it was the "Tag" then you should be able to do away with those, now.

I need to go out in a while, but I'll monitor this post for as long as I can.

The modeless method works as advertised, so the problem's probably simple, but will be elsewhere. Without looking at your code it's difficult to troubleshoot.

I just took a new workbook - inserted 3 Userforms.
UF 1 had 2 commandbuttons.

Userform1.show modeless

displays UF1.

Private Sub CommandButton1_Click()
UserForm2.Show modeless
End Sub

...displays UF2 - modelessly as well - (so CB2 on UF1 can still be pressed).

Private Sub CommandButton2_Click()
UserForm3.Show
End Sub

displays UF3 (modelessly - to show example of modeless operation)