Discussion :

[KIK83]

Bonjour à tous

J'ai le code suivant qui me permet d'insérer dans une table le chemin d'accès à une documentation et à une photo:

Code :

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

1
2
3
4
5
6
7
8
9
10
DestinationPDF = "L:\Mondossier\Monsousdossier\Documentations\" & NomFichierPDF & ""
            Call Upload_Fichier_PDF.Start
            MsgBox DestinationPDF 'Pour test
 
            DestinationIMG = "Test"
            MsgBox DestinationIMG 'Pour test
 
            DoCmd.RunSQL "insert into Table_Engins([Désignation engin],[N° de série],[N° de parc],[Année de mise en service],[Date de mise en route],[Compteur au départ],[Périodicité entretien],[Photo],[Fiche technique],[Commentaires]) VALUES ( '" & txt_Engin.Value & "' , '" & txt_N°Serie.Value & "' , '" & txt_N°Parc.Value & "' , '" & txt_année.Value & "', '" & txt_MiseEnRoute.Value & "' , '" & txt_Compteur_Depart.Value & "' , '" & txt_Compteur_Entretien.Value & "' , '" & DestinationIMG & "' , '" & DestinationPDF & "' , '" & txt_Désignation.Value & "' )"
 
            MsgBox "Opération réussie !" & Chr(13) & "L'engin '" & txt_Engin & "' a été ajouté.", vbOKOnly + vbInformation, "Information"

Le problème est que ma variable DestinationPDF renvoies la bonne valeur avec = "L:\Mondossier\Monsousdossier\Documentations\" & NomFichierPDF & "" mais elle est mal interprétée dans ma requête SQL puisqu'elle me renvoie une erreur de syntaxe sur 'L:\Mondossier\Monsousdossier\Documentations\test.pdf
Le ' est ajouté sans que je lui demande.
D'ou ma question: Ne serait-ce pas les \ qui bloquent ?

Merci pour votre aide

[Jean-Philippe André]

salut,
peux-tu nous indiquer ce que te retourne exactement la ligne suivante stp ?

Code :

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

"insert into Table_Engins([Désignation engin],[N° de série],[N° de parc],[Année de mise en service],[Date de mise en route],[Compteur au départ],[Périodicité entretien],[Photo],[Fiche technique],[Commentaires]) VALUES ( '" & txt_Engin.Value & "' , '" & txt_N°Serie.Value & "' , '" & txt_N°Parc.Value & "' , '" & txt_année.Value & "', '" & txt_MiseEnRoute.Value & "' , '" & txt_Compteur_Depart.Value & "' , '" & txt_Compteur_Entretien.Value & "' , '" & DestinationIMG & "' , '" & DestinationPDF & "' , '" & txt_Désignation.Value & "' )"