Discussion :

[navis84]

Bonjour à tous !

Je possède 2 DBLookUpComboBox sur une feuille.
La première sert à sélectionner une valeur, et la deuxième affiche des valeurs en fonction de la 1ère choisie selon la requete paramétrée suivante : (qui se trouve dans mon objet Query)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
SELECT ac_code, ac_lib 
FROM action, participation
WHERE action.ac_code = participation.pa_code_ac
AND participation.pa_etudiant = :w_etud

Or, sur l'évenement OnCloseUp de ma première DBLookUpComboBox, j'ai mis le code suivant qui ne marche pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
    qry1NewAction.Close;
    qry1NewAction.ParamByName('w_etud').AsString := cbxEtudiant.KeyValue;
    qry1NewAction.Open;
    cbxActionEtud.KeyField := qry1NewAction.FieldValues['ac_code'];
    cbxActionEtud.ListField := qry1NewAction.FieldValues['ac_lib'];

Comment faire pour attribuer aux propriétés KeyField et ListField de ma 2è DBLookUpComboBox (cbxActionEtud) les valeurs choisies dans ma 1ère DBLookUpComboBox (cbxEtudiant) ??

Merci d'avance pour votre aide.

[Amenofis]

Salut,

...le code suivant qui ne marche pas...

c'est à dire ??

quel est le "résultat" obtenu ?

as-tu essayé d'utiliser la propriété Text du DBLookUpCombo (après test de validité) plutôt que KeyValue ?

@+

[navis84]

...le code suivant qui ne marche pas...

c'est à dire ??

quel est le "résultat" obtenu ?

En fait, l'application plante et j'obtiens le message d'erreur suivant :


J'ai essayé la propriété Text, mais le debuggueur dit "affectation impossible à une propriété en lecture seule"...

Normalement, pour remplir une DBLookUpCombo, il faut remplir les propriétés ListSource, KeyField et ListField, non ?

Quel est le code que je pourrais mettre pour mon cas svp ?...

[Amenofis]

Re,

Je comprends pas pourquoi tu as une erreur d'affectation puisque tu lis la propriété, c'est à ce niveau qu'il faut utiliser le .Text

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

qry1NewAction.ParamByName('w_etud').AsString := cbxEtudiant.Text; {au lieu de KeyValue}

Pour ce qui est de ton erreur, le texte dis en substance que le champ que tu demandes n'existe pas... Es tu sûr de tes requêtes et as tu effectivement des retours ?? A quel moment as-tu cette erreur ? Après sortie du premier combo ? Avant ? Essayes d'inverser ces deux lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
cbxActionEtud.KeyField := qry1NewAction.FieldValues['ac_code'];
cbxActionEtud.ListField := qry1NewAction.FieldValues['ac_lib'];

devient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
cbxActionEtud.ListField := qry1NewAction.FieldValues['ac_lib']; 
cbxActionEtud.KeyField := qry1NewAction.FieldValues['ac_code'];

Pour répondre à ta question : oui ; à condition que ces propriétés pointent sur des choses qui existent...

@+[/code]

[navis84]

Salut !

Le debugueur ne trouve pas d'erreur sur la ligne où il y a le .Text, par contre, pour les 2 autres, il s'affiche ça :



Je ne comprends pas, vu qu'il existe des valeurs dans ma première DBLookUpCombo....

@+

[Amenofis]

Salut,

Tu es sûr d'avoir un retour avec ta requête ?

Ton erreur semble indiquer que le champ est Null donc vide

c'est normal dans ce cas que tu es une erreur... pose un dbgrid pour voir ton retour de requete...

@+

[navis84]

Salut !

En fait, je n'avais pas renseigné le type du paramètre dans ses propriétés...
Maintenant ça marche.

Merci de ton aide Amenofis !
@+