Fabriquer une commande générique pour..

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

à 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

---

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" :mrgreen:

merci encore