Fabriquer une commande générique pour..

[Vincent Heude]

Bonjour à tous

J'ai rédigé une commande pour que, dès que l'utilisateur sort d'un champ, un message lui rappelle que ce champ doit être renseigné. Tout fonctionne;

Maintenant, comme je prévois, pour ma base, que cette commande va être utilisée 50 fois environ, j'aimerais la rendre générique et la mettre en méthode projet pour l'appeler à chaque fois que nécessaire. Je n'ai pas trouvé la commande du type "Champ courant->" comme elle existe pour un formulaire.

Voici ma méthode

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
C_BOOLEEN(v_event_ok)
v_event_ok:=Vrai
Si (v_event_ok)
$Evt:=Evenement formulaire
Au cas ou 
: ($Evt=Sur perte focus)  //si l'utilisateur va sur un autre champ (tabulation ou clic souris) 
Si ([BENEVOLES]Titre="")
v_event_ok:=Faux
ALERTE("Ce champ doit être renseigné")
v_event_ok:=Vrai
ALLER A OBJET([BENEVOLES]Titre)
Fin de si 
Fin de cas 
Fin de si

Si vous avez une piste, je la prends volontiers

merci d'avance

[ZeFiF]

à la louche :
tu places dans ton objet :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
moncontrole(self)
******
 
//méthode moncontrole
si(type(self->)#est un alpha)&(type(self->)#est un texte)
$vt_valeur:=chaine(self->)
sinon
$vt_valeur:=self->
fin de si
 
si($vt_valeur="")|($vt_valeur="0")|($vt_valeur="00/00/00")
alerte("oops")
aller a objet(self->)
fin de si

[Vincent Heude]

Bonjour Philippe

Merci de ta réponse
c'est nickel

et si l'élève peut corriger le maître...
La bonne écriture est : "est un champ alpha" et non "est un alpha"

merci encore