Procédure de vérification de remplissage des textbox ou autre champs à remplir

0/5 (5 avis)

Snippet vu 6 139 fois - Téléchargée 45 fois

Commenter

Contenu du snippet

Pour vérifier si l'utilisateur à bien rempli tous les champs

Source / Exemple : 


Procédure de vérification de remplissage des TextBox ou autre champs à remplir

Appel de la Proc

Nom Procédure, Texte message, Nom Form et TextBox

ManqueChamp "Genre non renseigné !", FrmFicheFilm.TxtGenre

Public Sub ManqueChamp(Text$, Box As Object)
    On Error GoTo TraiteErreur:

    Titre$ = "Champ non renseigné !" ' Donne le titre de la messageBox
    Style = vbInformation ' Lui donne le panneau
    Box.SetFocus ' Donne le focus à la textBox non renseignée
    MsgBox Text$, Style, Titre$
 Exit Sub
 
TraiteErreur:
    réponse = MsgBox(Err.Description, 34, "ATTENTION")
    
    Select Case réponse
        Case 4
            Resume
        Case 5
            Resume Next
    End Select
    
End Sub

A voir également

Ajouter un commentaire Commentaires
Dalida Messages postés 6728 Date d'inscription mardi 14 mai 2002 Statut Contributeur Dernière intervention 11 janvier 2016
4 sept. 2002 à 23:24
désolé Yoman, je suis encore dans les debuts et si ce source etait pour les Newbies, y'a pas grand monde qui se mettrait a VB...

pas de mechancete gratuite, mais la je vois pas l'interet, sois il est trop tard soit j'ai pascompris ou était la verification. l'aurait pas fallu l'intiuler "envoyer un message a l'utilisateur en prenant son temps et des ressources systeme et (tenter de...) recuperer la reponse??????

d'ailleurs, j'imagine meme pas si j'avais ete oblige de taper 4 lignes pour afficher mon premier "Hello world!"
VicoLaChips2 Messages postés 436 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 2 février 2010 2
8 juin 2002 à 19:10
Bonne approche ! quoi que... Il faut savoir Que le fait de taper sur le clavier de l'ordinateur provoque trois procédures évènementiels dans VB... Bon au risque de paraitre faignant je vais faire court : Keydown (quand la touche est enfoncé), KeyPress (quand la touche vient être préssée et n'a pas encore envoyé une information à l'écran...), KeyUp (quand la touche vient d'être relaché et que l'information sera sur l'écran)...

Voila :). Une petite remarque, dans la zone Euro pourquoi parler de $ ?? String c'est mieux car les français adorent ça les string's !!

@+
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 2
8 juin 2002 à 18:45
Pour les newbie et je voulais savoir pkoi tu ne fait pas plutot:
MsgBox Text$, vbInformation, "Champ non renseigné !"
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 2
8 juin 2002 à 18:45
Pour les newbie et je voulais savoir pkoi tu ne fait pas plutot:
MsgBox Text$, vbInformation, "Champ non renseigné !"
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 2
8 juin 2002 à 18:45
Pour les newbie et je voulais savoir pkoi tu ne fait pas plutot:
Box.SetFocus ' Donne le focus à la textBox non renseignée
MsgBox Text$, vbInformation, "Champ non renseigné !"
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 (cs_Game69)