Discussion :

[MacGeol]

Bonjour à tous,

Je développe depuis un moment une base de données de contacts avec pas mal de VBA derrière.
J'ai, dans une version où tout fonctionnait, ajouter beaucoup de données et désormais un des formulaires qui fonctionnait avec quelques dizaines de contacts ne fonctionne désormais plus avec quelques centaines de contacts. Je ne sais pas si c'est lié au nombre de contact, a des valeurs erronées dans l'un ou plusieurs de ces centaines de contacts, ou a autre chose en tout cas désormais l'expression de requête ci-dessous ne fonctionne plus elle entraine un message d'erreur

"Cette expression présente une syntaxe incorrecte, ou est trop complexe pour être évaluée. ..."

Voici l'expression n en question en mode SQL :

Code :

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

1
2
3
SELECT R_Contacts_tous_complet.ID_RELATION_C, R_Contacts_tous_complet.Contact_Nom, R_Contacts_tous_complet.Classer_sous
FROM R_Contacts_tous_complet
WHERE R_Contacts_tous_complet.Contact_Nom Like "*" & forms![Ajouter au groupe]!SrchText & "*" And Eval([ID_RELATION_C] & " not in (" & nz(forms![Ajouter au groupe]!txtNonDispo,"-1") & ")")=True;

Cette expression de requête nommée "R_Recherche_Contacts" est utilisée pour remplir une liste de contact dans un formulaire avec une zone de recherche.

Sui quelqu'un à une idée de pourquoi cette requête fonctionnait à merveille et ne fonctionne désormais plus.

D'avance un grand merci, j'y suis depuis 3h.

[Jean-Philippe André]

Salut,

c'est un peu excessif de vouloir passer par un Eval, simplifie par

Code :

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

1
2
3
4
dim strSQL as String
strSQL = "SELECT R_Contacts_tous_complet.ID_RELATION_C, R_Contacts_tous_complet.Contact_Nom, R_Contacts_tous_complet.Classer_sous"
strSQL = strSQL & " FROM R_Contacts_tous_complet"
strSQL = strSQL & " WHERE R_Contacts_tous_complet.Contact_Nom Like '*" & forms![Ajouter au groupe]!SrchText & "*' And [ID_RELATION_C] not in (" & nz(forms![Ajouter au groupe]!txtNonDispo,"-1") & ")"

[MacGeol]

Bonjour,

Merci pour cette réponse rapide.
Effectivement, le "Eval" n'est pas du meilleure effet mais la requête n'est pas dans le cadre d'une sub mais est une définition de requête.
Aussi, je suis passé par l'"Eval" pour pouvoir ajouter la condition

Code :

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

[ID_RELATION_C] NOT IN nz(forms![Ajouter au groupe]!txtNonDispo,"-1"))

Que je n'arrivais pas mettre en définition de requête en tant que tel en msSQL.

Y'aurait-il donc un moyen d'éviter l'"Eval" tout en restant dans la définition de la requête et non dans une fonction ou sub?

D'avance merci

[Jean-Philippe André]

Tu peux deja nous indiquer si tu as dans ton txtNonDispo une information du style
1
ou
1, 2 ,3

Auquel cas le NOT IN est inutile egalement

[MacGeol]

Et oui, évidemment dans txtNonDispo l'information peut-être du type "1" ou "1,2,3" sinon effectivement je ne m'embêterais pas avec un "NOT IN".
Et c'est bien la la difficulté que j'avais rencontrée et qui m'avait amené à utiliser "eval".

Merci d'avance

[MacGeol]

Bonjour,

Toujours pas de solution...
J'ai passé un peu de temps en fin de journée hier et en début de journée aujourd'hui pour re-vérifier que les paramètres entrants "SrchTxt" et "txtNonDispo" n'envoyaient pas des valeurs étonnées qui auraient pu provoquer une requête fausse.
Mais non tout fonctionne "SrchTxt" contient bien une chaîne vide au démarrage et "TxtNonDispo" contient bien une chaîne du type "1" ou "1, 2, 3".
C'est donc bien l'utilisation de "Eval" qui doit poser problème, mais je n'arrive pas à traduire autrement en requête SQL ce que je veux.
J'avais pourtant mis en place cette solution qui permettait d'éviter de passer par une SrchTxt.onChange ou un SrchTxt.afterUpdate que je trouve plus lourd.

Merci d'avance pour vos conseils

[Jean-Philippe André]

Ok,

alors cette requete elle alimente quoi ? Pourquoi ne pourrais tu pas passer par un evenement detecte par le VBA qui va modifier a la volee le SQL d'alimentation comme je te l'ai propose ?

[MacGeol]

Bonjour,

Oui se serait également possible. Je vais tenter le coup.
Pour info la requête alimente une liste.
En fait c'est une formulaire de gestion de groupe pour ajouter ou retirer des membres au groupe.
A gauche il y a une liste contenant l'ensemble des contacts sauf ceux déjà dans le groupe (et éventuellement ceux correspondant à la recherche si TxtSearch contient quelque chose) et une liste à droite contenant les membre du groupe (dont les id sont reporté dans TxtNonDispo).
On peut sélectionné dans la liste de gauche un ou plusieurs membre pour les faire passé dans la liste de droite.
Et inversement sélectionner des membres du groupe dans l liste de droite et les retirer du groupe (et ils sont de nouveau dispo dans la liste de gauche).
Et donc il faut que la liste d gauche se mette à jour dynamiquement.
C'est pourquoi j'avais trouvé plus simple que la liste de gauche soit alimenté par une requête dont les variable sont pris dans TxtNonDispo et TxtSearch.
Il faut donc que la requête se mettre à jour lorsqu'il y a mise à jour du contenu de TxtSearch ou du contenu de TxtNonDispo.
J'essaie de développer une version alternative comme ça et vous tiens au courant.
Ca aurait tellement plus simple de trouver une écriture de la requête qui fonctionne... donc si proposition je suis preneur également.

MERCI

[MacGeol]

Bien j'ai donc remplacée la requête par l'appel à une fonction construisant strSQL pour attribuer le rowsource à la liste à chaque mise à jour.
Et cela fonctionne.
Et ça n'a pas l'air plus lourd.

Merci beaucoup donc pour m'avoir aiguillé vers la bonne solution and évitant le "eval".

J'ai désormais un autre petit souci mais cela n'est pas lié à la requête.
Si je ne trouve pa slalom solution, je me permettrait donc d'ouvrir une nouvelle discussion mais dans une autre partie du forum.

Merci encore