Resp est une chaine
Resp=OuiNon("Voulez-vous cloturer le dossier N°+tbl_dossier.Num_dossier)
SI Resp=Oui ALORS
TableEnregistre(tbl_Dossier)
TableAffiche(tbl_Dossier,taCourantBandeau)
SINON
tbl_dossier.cloturer=0
FIN
SI Resp=Oui ALORS
TableEnregistre(tbl_Dossier)
SI TableSelect(tbl_Dossier)=1 ALORS
TableAffiche(tbl_Dossier)
SINON
TableAffiche(tbl_Dossier,taCourantBandeau)
FIN
SINON
tbl_dossier.cloturer=0
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=4839&post_id=20088