Problème pour pointer dans une table

Bonjour,

Suite à l'aide qui m'a été apportée par ce forum et ne maitrisant pas toutes les subtilités, je vous soumets cet extrait de code pour lequel je rencontre un problème.

Objectif : dans une table appelée "traitement_fiabilité" avec un champ nommé "fiabilité", je voudrais que la requête aille pointer dans cette table pour concaténer, par fournisseur la fiabilité séparée par un ;
avec la ligne ci-dessous, il me dit qu'il y a une erreur de syntaxe mais n'arrive pas à solutionner

Code:

---

1 2	varsql = "SeLect [traitement_fiabilite]![Fiabilite] where [fournisseur]='" _ chr(34) & fiab & chr(34)

---

j'avais essayé de remplacer ! par . mais sans succès.
Peut être manque t'il un complément mais ?????


En revanche, si dans ma requête je sélectionne la table "traitement fiabilité", et avec la ligne ci-dessous, aucun soucis mais ce n'est pas ce qui m'intéresse.

Code:

---

1 2 3

sql = "SELECT fiabilite FROM traitement_fiabilite wHERE [fournisseur]=" & _ Chr(34) & fiab & Chr(34)

---

appel de la fonction dans ma requête :

Pièce jointe 634077



code complet :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Public Function Recupfiab(fiab As String) As String   Dim res As DAO.Recordset Dim sql As String     sql = "SELECT fiabilite FROM traitement_fiabilite wHERE [fournisseur]=" & _ Chr(34) & fiab & Chr(34)         Set res = CurrentDb.OpenRecordset(sql) 'Concatene les différents enregistrement While Not res.EOF Recupfiab = Recupfiab & res.Fields(0).Value & ";" res.MoveNext Wend 'Enleve le dernier ; Recupfiab = Left(Recupfiab, Len(Recupfiab) - 1) 'libere la mémoire Set res = Nothing   End Function

---

Merci.

Bonjour,

Donc entre ceci :

Code:

---

1 2	varsql = "SeLect [traitement_fiabilite]![Fiabilite] where [fournisseur]='" _ chr(34) & fiab & chr(34)

---

et ceci :

Code:

---

1 2 3

sql = "SELECT fiabilite FROM traitement_fiabilite wHERE [fournisseur]=" & _ Chr(34) & fiab & Chr(34)

---

On voit une très grosse différence + une clause obligatoire manquante dans les 2.

Code:

---

SELECT colonne1,...,colonneX FROM table WHERE condition;

---

Ici il manque "FROM table", tu dois indiquer la table.

Et il y une ' qui traine dans ton WHERE.

Cordialement,

Bonjour à vous,

En complément :

Citation:

---

Envoyé par dav872

En revanche, si dans ma requête je sélectionne la table "traitement fiabilité", et avec la ligne ci-dessous, aucun soucis mais ce n'est pas ce qui m'intéresse.

Code:

---

1 2 3 4

sql = "SELECT fiabilite FROM traitement_fiabilite wHERE [fournisseur]=" & _ Chr(34) & fiab & Chr(34)   ...

---

---

Quand tu dis que ce n'est pas ce qui t'intéresse peux-tu préciser pourquoi ?

Cdlt,

Bonjour et merci pour le retour,

Je ne vois toujours pas car on va bien l'appel de la table via le from ?
Et effectivement, une correction a été apporté après le = ou le ' a été ajouté avant " en vain

Code:

---

1 2	sql = "SELECT fiabilite FROM traitement_fiabilite wHERE [fournisseur]=" & _ Chr(34) & fiab & Chr(34)

---

Quelle serait la bonne construction ?

Merci

Avec cette instruction :

Code:

---

sql = "SELECT fiabilite FROM traitement_fiabilite Where [fournisseur]=" & Chr(34) & fiab & Chr(34)

---

Si fiab contient "DUPONT" Tu vas lui transmettre un sql sous cette forme :

Code:

---

SELECT fiabilite FROM traitement_fiabilite Where [fournisseur]="DUPONT";

---

Il faut que la chaîne sql respecte la bonne syntaxe.

Cdlt

Merci pour le retour.

Youpi, ça fonctionne :D

Quand je précisais que ce n'est pas ce qui m'intéresse, à savoir en création de requête choisir la table "traitement_fiabilité" dans laquelle, il y a effectivement le champ "fiabilité" non concaténé ,
ce que je souhaite, c'était aller le chercher directement dans une table et non via la requête elle-même .

En complément de la réponse, je me retrouve avec 1,2 voire plus de ; avant d'avoir des valeurs.

Exemple, j'ai une ligne avec fiabilité : RCCP puis une autre ligne avec RCPL........... tout cela séparé par un ;

Si comme décrit dans le code, la première valeur du champ fiab est null alors il met un ; et parfois j'ai x ; avant RCCP;RL............. terminé par un ";"
peut on reboucler ou inclure un bout de code pour supprimer les ; avant et en dernier. ? quel code ?
En précision, les valeurs de fiab ne sont jamais numérique.

Merci encore pour votre aide et la réactivité à tous les sujets.

Astuces:

Utilises des points d'arrêt, et affiche le contenu de ta variable dans le fenêtre d'exécution pour vérifier si ta requête est bien construite.
Soit via l'instruction Debug.Print,
Ou en entrant la syntaxe ?<variable> (dans ton cas ce sera ?sql) dans la fenêtre d'éxecution.

