Champs obligatoire forms10g [Résolu]

[bigmyc]

Bonjour,

Je suis débutant sur Forms10G, je veux ajouter une règle de contrôle dans mon application form qui stipule que :

* lors du clique sur un bouton valider, tout les champs doivent être renseigné

J'ai essayé de rendre l'option Obligatoire des éléments en OUI

mais elle marche que si on clique sur l'élément

Merci pour vos propositions

Cordialement,

[tunis71187]

Il faut faire un test sur les champs obligatoires.

par exemple pour le champ 1:

Code :

1
2
3
4
5
IF :champ1 IS NULL then
              vos instructions
          else
               commit;
          end IF;

[bigmyc]

L'idéal serait de faire cette vérification pour chaque élément ce qui va alourdir un peu mon traitement,

donc je me demandais en fait est ce qu'il y a pas un moyen avec forms pour faire ce contrôle

[bigmyc]

J'ai trouvé un moyen de faire, pour faire la vérification des champs obligatoires même si on ne clique pas dessus :

Code sql :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
declare 
	l$nmblck varchar2(100) ; 
begin 
	l$nmblck := 'NOM_BLOCK' ; 
	go_block(l$nmblck) ; 
 
  Loop 
  	IF (Get_Item_Property(:system.current_item ,ITEM_TYPE) = 'TEXT ITEM' OR Get_Item_Property(:system.current_item ,ITEM_TYPE) = 'LIST')
  		then
    IF  name_in(l$nmblck||'.'||:system.current_item )  IS NULL AND Get_Item_Property(:system.current_item ,REQUIRED) = 'TRUE')
   	then 
  message ('merci de renseigner le champs '||:system.current_item);
  go_item(:system.current_item ) ; 
  raise form_trigger_failure ; 
 
  end IF ; 
  end IF;
 
  IF(:system.current_item = get_block_property(l$nmblck,last_item) ) 
	then 
	exit ; 
  end IF;
  next_item  ; 
end loop ;
end ;

J'espère que ça va aider d'autres personnes

Cordialement.