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.