Userform problem
'Userform1
Private Sub CommandButton1_Click()
userform2.Show
msgbox "Userform1.CommandButton1 Ends"
End Sub
'Userform2
Private Sub CommandButton1_Click()
userform2.Hide
Msgbox "Userform2.CommandButton1 Ends"
End Sub
Private Sub TextBox1_Change()
If TextBox1.TextLength = 4 Then
If TextBox1.Text = "5555" Then
userform2.Hide
userform1.Hide
Userform3.Show
End If
End If
msgbox "Userform2.TextBox1 Ends"
End Sub
'Userform3
Private Sub CommandButton2_Click()
Userform3.Hide
userform1.Show
msgbox "Userform3.Commandbutton2 Ends"
End Sub
Try it that way. Do your events end, or are they still being executed -
thus perhaps causing your problem.
--
Regards,
Tom Ogilvy
"Craig M" wrote in message
news:sZDUg.87728$5R2.8797@pd7urf3no...
Sorry... I'm sort of reposting this since I received no answer from my
first post. This time I will show some sample code.
I have 3 userforms:
'Userform1
Private Sub CommandButton1_Click()
userform2.Show
End Sub
'Userform2
Private Sub CommandButton1_Click()
userform2.Hide
End Sub
Private Sub TextBox1_Change()
If TextBox1.TextLength = 4 Then
If TextBox1.Text = "5555" Then
userform2.Hide
userform1.Hide
Userform3.Show
End If
End If
End Sub
'Userform3
Private Sub CommandButton2_Click()
Userform3.Hide
userform1.Show
End Sub
When I click the commandbutton1 on userform1 it shows userform2, when I
type "5555" into textbox1 then userform3 shows and userform1 and 2 hide,
if I click Commandbutton2 on Userform3, Userform3 hides and Userform1
shows... the problem is if I try to do the same sequence again. The
textbox1 events don't work the second time.
Do anyone know why this is happening, and does someone know how to make
this work?
Thanks in Advance... and sorry again for the repost!
Craig
|