Discussion :

[Tipstitou]

Bonjour,

Je travaille sur Access 2003.
J'ai un souci avec l'ajout d'une clause Where dans une requête.

Elle se situe dans un module : crea_ListeContacts.
Je dois ensuite lancer une sub pour son "interprétation" : maj_listeContacts (nombreuses mises en forme possibles des résultats en fonction de divers critères).

Je sais que la requête et la sub fonctionnent, puisque je les utilise pour une première liste.

Là, je souhaite créer une seconde liste, mais avec une clause Where.

J'ai donc écrit le code suivant :

Code :

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

1
2
3
4
5
6
    Dim strsql1 As String
 
    strsql1 = crea_ListeContacts & "WHERE (((b.IDContactsb)=" & IDContactsb.Value & "));"
 
    vide_ListeContactsLies
    maj_listeContactsLies strsql1

Cela semble fonctionner, puisque vérification faite avec le Debug.Print, il me renvoie bien ma requête avec mon Where correct.

Sauf qu'arrivé sur maj_listeContactsLies, il ne dépasse pas le :

Code :

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

1
2
3
4
    Dim connec As New Connection, Rst As New Recordset
 
    Set connec = CurrentProject.Connection
    Rst.Open req_sql, connec, adOpenStatic, adLockOptimistic

et me renvoie : "Caractères trouvés après la fin de l'instruction SQL".

Si quelqu'un avait une petite idée pour me débloquer, ça serait génial.

Merci d'avance et bonne journée.

[Taoueret]

Essaie d'enlever le ; à la fin de ta requête

[Invité]

bONJOUR

Cela semble fonctionner, puisque vérification faite avec le Debug.Print, il me renvoie bien ma requête avec mon Where correct.

Attention, le debug.print t'affiche la chaine, mais ne l'interprète pas.

Peux-tu nous mettre cette requête crea_ListeContacts en visu ou ton debug.print, entre autre y a t'il bien un espace avant le Where, et deuxième chose, y a t'il un ; à la fin de la requête crea_ListeContacts ?

Philippe

[Tipstitou]

Et oui, j'avais bien un point virgule à la fin de ma requête.
J'ai honte

Merci beaucoup et bonne journée à tous.