Exemple de validation de données

Commenter

Contenu du snippet

Validation des données contenues dans des textbox. Utilise le 'Tag' du contrôle concerné.

Cette fonction peut se révéler utile pour valider les données avant leur sauvegarde dans une database, par exemple.

Source / Exemple : 


Function IsValid() As Boolean
Dim Ctl As Control
    For Each Ctl In Controls
        If TypeOf Ctl Is TextBox Then
            Select Case Ctl.Tag
                Case "r"                                 'Le champs est requis
                If Len(Trim(Ctl.Text)) = 0 Then     
                    MsgBox Ctl.DataField & " : La donnée est requise !", vbExclamation
                    Ctl.SetFocus
                    SendKeys "^{HOME}+^{END}", True
                    Exit Function
                End If
                Case "n"                                'Champs requis numérique
                If Not IsNumeric(Ctl.Text) Then    
                    MsgBox Ctl.DataField & " : La donnée doit être numérique !", vbExclamation
                    Ctl.SetFocus
                    SendKeys "^{HOME}+^{END}", True
                    Exit Function
                End If
                Case "+"                                'Champs requis positif
                If Not (IsNumeric(Ctl.Text) And Val(Ctl.Text) > 0) Then
                    MsgBox Ctl.DataField & " : La donnée doit être numérique positive !", vbExclamation
                    Ctl.SetFocus
                    SendKeys "^{HOME}+^{END}", True
                    Exit Function
                End If
                Case "-"                                 'Champs requis négatif
                If Not (IsNumeric(Ctl.Text) And Val(Ctl.Text) < 0) Then
                    MsgBox Ctl.DataField & " : La donnée doit être numérique négative !", vbExclamation
                    Ctl.SetFocus
                    SendKeys "^{HOME}+^{END}", True
                    Exit Function
                End If
            End Select
        End If
    Next
    IsValid = True
End Function

Conclusion :


dans la propriété 'Tag' de chaque textbox concerné, entrer :

r si le champs est requis

n si le champs est requis et numérique

+ si le champs requis est numérique positif

- si le champs requis est numérique négatif

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Cugel)