[AC-2003] Problème de liaison Requete/ Liste déroulante [Résolu]

[Marc_27]

Bonjour à tous,

Une fois de plus un problème qui je n'arrive pas à comprendre:

J'ai une requete SQL Directe basé sur des tables AS/400 (T_cb) qui marche sans aucun problème

Sur cette requete j'ai une autre requete qui j'utilise comme "Row Source" d'une liste deroulante d'une formulaire:

Code sql :

1
2
3
SELECT Format([CARTE],"&&&& &&&& &&&& &&&&") AS Carte_, RIGHT([FIN],2) & "/" & LEFT([FIN],4) AS Validité, T_cb.TITULAIRE
FROM T_cb
WHERE (((T_cb.NUMCOMPT)=[Forms]![F_as400]![lstComptes]) AND ((T_cb.FIN)>=CLng(Year(Date()) & Format(Month(Date()),"00"))));

Si je lance cette requete elle marche toujours, mais lorsque j'essaye d'ouvrir ma liste deroulante, j'ai souvent l'erreur:
"This expression is typed incorrectly, or is too complex to be evaluated. For Example, a numeric expression may contain too many complicated elements. Try simplifying the expression by assigning parts of the expression to variables."

Ce qui je ne compreds pas ce qui la requete marche toute seule mais pas dans la liste déroulante. J'ai déjà essayé de faire un nouveau formulaire, de mettre la requete directement dans la propriete "Row Source" mais elle BUG presque toujours (sauf quelques fois où elle marche bien)

Est-ce que quelqu'un aurait des idées?
Merci d'avance pour votre aide.

[loufab]

Bonjour,

Cela arrive parfois avec certains moteurs de recherche, notamment avec les paramètres de types Forms!... .

Solutions à tester :

- Ajoute dans ton code Sql la clause Parameters.

Code :

1
2
PARAMETERS [Forms]![F_as400]![lstComptes] Long;
SELECT Format([CARTE],"&&&& &&&& &&&& &&&&") AS ....;

Puis place le tout dans ta row source.

- Crée un objet requete avec ton code SQL (toujours avec PARAMETERS) sauve-le et appelle son nom dans la liste déroulante.

- Compose ta requete dans le code VBA au moment de l'ouverture de la liste et remplace le forms!... par la valeur.

Code :

1
2
3
4
5
vlsql = "SELECT Format([CARTE],'&&&& &&&& &&&& &&&&') AS Carte_, RIGHT([FIN],2) & '/' & LEFT([FIN],4) AS Validité, T_cb.TITULAIRE
FROM T_cb
WHERE (((T_cb.NUMCOMPT)=" & Forms![F_as400]![lstComptes] & ") 
AND ((T_cb.FIN)>=CLng(Year(Date()) & Format(Month(Date()),'00'))));"
me.maliste.rowsource = vlsql

Si le pb persiste remplace les fonctions par leur valeur suivant la même méthode.

Cordialement,

[Marc_27]

Bonjour loufab,

Merci de ta reponse.
En fait j'avais déjà essayé de mettre [Forms]![F_as400]![lstComptes] comme paramètre de la requete (dans l'editeur de requete, mais je crois qui c'est parail, non?), et ça n'a pas changé grande chose.

Je vais essayer tes autres idées pour voir s'elles marchent.



EDIT: Il semble marcher avec la dernière solution:

Code :

Si le pb persiste remplace les fonctions par leur valeur suivant la même méthode.

Je vais mettre un et s'elle BUG encore un efois je reviens.
Merci encore une fois