Discussion :

[IceCrime752]

Hello,

j'imagine que je ne suis pas le premier à avoir une erreur de ce type mais bon, je sèche depuis un bon moment et je ne suis pas un expert en Access...

Voici mon code et ma ligne d'erreur est

Code :

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

Set res = CurrentDb.OpenRecordset("SELECT DISTINCT (libellée_commercial) FROM Fichier_anonyme_chimio_drevon_talant_2014 WHERE no_dossier='" & no_dossier & "';")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function RecupMolecule(no_dossier As Long) As String
Dim res As DAO.Recordset
Dim Db As DAO.Database
'Selectionne les participant du projet
Set res = CurrentDb.OpenRecordset("SELECT DISTINCT (libellée_commercial) FROM Fichier_anonyme_chimio_drevon_talant_2014 WHERE no_dossier='" & no_dossier & "';")
'Concatene les différents enregistrement
While Not res.EOF
RecupMolecule = RecupMolecule & res.Fields(0).Value & " / "
res.MoveNext
Wend
'Enleve le dernier espace
RecupMolecule = Left(RecupMolecule, Len(RecupMolecule) - 1)
'libere la mémoire
Set res = Nothing
End Function

Ma table est composer comme cela :
no_dossier (long) / code_protocole (string) / no_cure (long) / libellée_commercial (string)

je vous ai mis le type de mes champs en parenthèses.

ma fonction doit me renvoyer tout les "libellée_commercial" d'un même "code_protocole" dans une même case (une concaténation d'un même champs quoi). le truc est que avant tout marchais et puis j'ai fait le con et j'ai fait des modifs sur le code sans en faire une copie... comme les modifs ne marchais pas je suis revenue sur le code de base en supprimant les truc en trop et voila où j'en suis. j'imagine que c'est juste une erreur de syntaxe ou un truc banal mais je ne le trouve pas. j'ai bien sur vérifier que les noms était les même (pas de probleme de ce coté là).

Help please!!
Et merci,
Ice

[madefemere]

Bonsoir,

Pour ton erreur, tu mets des parenthèses là où cela devrait être des crochets [] qui sont a priori inutiles vu que ton champ le nom de ton champ libellée_commercial ne contient pas d'espace. La ligne serait :

Code :

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

Set res = CurrentDb.OpenRecordset("SELECT DISTINCT libellée_commercial FROM Fichier_anonyme_chimio_drevon_talant_2014 WHERE no_dossier='" & no_dossier & "';")

ou

Code :

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

Set res = CurrentDb.OpenRecordset("SELECT DISTINCT [libellée_commercial] FROM Fichier_anonyme_chimio_drevon_talant_2014 WHERE no_dossier='" & no_dossier & "';")

Cordialement,

[loufab]

ne contient pas d'espace.

ou de caractères réservés.

[jimbolion]

madefemere, loufab, IceCrime752

Et pour finaliser no_dossier étant de type numérique, l’utilisation de quotes dans le filtre n'est pas nécessaire :

Code :

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

Set res = CurrentDb.OpenRecordset("SELECT DISTINCT libellée_commercial FROM Fichier_anonyme_chimio_drevon_talant_2014 WHERE no_dossier=" & no_dossier & ";")

Comme je viens de rédiger ce billet blog, j'en profite pour me faire un peu d'auto promo mais il s'adapte à la discussion !

http://www.developpez.net/forums/blo...s-ecrites-vba/


Jimbolion

[loufab]

Bonjour,
Sympa ce billet !

Personnellement je ne suis pas pour enseigner l'utilisation de la simple-cote ou apostrophe comme séparateur. Justement à cause de la présence de ce caractère dans notre langue.
Préférons le doublement du guillemet ou double-cote.

Cordialement,

[IceCrime752]

Hello et merci de vos réponse.

Hélas, si seulement ce fut si simple...
vos réponse m'ont permis d’alléger le code mais pas de virer l'erreur; la même est au RDV au même endroit...
D'autre idée pour un gars qui sèche complètement?

Ice

[jimbolion]

Loufab,

Préférons le doublement du guillemet ou double-cote.

L'écriture de la syntaxe VBA est plus facile à lire dans l'utilisation du simple quote '" & plus facile que " & chr(34) & ... mais je te rejoins volontiers

Justement à cause de la présence de ce caractère dans notre langue.

ou dans d'autres d'ailleurs

IceCrime752

Cette syntaxe :

Code :

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

Set res = CurrentDb.OpenRecordset("SELECT DISTINCT Fichier_anonyme_chimio_drevon_talant_2014.[libellée_commercial] FROM Fichier_anonyme_chimio_drevon_talant_2014 WHERE (((Fichier_anonyme_chimio_drevon_talant_2014.no_dossier)=" & No_Dossier & "));")

Je viens de faire un contrôle et çà fonctionne. Donc si ton erreur persiste elle vient d'ailleurs (nom des champs, nom de l'entité...)

Jimbolion

[IceCrime752]

Jimbolion mon ami!!!!

comment dire... En effet ta syntaxe marche bien, juste un lettre en trop a un moment (suppr et tout va bien)


Merci a tous pour votre aide! comme je le disais plus haut, juste un erreur basique


ICE