La validation du format d'un objet userform zone de texte d'entrée

J'ai un UserForm pour une base de données extracteur de données, je suis en train de faire. Dans elle il y a une zone de texte pour taper le numéro de la pièce que l'utilisateur souhaite extraire les données. Je veux vérifier que l'utilisateur a entré le bon format de numéro de la pièce avant de la majeure partie de l'extracteur fonctionne. Pour ce faire j'ai besoin d'un code pour valider que le texte est entré dans le format spécifique:

3 Caractères Numériques
1 Caractère Alphabétique ou 1 Hyphon
de 5 Caractères Numériques

J'ai essayé les validations au premier abord:

'validate that box is not empty 

If TextBox1.Value = "" Then 

MsgBox ("Sorry, you need to provide an Amount") 

TextBox1.SetFocus 

Exit Sub 

End If 


'validate that box is numeric 

If Not IsNumeric(TextBox1.Value) Then 

MsgBox ("Sorry, must enter a numer") 

TextBox1.SetFocus 

Exit Sub 

End If

Mais ensuite j'ai réalisé que j'ai eu le problème qu'il peut y avoir un caractère alphabétique char ou hyphon en quatrième position.

Je vous serais reconnaissant de toutes les suggestions.

Merci d'avance.

  • Qu'avez-vous essayé jusqu'à présent? De toute façon prendre un coup d'oeil ici pour obtenir de char à certains postes: stackoverflow.com/questions/17127272/... Et vous pouvez ensuite tester les caractères, ou vous pouvez extraire la sous-chaîne et de les analyser (IsNumeric() etc ...)
  • J'ai déjà le texte suivant: "valider que la boîte n'est pas vide Si TextBox1.Value = "" then MsgBox ("Désolé, vous devez fournir une Quantité") TextBox1.SetFocus Exit Sub End if 'valider cette boîte est numérique Si Pas IsNumeric(TextBox1.Valeur) then MsgBox ("Désolé, doit entrer un nombre") TextBox1.SetFocus Exit Sub End if Mais ensuite j'ai réalisé que j'aurais de compte pour un caractère alphabétique ou hyphon dans la 4ème position, j'ai donc besoin de modifier le code, mais je suis nouveau sur ce donc, ne savait comment faire, je vais être capable de faire le char méthodes, donc merci
InformationsquelleAutor Lewis Heslop | 2014-07-22
  1. 2

    Un débutant moyen de vérifier cette entrée est juste à couper la chaîne d'entrée et de comparer les pièces requises:

    Const alpha as String = "abcdefghijklmnopqrstuvwxyz-"
Dim strValue as String
Dim msg as String
strValue = TextBox1.Value

'Make sure it's the right LENGTH
If Len(strValue) <> 9 Then 
    msg = "Please enter the ID as 3 numeric, 1 alpha/hyphen, 5 numeric"
    GoTo EarlyExit
End If

'Check the first three for numeric:
If Not IsNumeric(Left(strValue), 3) Then
    msg = "The first three characters should be numeric"
    GoTo EarlyExit
End If

'Check the middle character, assuming case not sensitive:
If Instr(1, alpha, Lcase(Mid(strValue, 4, 1)) = 0 Then 
    msg = "The fourth character should be hyphen or alphabet"
    GoTo EarlyExit
End If

'Check the last four characters
If Not IsNumeric(Right(strValue, 4)) Then
    msg = "The last four characters should be numeric"
    GoTo EarlyExit
End If

'If you've gotten here, then the input is validated:
Exit Sub 

EarlyExit:
MsgBox msg
TextBox1.SetFocus
End Sub

    3 Caractères Numériques De 1 Caractère Alphabétique ou 1 Hyphon de 5 Caractères Numériques

    • Travaillé avec un peu de modification, merci!
    InformationsquelleAutor David Zemens