Test Entrée TextBox

[BerJean]

Bonjour à tous,

L'utilisateur rentre dans une TextBox un code de six Chiffres.

Comment tester cette entrée pour s'assurer que l'utilisateur saisi bien

six chiffres ? Si quelqu'un peut m'aider ...

Berjean

 

[Pascal76]

Bonjour

Peux-tu tester ce bout de code

J'ai nommé ton textbox Tbx_Code



If Not IsNumeric(Me.Tbx_Code.Value) Then
MsgBox "Erreur sur la saisie du codel." & Chr(13) & "Veuillez le ressaisir à nouveau. Merci.", vbCritical + vbOKOnly, _
"Erreur."
Me.Tbx_CodePostal.Value = ""
Exit Sub
End If
If Me.Tbx_Code.Value Like "??????" Then
Else
MsgBox "Un code contient 6 chiffres." & Chr(13) & "Veuillez le ressaisir à nouveau. Merci.", vbCritical + vbOKOnly, _
"Erreur."
Exit Sub
End If

Bon courage

Pascal

 

[BerJean]

Bonsoir à tous,

Merci Pascal ton code fonctionne parfaitement !

Salutations