Pb: Enter Query et Execute Query ?
Bonjour à tous,
Je travaille avec DevSuite 10g et XP. Actuellement, je developpe une application sous Forms.
J'ai un ITEM qui recoit une valeur d'une LOV.
Avec le menu par defaut, je procéde comme suit pour executer mon application:
Code:
1 2 3 4
|
1- Enter Query (menu)
2- Sélectionne une valeur de la LOV
3- Execute Query (menu) |
J'ai enlevé le menu par defaut. J'ai introduit du code dans le TRIGGER KEY-LISTVAL pour produire la meme demarche (ci-dessus), mais ca ne marche pas
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
BEGIN
ENTER_QUERY;
v_choix := Show_Lov('LOV_1');
IF NOT v_choix THEN
Set_Alert_Property( 'ALERT_1', ALERT_MESSAGE_TEXT, 'Vous n''avez pas selectionner un code !' ) ;
v_Alert := Show_Alert( 'ALERT_1' ) ;
Bell;
ABORT_QUERY;
RAISE Form_Trigger_Failure;
ELSE
SET_BLOCK_PROPERTY('Block_1', DEFAULT_WHERE, ':champ_1 := Condition');
EXECUTE_QUERY;
END IF;
END; |
Je ne vois pas comment procéder pour avoir une exécution sans passer par le menu.
Merci d'avance de votre aide.