View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Craig M Craig M is offline
external usenet poster
 
Posts: 15
Default Userform problem

OK... when I press userform1.commandbutton1 the userform2 shows but the
Msgbox doesn't display. After Userform2 shows if I click
Userform2.Commandbutton1 to hide Userform2 then Userform2 Msgbox fires and
then userform1 Msgbox fires. So I see it isn't firing when it should be...
can I fix this? The userfrom2.textbox1 fired on the first 3 keystrokes but
didn't on the 4th keystroke then it moved on to userform3... when I pressed
userforms.commandbutton the msgbox didn't fire.... but when I closed the
routine via VBA all the msgbox events fire that hadn't!
I know that it will work if I don't hide the Userform1 when it shows
userform3.

There must be a way to make this work, how do other people add user names
and passwords for entry?
Craig

"Tom Ogilvy" wrote in message
...
'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