Bonjour,
je dois valider des donnees contenues dans un textbox.
Dans mes modules, j'ai une fonction qui verifie si la valeur est permise et, si elle ne l'est pas, affiche un MsgBox indiquand que la valeur n'est pas permise.
Mon probleme est qu'une fois le message affiche, le textbox suivant est active.
Comment fait-on pour arreter l'incrementation du tabindex?
Merci
Dan
je dois valider des donnees contenues dans un textbox.
Dans mes modules, j'ai une fonction qui verifie si la valeur est permise et, si elle ne l'est pas, affiche un MsgBox indiquand que la valeur n'est pas permise.
Mon probleme est qu'une fois le message affiche, le textbox suivant est active.
Comment fait-on pour arreter l'incrementation du tabindex?
Merci
Dan
Code:
Private Sub txtCedPolNbND_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Call polnb(txtCedPolNbND.Value)
End Sub
Code:
Public Function polnb(pol)
If IsNumeric(pol) Then
If Not Len(pol) <= 15 Then
MsgBox ("Please enter a valid Cedind policy number")
End If
Else
MsgBox ("Please enter a valid Cedind policy number")
End If
End Function