Validation formulaire

Soyez le premier à donner votre avis sur cette source.

Vue 6 638 fois - Téléchargée 435 fois

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

Ajouter un commentaire

Commentaire

Signaler
cs_noe
Messages postés
38
Date d'inscription
mardi 28 mai 2002
Statut
Membre
Dernière intervention
24 décembre 2003
 -
bonjour

petit sousis message "remplissez touts les champs"
mais le champ date de départ non accesible

a+
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)