useform multipage

[Agnès]

bonsoir

je souhaiterais, que dans un useform multipage, si -par exemple- tous les renseignements sur la page 1
n'ont pas été renseignés et qu'on clique sur la page 2 il revienne (le focus?) sur la page 1

j'ai essayé - sans succès-

private sub Page1_Change()
if textbox1='' then
msgbox blabla
multipage.value =1
end if
end sub

quelqu'un aurait-il une proposition ?

merci d'avance

 

[Hervé]

Bonsoir agnès

peut etre pourrait tu essayé comme ceci :

Private Sub MultiPage1_Change()
If Not MultiPage1.Value = 0 Then
        If TextBox1 = '' Then
                MsgBox 'blablabla'
                MultiPage1.Value = 0
        End If
End If
End Sub

surement à adapter.

salut

 

[Agnès]

ça roule

et en mettant

MultiPage1.Value = 0
avant
MsgBox 'blablabla'

c'est encore mieux car visuellement on ne change pas de page

 

[Agnès]

ça roule

et en mettant

MultiPage1.Value = 0
avant
MsgBox 'blablabla'

c'est encore mieux car visuellement on ne change pas de page