Bonjour,
J'ai des combo que je remplit à partir de fichiers
(J'ai des écrans de saisie pour ces fichiers)
Ces combo sont utilisé dans plusieurs écrans
Aussi j'ai fait une procédure unique pour ce remplissage, qui attend les paramètres : Nom de la fenêtre, nom de la combo, identifiant de l'enregistrement à utiliser)
L'appel se fait ainsi :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 PROCÉDURE Remplir_Combo(sFenetre, sCombo, sIdentifiantCombo ) gbOK= HExécuteRequête(REQ_LibelléCombo,hRequêteDéfaut, sIdentifiantCombo) SI gbOK = Vrai ALORS POUR TOUT REQ_LibelléCombo //////// info(REQ_LibelléCombo.CB_Libellé) SI REQ_LibelléCombo.CB_Identifiant=sIdentifiantCombo ALORS ListeAjoute(sFenetre+"."+sCombo,REQ_LibelléCombo.CB_Libellé) FIN FIN SINON Beep() Erreur("La requête n'a pas été exécutée.") RETOUR FIN
Je met cet appel dans la fin d'initialisation de chaque fenêtre qui utilise cette combo, en donnant bien sure à chaque fois
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Remplir_Combo("FEN_ElèveFiche","COMBO_LangueMaternelle",gsComboLangue)
Le problème, c'est que du coup cette procédure et sa requête est exécutée plusieurs fois, alors que les informations n'ont pas forcément changées
J'ai alors voulu mettre le lancement de ces procédures, du remplissage des Combo dans le code d'initialisation du projet
Là, j'ai une erreur, la fenêtre n'est pas connue !
J'ai voulu mettre alors ces appels dans la fin d'initialisation de la première fenêtre ouverte du projet Idem !!!
Comment faire ? Comment utiliser l'indexation indirecte ?
j'ai essayé :
Même erreur, fenêtre inconnue
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Remplir_Combo({"FEN_ElèveFiche",indFenêtre},{"COMBO_LangueMaternelle",indChamp},gsComboLangue)
Cordialement
SC
Partager