multipage

A

AManso

Hello
I cannot understand why this do not work properly on excel 2003 SP2 and it
works ok on excel 2000, both running on windows bxp

userform1
multipage1, pages 1 to 6
textbox1 in page 1

Private Sub MultiPage1_Change()
If MultiPage1.Value = 1 Then
If TextBox1.Value = Empty Then MultiPage1.Value = 0
TextBox1.SetFocus
End If
End Sub

Any ideas?

Thanks
 
B

Bob Phillips

I guess that it is trying to set the focus to a control that is not yet
vis9ible.

You could try this

Private Sub MultiPage1_Change()
If MultiPage1.Value = 1 Then
If TextBox1.Value = Empty Then
Application.OnTime Now(), "MultiPageAction"
End If
End If
End Sub

and in a standard code module add

Sub MultiPageAction()
With UserForm1
.MultiPage1.Value = 0
.TextBox1.SetFocus
End With
End Sub

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
A

AManso

I am the solution you have suggested do not work. I emphasize the code runs
ok in excel 2000 but nor in excel 2003!!!!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top