Userform called from another userform textbox - unload problem

Hello All

I have a userform (Userform A) with a textbox.
I am using the textbox to open another userform (Userform B) also with a textbox.
The Textbox control doesn't have a 'Click_Event' so I am using the 'MouseDown_Event'.
(I have also tried the Enter_event and Doubleclick_Event).

(As it happens I want the contents of Userform B textbox to populate the Userform A (the calling) textbox - Userform B will be called from a number of textboxes)

My problem is that when I Unload Userform B (with a command button) this 'closes' both Userform B AND Userform A.

I need Userform A to remain open.

Any advice on how I can achieve this please?

With thanks.

Hi.

Try this code for closing Userform B only:

Private Sub cmdcloseB_Click()
    Unload UserFormB
End Sub

that should not happen-what code are you using?

I'd probably use the mouseup event though and restrict to a right click in case the user doesn't need the second form

Hi,

Have you tried "Private Sub UserForm_Click()" before? This is the click event for forms.

As for making the second userform disappear, you can either 'Hide' the userform, or 'Unload' it from memory.

So for example:

Private Sub UserForm_Click()
    UserForm1.Hide
End Sub

will hide Userform1 when you click on it.

Hope this helps.

abousetta

Many thanks to abousetta, JosephP and jraj1106 for your responses.
For completeness the code I am using is:

UserformB call from textbox on UserformA (thanks to JosephP for your advice here)

Private Sub textbox_1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        With UserformB
            .Caption = "my caption"
            .Show
        End With
    End If
End Sub

and to unload/close UserformB

Private Sub cmdbutUserformB_Click()
    Unload UserformB
End Sub

Nothing unusual I don't think; and I have nothing in the UserFormB_Query_Close event.

However, for reference for others perhaps, I may have solved the cause without understanding why.

I currently open (.Show) UserformA (which calls UserformB)as modeless.
If I open UserformA as modal then the double-close problem I have disappears and UserformA remains Open - success.

Whilst I didn't appreciate this at the time is this normal userform behaviour?


However, thank you for your responses which of themselves help the thinking process.

Barry

Hi Barry,

I almost always open my userforms in a modeless state. Some userforms open other forms and never had the problem you are mentioning. Maybe have both modal or both modeless and see if corrects the issue you are facing.

abousetta

I reckon your problem is that your with statement is trying to hold a reference to the form but you then unload it-perhaps simply

Private Sub textbox_1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
      UserForm2.Caption = "my caption"
      UserForm2.Show
    End If
End Sub

though I always suggest that a userform should not unload itself; it should merely hide and the calling code should take care of the clean-up

Hi Barry,

Thanks for marking the thread as Solved, but which solution ended up working for you?

abousetta

Hi Guys
As a rich seam of discussion points and alternatives as usual.
@ Abousetta
My SOLVED solution as posted was to open UserformA as modal, this seemed to fix it.
This was not a showstopper for my requirement so I was OK with that.

However, testing JosephP's subsequent advice and removing the With/End With construct fixes the issue and still allows me to have UserformA modeless - Brilliant!

Thanks again to all and to JosephP's insight.

Barry