Discussion :

[Alien_psy]

bonsoir,

j'ai un formulaire qui me permet d'ajouter des valeurs dans ma table dont un chemin d'image.

j'entrais le chemin image manuellement et jusque la tout fonctionnait bien.

j'ai ajouté un bouton pour récupérer le nom et emplacement fichier via une partie du tutoriel de Caféine.

le chemin de l'image ce place bien dans le champ texte doncerné, mais lorsque je click sur le bouton qui effectue ma requête insert en VBA j'ai un message qui me dit " Erreur de Syntaxe avec le nom du fichier "

Pourquoi ?

Comment faire pour résoudre ce problème ?

[tee_grandbois]

Bonsoir,

Comment faire pour résoudre ce problème ?

en nous montrant, pour commencer, le code qui provoque l'erreur.

[Alien_psy]

voici le message d'erreur que le recois ( voir image attachée )

Mon code ne pose pas vraiment de problème, car si j'entre le chemin manuellement ou que j'effectue un copier coller cela fonctionne.

le problème ce pose uniquement lorsque je vais rechercher le chemin via un bouton parcourir

[nico84]

Bonsoir,

Dans le message d'erreur, il y a une " à gauche et une ' à droite
Il y a donc probablement une embrouille dans la constitution de l'insert...

[Alien_psy]

Bonsoir voila mon code, c'est x4 qui correspond à l'image et c'est la ligne de la requête qui crée problème mais uniquement si je vais rechercher le nom de l'image par le bouton parcourir, si je le rentre manuellement ca fonctionne

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Commande8_Click()
 
x1 = (Forms![F_Ajout Produit]!Texte2)
x2 = (Forms![F_Ajout Produit]!Texte9)
x3 = (Forms![F_Ajout Produit]!Texte11)
x4 = (Forms![F_Ajout Produit]!Texte13)
x5 = (Forms![F_Ajout Produit]!Texte15)
x6 = (Forms![F_Ajout Produit]!Texte17)
 
DoCmd.RunSQL "INSERT INTO T_Produit ( Nom_Produit, Réf_Type, Détail_Produit, Chemin_Image, Qté_Stock, Unité )VALUES ('" & x1 & "', '" & x2 & "', '" & x3 & "', '" & x4 & "', '" & x5 & "', '" & x6 & "')"
 
DoCmd.Close acForm, "F_Ajout Produit"
Forms!F_Ajout.Requery
On Error GoTo Err_Commande8_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "F_Ajout"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Commande8_Click:
    Exit Sub
 
Err_Commande8_Click:
    MsgBox Err.Description
    Resume Exit_Commande8_Click
 
 
End Sub

[tee_grandbois]

Bonsoir,
un conseil : pense à toujours déclarer les variables avec le bon type de données.
Remplace ton code comme ceci :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Commande8_Click()
 Dim x1 as String
 Dim x2 as String
 Dim x3 as String
 Dim x4 as String
 Dim x5 as String
 Dim x6 as String
 Dim strSQL as String
 
x1 = (Forms![F_Ajout Produit]!Texte2)
x2 = (Forms![F_Ajout Produit]!Texte9)
x3 = (Forms![F_Ajout Produit]!Texte11)
x4 = (Forms![F_Ajout Produit]!Texte13)
x5 = (Forms![F_Ajout Produit]!Texte15)
x6 = (Forms![F_Ajout Produit]!Texte17)
 
strSQL = "INSERT INTO T_Produit ( Nom_Produit, Réf_Type, Détail_Produit, Chemin_Image, Qté_Stock, Unité )VALUES ('" & x1 & "', '" & x2 & "', '" & x3 & "', '" & x4 & "', '" & x5 & "', '" & x6 & "')"
Debug.Print strSQL
 
DoCmd.RunSQL strSQL
DoCmd.Close acForm, "F_Ajout Produit"
Forms!F_Ajout.Requery
On Error GoTo Err_Commande8_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "F_Ajout"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Commande8_Click:
    Exit Sub
 
Err_Commande8_Click:
    MsgBox Err.Description
    Resume Exit_Commande8_Click
 
 
End Sub

il y a un espion en ligne 18, relance ton code et poste-nous le résultat (tu le trouveras dans la fenêtre exécution de VBA).

[Invité]

Bonjour

Qté_Stock est une donnée numérique ou texte ?

Philippe

[Alien_psy]

j'ai trouvé le problème,

enfait je n'avais pas donné l'extention du fichier que je récupérais donc par défaut j'avais plein d'espaces après le nom de mon fichier