Validation formulaire

Télécharger le projet
Commenter

Description

Petit code afin de reviser ou d'apprendre comment on valide des données entrées dans un formulaire

Source / Exemple : 


Private Sub txtName_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub txtNumDays_KeyPress(KeyAscii As Integer)
    If Chr(KeyAscii) = vbBack Or Chr(KeyAscii) = "-" Or Chr(KeyAscii) = "(" Or Chr(KeyAscii) = ")" Then Exit Sub
    If Not IsNumeric(Chr(KeyAscii)) Then
        Beep
        KeyAscii = 0
        staAdditionalInfo.Panels("addInfo").Text = "Valeur numerique uniquement."
    End If

End Sub

Private Sub txtNumDays_LostFocus()
    If MaskEdBox1.ClipText <> "" And txtNumDays.Text <> "" Then
        txtCheckOut.Text = Format(DateAdd("d", Val(txtNumDays.Text), MaskEdBox1.Text), "dd-mm-yyyy")
    End If
End Sub

Private Sub txtNumPeople_KeyPress(KeyAscii As Integer)
    If Chr(KeyAscii) = vbBack Or Chr(KeyAscii) = "-" Or Chr(KeyAscii) = "(" Or Chr(KeyAscii) = ")" Then Exit Sub
    If Not IsNumeric(Chr(KeyAscii)) Then
        Beep
        KeyAscii = 0
        staAdditionalInfo.Panels("addInfo").Text = "Valeur numerique uniquement."
    End If

End Sub

Private Sub txtPhone_KeyPress(KeyAscii As Integer)
    If Chr(KeyAscii) = vbBack Or Chr(KeyAscii) = "-" Or Chr(KeyAscii) = "(" Or Chr(KeyAscii) = ")" Then Exit Sub
    If Not IsNumeric(Chr(KeyAscii)) Then
        Beep
        KeyAscii = 0
        staAdditionalInfo.Panels("addInfo").Text = "le numero de téléphone est numerique."
    End If
End Sub

Conclusion :


ceci est un exemple qui permet de se familiariser avec la validation au niveau champ ou au niveau feuille
Télécharger le projet

Codes Sources

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 (xvanneste)