Bonjour,
si je comprend bien tu veux vérifier les champs pour savoir s'il sont remplie et afficher ceux qui sont vide dans un libeler en bas de l'écran
1. Tu déclard une variable global
gsChampVide est une chaîne
2. tu crée une procedure qui va afficher ou non ton libeler
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| PROCEDURE prlAfficheChampVide(sLeChamp est une chaîne, bAfficheLe est un booléen)
SI bAfficheLe ALORS
SI Position(gsChampVide,sLeChamp) = 0 ALORS //verifi si il est déjà là
gsChampVide += sLeChamp+", "
FIN
SINON
gsChampVide = Remplace(gsChampVide,sLeChamp+", ","")
FIN
SI gsChampVide = "" ALORS
LIB_AfficheChampVide = ""
SINON
LIB_AfficheChampVide = "Le(s) champ(S) suivant sont vide : " + gsChampVide
FIN |
3. Dans chaque champ dans la partie "A chaque modification de SAI..."
1 2 3 4 5
| SI Taille(MoiMême) = 0 ALORS
prlAfficheChampVide(MoiMême..Libellé,Vrai)
SINON
prlAfficheChampVide(MoiMême..Libellé,Faux)
FIN |
de la tu pouras modifier la procedure pour quelles répond exactement a tes besion
a+
Partager