Point d'amélioration:
SI ta variable fiab (j'assume que ca provient d'une saisie utilisateur) contient des cottes, double-cottes (et autre cochonneries de ce genre), ou une sous requête (technique de hacker appelée Injection SQL), ta requête va planter ou pire: ouvrir une porte d'entrée vers le système de fichier, voir le système d'exploitation (en d'autre termes: c'est une faille de sécurité).
On peut cependant s'en prévenir, via un requête paramètrée.

Exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub test() Const Fiab As String = "Dupont"   Dim Sql As String Sql = vbNullString Sql = Sql & "PARAMETERS" & vbCrLf '// déclaration des paramètres Sql = Sql & " ParamFournisseur Text ( 255 );" & vbCrLf Sql = Sql & "SELECT fiabilite" & vbCrLf Sql = Sql & "FROM traitement_fiabilite" & vbCrLf Sql = Sql & "WHERE fournisseur = [paramFournisseur];" '// crochets obligatoir autour du nom du paramètre   Dim Db As DAO.Database Set Db = CurrentDb   '// crée une requête temporaire Dim Qd As DAO.QueryDef Set Qd = Db.CreateQueryDef("TempQD", Sql)   '// alimente les paramètres Qd.Parameters("paramFournisseur").value = Fiab   '// execute la requête Qd.Execute dbFailOnError   '// nettoyage: supprime la requête temporaire Db.QueryDefs.Delete Qd.Name End Sub

---

Avantages:
- La requête fonctionne quelque soit le contenu de la variable Fiab, que ce soit "Dupont", ou "Mon ""Beau"" fournisseur", ou une sous requête.
- Les types de donnée sont vérifiés (si tu fournis une donnée nom convertible dans le type demandé, tu obtiendra une erreur sur l'assignation de paramètre fautive. Ce qui est plus précis que le message d'erreur que fournira access lorsque tu procède par concaténation (en l'occurrence: Erreur de syntaxe).
- Les valeur null sont supportées, donc il n'est pas utile d'écrire des instructions If vérifiant l'absence de saisie pour adapter la requête (attention: Ca ne veux pas dire qu'il ne faut pas vérifier les saisies utilisateur). Une fois la requête écrite, elle ne bouge plus (elle pourrait être déclarée en constante, je n'ai pas choisit cette option pour raison de lisibilité).
- C'est très versatile.

Désavantages:
- C'est plus long à écrire.

Citation:

---

Envoyé par dav872

ce que je souhaite, c'était aller le chercher directement dans une table et non via la requête elle-même .

---

Quelque chose de la forme:

Code:

---

1 2 3 4 5 6

SELECT fiabilite FROM traitement_fiabilite WHERE fournisseur IN ( SELECT fournisseur FROM <table> WHERE <criteres> );

---

Ou faire une jointure ?

Code:

---

1 2 3 4

SELECT fiabilite FROM traitement_fiabilite INNER JOIN <table> ON traitement_fiabilite.fournisseur = <table>.<colonne> WHERE <criteres>

---

bonjour,
j'y ajoute ma suggestion:

Citation:

---

Envoyé par dav872

Si comme décrit dans le code, la première valeur du champ fiab est null alors il met un ; et parfois j'ai x ; avant RCCP;RL............. terminé par un ";"
peut on reboucler ou inclure un bout de code pour supprimer les ; avant et en dernier. ? quel code ?

---

tu peux déjà exclure les valeurs nulles dans la clause where

Code:

---

1 2	sql = "SELECT fiabilite FROM traitement_fiabilite wHERE not isnull(fiabilite) and [fournisseur]=" & _ Chr(34) & fiab & Chr(34)

---

par contre pour les x ou autres valeurs indésirables, avant de les ajouter à la clause where, un petit ménage semble s'imposer.

Pour le dernier point-virgule, ce n'est pas déjà le cas dans ton code d'origine ?

Code:

---

1 2	'Enleve le dernier ; Recupfiab = Left(Recupfiab, Len(Recupfiab) - 1)

---

Merci pour vos réponses qui répondent à mon problème.

Pour tee_grandbois : les valeurs nulles ne doivent pas être écartées .Le but est bien d'afficher tous les fournisseurs avec ou sans fiabilité.
Oui pour le dernier point, le ; en fin de chaine est bien exclu.

Ne me reste plus qu'à tester/adapter le code de deedolith

Cdlt

Citation:

---

Pour tee_grandbois : les valeurs nulles ne doivent pas être écartées

---

soit, mais en complète contradiction avec:

Citation:

---

peut on reboucler ou inclure un bout de code pour supprimer les ; avant

---

qui sont justement générées par ces valeurs nulles :weird:

Peux-tu nous donner une image de tes relations car là ça reste un peu flou ?

Bonjour,


Merci pour vos derniers retours

S'agissant de données confidentielles, une image détaillée, même des relations est difficile d'où l'adaptation d'un exemple que je vous ai soumis et pour lequel,
votre savoir a résolu le premier sujet rapidement, là ou avant vos réponses, je galérais pas mal !
Cela va me permettre de diminuer le nombre de requêtes

Merci encore