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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 298 fois - Téléchargée 41 fois

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
6764
Date d'inscription
mardi 14 mai 2002
Statut
Contributeur
Dernière intervention
11 janvier 2016
-
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
439
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
1 -
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
-
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
-
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
-
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é !"

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.