Discussion :

[Buleur]

Bonjour tout le monde,

Je suis face à un problème que je n'arrive pas à résoudre : j'essaye d'envoyer une requete à acces via VBA :

Code :

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

re.Open "SELECT Jouets.Id, Jouets.Designation, Jouets.Delai_assemblage FROM Jouets WHERE (((Jouets.Designation)='" & Sheets("Feuil3").Cells(ComboBoxJouets.ListIndex + 1, 2) & "') AND ((Jouets.Delai_assemblage)= " & Sheets("Feuil3").Cells(ComboBoxJouets.ListIndex + 1, 3) & "));", bds

"Sheets("Feuil3").Cells(ComboBoxJouets.ListIndex + 1, 3)" comprend une colonne contenant des chiffres donc pas de problème de ce coté là;
c'est "Sheets("Feuil3").Cells(ComboBoxJouets.ListIndex + 1, 2)" qui comprend des noms dont certains possède une quote simple (Ex :"robot de 10cm d'envergure")

Du coup quand j'execute le code Acces recoit :

Code :

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

re.Open "SELECT Jouets.Id, Jouets.Designation, Jouets.Delai_assemblage FROM Jouets WHERE (((Jouets.Designation)='robot de 10cm d'envergure') AND ((Jouets.Delai_assemblage)= " 25 "));", bds

. Et cela plante à cause de l'apostrophe que contient le nom.

Y aurait il un moyen de contourner le problème car l'utilisateur doit avoir la possibilité de mettre des noms contenants des quotes simples.

Bonne journée.

[Robert1957]

Bonjour Buleur,

Si tu remplaces

Code :

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

WHERE (((Jouets.Designation)='" & Sheets("Feuil3").Cells(ComboBoxJouets.ListIndex + 1, 2) & "')

par

Code :

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

WHERE (((Jouets.Designation)=" & Chr(34) & Sheets("Feuil3").Cells(ComboBoxJouets.ListIndex + 1, 2) & Chr(34) & ")

ça devrait fonctionner.

Bonne journée

[Buleur]

VBA m'envois : [Microsoft][Pilote ODBC Microsoft Access] trop peu de paramètres. 1 attendu.

[Robert1957]

Bonjour Buleur,

Qu'est-ce que ça donne si tu fais un Debug.Print pour le SQL? Le chr(34) remplace l'apostrophe donc tu devrais voir:

Code :

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

WHERE (((Jouets.Designation)="robot de 10cm d'envergure")

Ce qui théoriquement devrait fonctionner.

Bonne journée

[jimbolion]

Buleur bonjour,
Robert

ou créer une fonction gérant les quotes ou double quotes :

ainsi cette fonction à mettre dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function FixQuote(FQText As String) As String
On Error GoTo Err_FixQuote
FixQuote = Replace(FQText, "'", "''")
FixQuote = Replace(FixQuote, """", """""")
Exit_FixQuote:
Exit Function
Err_FixQuote:
MsgBox Err.Description, , "Erreur dans la  Function Fix_Quotes.FixQuote"
Resume Exit_FixQuote
Resume 0 '
End Function

tu peux l'utiliser ensuite dans ton code :

Code :

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

1
2
NewData = FixQuote(NewData)
CurrentDb.Execute "INSERT INTO supplier_tbl ([Description]) VALUES ('" & NewData & "');"

ou directement dans tes requêtes :

Code sql :

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

WHERE (((Jouets.Designation)='" & FixQuote(Sheets("Feuil3").Cells(ComboBoxJouets.ListIndex + 1, 2)) & "').....

A toi de choisir si la méthode Robert te semble la plus simple ou la mienne (gérant double et simple quotes)

Cordialement

Jimbolion