runtime error 2110

[ApolloShine]

Still new with VBA, using only what i have learned online and on these forums lol.
I have created a multipage userform in excel.

i entered a code to set focus on blank text before moving on to the next page when clicking "next" however i keep getting Run-time error '2110'
"Cant move focus to the control because it is invisible, not enabled, or of a type that does not accept the focus".

i think it may be because it is still moving on to page 2 instead of keeping the blank textbox active.

the code i am using is

Private Sub nextbtn_Click()
With MultiPage1
.Value = (.Value + 1) Mod (.Pages.Count)
End With

If Not IsDate(Me.calldate.Value) Then
MsgBox "The date box must contain date"
Me.calldate.SetFocus
Exit Sub
End If


Thanks for all the help

 

[AlphaFrog]

Your code is setting focus after it changes the multipage.

Try something like this. Change the MultiPage1 value to the page that contains calldate

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] nextbtn_Click()
    
    [COLOR=darkblue]With[/COLOR] MultiPage1
    
        [COLOR=darkblue]If[/COLOR] .Value = [COLOR=#ff0000]0[/COLOR] [COLOR=darkblue]Then[/COLOR]  [COLOR=green]'Page that contains calldate[/COLOR]
            [COLOR=darkblue]If[/COLOR] [COLOR=darkblue]Not[/COLOR] IsDate(Me.calldate.Value) [COLOR=darkblue]Then[/COLOR]
                MsgBox "The date box must contain date"
                Me.calldate.SetFocus
                [COLOR=darkblue]Exit[/COLOR] [COLOR=darkblue]Sub[/COLOR]
            [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
        [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
        
        .Value = (.Value + 1) Mod (.Pages.Count)
        
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
    
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

 

[ApolloShine]

the post before the edit worked!! could you repost it again please

 

[AlphaFrog]

the post before the edit worked!! could you repost it again please

Did you lose it?

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] nextbtn_Click()
    
    [color=darkblue]If[/color] [color=darkblue]Not[/color] IsDate(Me.calldate.Value) [color=darkblue]Then[/color]
        MsgBox "The date box must contain date"
        Me.calldate.SetFocus
        [color=darkblue]Exit[/color] [color=darkblue]Sub[/color]
    [color=darkblue]End[/color] [color=darkblue]If[/color]
    
    [color=darkblue]With[/color] MultiPage1
        .Value = (.Value + 1) Mod (.Pages.Count)
    [color=darkblue]End[/color] [color=darkblue]With[/color]
    
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[ApolloShine]

Thank you SOOOO much.

accidently deleted sheet