Change Event of Textbox Was Not Firing on Second Userform

[zzws524]

[FONT=Tahoma, Microsoft Yahei, Simsun]I created 2 userforms. Each userform has a text box. When the last letter of textbox is “E", close current userform, and open another one. [/FONT]

However, when second userform is loaded, the change event was not working.

Can anybody tell me why or how to fix it? Thanks in advance.


Code for textbox on 1st userform:

[FONT=Trebuchet MS]Private Sub TextBox1_Change()[/FONT]
[I][FONT=Trebuchet MS]If (Right(UserForm1.TextBox1, 1) = "E") Then[/FONT]
[I][FONT=Trebuchet MS]Unload Me[/FONT]
[I][FONT=Trebuchet MS]Load UserForm2[/FONT]
[I][FONT=Trebuchet MS]UserForm2.Show[/FONT]
[I][FONT=Trebuchet MS]End If[/FONT]
[I][FONT=Trebuchet MS]End Sub[/FONT]

Code for texitbox on 2nd form. It' similar to 1st form.

[I][FONT=Trebuchet MS]Private Sub TextBox1_Change()[/FONT]
[I][FONT=Trebuchet MS]If (Right(UserForm2.TextBox1, 1) = "E") Then[/FONT]
[I][FONT=Trebuchet MS]Unload Me[/FONT]
[I][FONT=Trebuchet MS]Load UserForm1[/FONT]
[I][FONT=Trebuchet MS]UserForm1.Show[/FONT]
[I][FONT=Trebuchet MS]End If[/FONT]
[I][FONT=Trebuchet MS]End Sub[/FONT][/I][/I][/I][/I][/I][/I][/I]

[/I][/I][/I][/I][/I][/I]

 

[Sixthsense]

Use Ucase()

If UCase(Right(UserForm1.TextBox1, 1) = "E") Then

If UCase(Right(UserForm2.TextBox1, 1) = "E") Then

 

[zzws524]

It's not capital issue. Any change in the textbox of second form didn't work.

 

[Sixthsense]

I tested it and it is working fine at my end.

Also, instead of using the userform names you can simply replace it with the word Me like this...

Me.TextBox1

Me refers to the form on which the control resides.

 

[zzws524]

Do you mean you can use second form to call first form back? I tried different PC but no luck...May i send my excel to you?

Thanks, Sixthsense.

 

[Sixthsense]

Instead of using UserForm1.TextBox & UserForm2.TextBox you can simply use Me.TextBox since both the controls resides in the active userform.

I suspect you may be named the Textbox names differently that may be the cause for the event not getting triggered.

 

[zzws524]

I tried. However, it didn't work. It's weird that if i run userform2 first, the change event is working on it, but it will failed on userform1.
Anyway, i've sent you my excel. Thanks.

 

[zzws524]

i change the sequence a little bit. I think it can give us some hints to this problem.

Please refer to the code. "step1" and "step2" were popped up when I enter "E". userform2 were pop up simultaneously. However, "step3" was not popped up! And userform1 was NOT unloaded. Until i close userform2, "step3" will be popped up.

I think that means when new userform is created, system is still monitoring the change event of previous textbox.

Private Sub TextBox1_Change()
If UCase((Right(Me.TextBox1, 1) = "E")) Then
MsgBox ("step1")
Load UserForm2
MsgBox ("step2")
UserForm2.Show
MsgBox ("step3")
Unload Me
End If
End Sub

 

[AlphaFrog]

The .Show command can suspend code execution. I don't fully appreciate all the reasoning and circumstances. A workaround is to show the form as vbModeless

UserForm1:

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] TextBox1_Change()
    [COLOR=darkblue]If[/COLOR] Right(Me.TextBox1, 1) = "E" [COLOR=darkblue]Then[/COLOR]
        Unload Me
        UserForm2.Show [B]vbModeless[/B]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
End [COLOR=darkblue]Sub[/COLOR]

UserForm2:

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] TextBox1_Change()
    [COLOR=darkblue]If[/COLOR] Right(Me.TextBox1, 1) = "E" [COLOR=darkblue]Then[/COLOR]
        Unload Me
        UserForm1.Show [B]vbModeless[/B]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
End [COLOR=darkblue]Sub[/COLOR]

I also read somewhere to use Unload Me or Me.Hide but not both at the same time.

 

[zzws524]

It works. Thank you so much!