Can't switch tab back in Multipage userform

[th284]

Hi, I have two pages in the userform. What I was trying to do is that certain textbox (txtDate) needs to be entered on the page1 before going to page2. The user can still select page2 however I want the vba to bring the page back to page1 if the data is missing.

Here is the code:

Private Sub MultiPage1_Change()
If MultiPage1.Value = 1 And txtDate = "" Then
MultiPage1.Value = 0
txtDate .BackColor = &H40C0
End If

It didn't work completely - the tab selection on top was on page1 however all the controls shown are still the controls under page2. I have to manulally click page1.

I also tried MultiPage1.Page(0).Enabled=True but it didn't work either.

Please help. Thank you.

 

[Jaafar Tribak]

Try placing the code in the MultiPage1_KeyUp and MultiPage1_MouseUp events instead of the Change event.

 

[th284]

It actually didn't do anything for me (I don't think the subs were executed). I tried the KeyDown and MouseDown and it didn't work either.

What I like to happen is when this textbox is empty VBA will prevent the user go to the next page until it is entered. Maybe there's a different way to do it, for example: disable the next page?

 

[Jaafar Tribak]

It actually didn't do anything for me (I don't think the subs were executed). I tried the KeyDown and MouseDown and it didn't work either.

What I like to happen is when this textbox is empty VBA will prevent the user go to the next page until it is entered. Maybe there's a different way to do it, for example: disable the next page?

Can you try using the textbox Exit event ?