Discussion :

[obelix1990]

Bonjour,

j'essaie d'effectuer cette requête afin de vérifier si le nom entré existe déjà dans la base de données avec le code suivant (qui ne fonctionne pas:

Code :

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

1
2
3
 
Requete = "SELECT Count(t_Grenadiers.Numéro) AS Compte FROM t_Grenadiers WHERE (((t_Grenadiers.Nom)=" & Selection_Nom & "));"
test = CurrentDb.OpenRecordset(Requete).Fields(0).Value

Par contre si j'utilise le code suivant cela fonctionne:

Code :

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

1
2
3
4
5
6
7
 
Function SetSelectionNom()
SetSelectionNom = Selection_Nom
End Function
 
Requete = "SELECT Count(t_Grenadiers.Numéro) AS Compte FROM t_Grenadiers WHERE (((t_Grenadiers.Nom)=SetSelectionNom()));"
test = CurrentDb.OpenRecordset(Requete).Fields(0).Value

Pouvez-vous me dire où se trouve mon erreur?

Merci

[tee_grandbois]

bonsoir,
peut-être à cause des double-quotes manquantes :

Code :

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

1
2
3
 
Requete = "SELECT Count(t_Grenadiers.Numéro) AS Compte FROM t_Grenadiers WHERE (((t_Grenadiers.Nom)=""" & Selection_Nom & """));"
test = CurrentDb.OpenRecordset(Requete).Fields(0).Value

Dcount fonctionne aussi

Code :

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

1
2
 
test = Dcount("[Numéro]","[t_Grenadiers]","[Nom]=""" & Selection_Nom & """")

[Jean-Philippe André]

Hello,

la solution de tee_grandbois repond parfaitement, je la complete en t'indiquant que tu peux egalement utiliser comme caractere de champ texte les apostrophes

Code :

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

Requete = "SELECT Count(t_Grenadiers.Numéro) AS Compte FROM t_Grenadiers WHERE (((t_Grenadiers.Nom)='" & Selection_Nom & "'));"

L'avantage est de ne plus avoir a compter le nombre de guillemets, l'inconvenient est que si ton texte contient des apostrophes, il faudra les doubler :

Code :

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

Requete = "SELECT Count(t_Grenadiers.Numéro) AS Compte FROM t_Grenadiers WHERE (((t_Grenadiers.Nom)='" & Replace(Selection_Nom,"'","''") & "'));"

[tee_grandbois]

Bonjour Jean-Philippe,
autre solution utiliser la fonction Chr(34) qui renvoie une double apostrophe : cela a plus de caractère, mais çà fait aussi plus de caractères

Code :

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

Requete = "SELECT Count(t_Grenadiers.Numéro) AS Compte FROM t_Grenadiers WHERE (((t_Grenadiers.Nom)=" & Chr(34) & Selection_Nom & Chr(34) & "));"

[marot_r]

Bonjour à vous.

À propos de l'apostrophe (') comme délimiteur de champ texte, prendre garde à ce que les données n'en contiennent pas ou alors les doubler sinon cela va planter le SQL.
On devrait faire la même chose avec le guillemet (") mais il est plus rare d'en avoir dans un texte.

A+

[obelix1990]

Bonjour,
un tout grand merci à vous tous.... Pour le moment, j'ai retenu la solution avec les ', mais je suis aussi séduit par chr$(34)....
Où pourrais-je trouver une doc concernant ces différentes syntaxes?

Merci encore... On peut perte parfois beaucoup de temps avec ce genre de problèmes surtout quand on débute...

Code :

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

1
2
3
 
Requete = "SELECT Count(*) AS Compte FROM t_Marcheurs WHERE" & _
"((([t_Marcheurs.Nom])='" & Selection_Nom & "' AND ([t_Marcheurs.Prénom])='" & Selection_Prenom & "'));"

[Jean-Philippe André]

un cours sur les requetes :
http://jeannot45.developpez.com/arti...tionrequetes1/

[obelix1990]

Bonjour,
je viens de regarder rapidement le tuto sur les requêtes, mais je n'ai rien vu concernant la syntaxe ( ', """, ...)
Existe-t-il une doc sur ce sujet?
Merci

[tee_grandbois]

Bonjour,
il n'y a pas de documentation concernant la syntaxe d'utilisation de l'apostrophe, C'est juste qu'il faut faire attention que l'on manipule des données contenant des caractères réservés (",*, & , /, =, + ...) ou que l'on nomme des objets avec des mots réservés : on ne devrait pas nommer une table TABLE ou un champ SELECT mais Access le permet car il met d'office les crochets quand on est dans l'interface graphique.
Certes, c'est pratique, surtout pour ceux qui persistent à utiliser ces mots réservés mais Access ne met pas les crochets dans les autres environnements (VBA ou en mode SQL).

Pour en revenir aux caractères ' ou ", ils sont d'utilisation relativement courante dans la langue française (dans le nom de personnes ou dans les adresses) et cela pose forcement des problèmes lorsque l'on doit construire une requête, car malgré l'utilisation de Chr() si ce caractère se trouve dans la chaîne construite cela va produire une erreur.
Un exemple :

Code :

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

Requete = "SELECT Count(*) FROM t_Marcheurs WHERE [Nom]='" & Selection_Nom & "' AND [Prénom]='" & Selection_Prenom & "';"

avec nom D'Harcourt et prénom Jean, Requete aura comme valeur :

Code :

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

 "SELECT Count(*) FROM t_Marcheurs WHERE [Nom]='D'Harcourt' AND [Prénom]='Jean';"

cela aura pour conséquence de provoquer une erreur de syntaxe.
Le seul moyen sera de supprimer le caractère à la fois dans le critère et dans le champ de la sélection :

Code :

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

 "SELECT Count(*) FROM t_Marcheurs WHERE Replace([Nom],Chr(39),"")='" & Replace([Selection_Nom],Chr(39),"") & "' AND [Prénom]='" & Selection_Prenom & "';"

Remarque :Chr(39) est le code numérique pour l'apostrophe. Et le résultat sera :

Code :

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

 "SELECT Count(*) FROM t_Marcheurs WHERE Replace([Nom],Chr(39),"")='DHarcourt' AND [Prénom]='Jean';"

Ce genre de problème ne se résout pas en consultant la documentation en ligne mais uniquement avec l'expérience ou en parcourant les forums.

[obelix1990]

... Avec beaucoup de retard, merci pour ces infos, je vais regarder cela de plus près....