Validating User Input

Le bouton Enregistrer du chapitre précédent enregistrera sans problème un nom de société vide ou une adresse e-mail erronée dans la table Customers, car rien dans cmdSave_Click ne vérifie d'abord les données. La validation est l'étape qui s'exécute avant l'enregistrement — elle permet de détecter les problèmes tant qu'ils sont encore faciles à corriger, plutôt qu'après qu'ils soient devenus de mauvaises données dans une feuille de calcul.

Champs obligatoires

La vérification la plus simple : cette TextBox est-elle encore vide ?

If Trim(txtCompanyName.Value) = "" Then
    MsgBox "Company Name is required."
    txtCompanyName.SetFocus
    Exit Sub
End If

Trim est ici plus important qu'il n'y paraît — un utilisateur qui saisit seulement quelques espaces et rien d'autre passerait un simple test = "", puisque " " n'est techniquement pas une chaîne vide, mais c'est tout aussi inutilisable que le vrai vide. SetFocus place le curseur clignotant directement dans le contrôle concerné, évitant à l'utilisateur de chercher quel champ doit être corrigé — une petite attention qui rend un formulaire nettement plus soigné.

Validation numérique

IsNumeric vérifie si une valeur peut être convertie en nombre, sans tenter réellement la conversion et risquer une erreur :

If Not IsNumeric(txtReorderLevel.Value) Then
    MsgBox "Reorder Level must be a number."
    txtReorderLevel.SetFocus
    Exit Sub
End If

C'est la vérification qui aurait détecté "twenty" saisi dans un champ numérique, exactement comme illustré dans la capture d'écran ci-dessus. Ce n'est qu'après cette vérification qu'il est sûr d'écrire du code comme CInt(txtReorderLevel.Value) plus loin dans la Sub — valider d'abord et convertir ensuite signifie que la conversion ne peut jamais échouer de façon inattendue.

Validation de date

IsDate suit le même principe, appliqué aux dates au lieu des nombres :

If Not IsDate(txtOrderDate.Value) Then
    MsgBox "Order Date must be a valid date."
    txtOrderDate.SetFocus
    Exit Sub
End If

Messages d'erreur qui regroupent tous les problèmes en une seule fois Les trois vérifications ci-dessus font toutes un Exit Sub dès qu'elles trouvent un problème — ce qui convient pour un formulaire court, mais devient frustrant sur un formulaire plus long, où l'utilisateur corrige une erreur pour en rencontrer immédiatement une autre. Un modèle plus abouti consiste à constituer une liste de tous les problèmes avant d'afficher un message combiné unique :

Private Sub cmdSave_Click()
    Dim errors As String
 
    If Trim(txtCompanyName.Value) = "" Then
        errors = errors & "- Company Name is required" & vbNewLine
    End If
 
    If Not IsNumeric(txtReorderLevel.Value) Then
        errors = errors & "- Reorder Level must be a number" & vbNewLine
    End If
 
    If errors <> "" Then
        MsgBox "Please fix the following:" & vbNewLine & errors, _
            vbExclamation
        Exit Sub
    End If
 
    ' ... all checks passed, safe to save now
End Sub

Il s'agit de la même technique de construction de chaîne que dans la macro d'alerte de stock du chapitre précédent — errors commence vide, et chaque vérification échouée ajoute une ligne supplémentaire au lieu de quitter immédiatement. Ce n'est qu'après avoir effectué toutes les vérifications que la Sub regarde si errors est resté vide ou non, ce qui permet à l'utilisateur de voir tous les problèmes de saisie en une seule fois au lieu d'un aller-retour frustrant par erreur.

Tâche

1. Réécrire cmdSave_Click de la tâche du chapitre précédent pour construire une chaîne d’erreurs, en vérifiant que Company Name, Contact et Email ne sont pas vides.
2. Ajouter une quatrième TextBox, txtReorderLevel, uniquement pour cet exercice, et la valider avec IsNumeric.
3. Afficher une seule MsgBox combinée listant tous les problèmes, en utilisant vbExclamation comme icône, et ne passer au code ListRows.Add que si la variable errors est vide.
4. Tester en laissant tous les champs vides et en cliquant sur Save — vérifier que toutes les lignes d’erreur attendues apparaissent dans un seul message.