Requête sql update en vba

Version imprimable

Salut. j'ai une erreur de syntaxe dans ma requête mais je sait pas oû exactement.

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
28
 
Function test(strProd As String, nbQtProd As Double)
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
Dim sSQL As String
Dim libP As String
Dim nVal As Double
 
    ' Ouverture de la base de données
Set db = CurrentDb()
    sSQL = "SELECT Produit.qtProd " & _
            "FROM Produit " & _
            "WHERE (((Produit.libProd) = '" & strProd & "')) " & _
            "; "
    ' Ouverture du Recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
 
    nVal = nbQtProd + CDbl(rst!qtProd)
 
'on me signale une erreur se syntaxe à ce niveau
    CurrentDb.Execute ("UPDATE Produit " & _
               "SET (((Produit.qtProd) =  '" & nVal & "' )) " &
               "WHERE (((Produit.libProd) = '" & strProd & "')) " & _
               "; ")
    MsgBox "Ajout effectué avec succès."
 
    ' Fermeture du Recordset
    rst.Close
End Function

Citation:

j'obtient une erreur se syntaxe pour le CurrentDb.Execute ....

Merci pour toute aide.

Bonjour,

si nval est un nombre, il ne doit pas être utilisé entre des guillements

Code:

1
2
3
4
CurrentDb.Execute ("UPDATE Produit " & _
               "SET (((Produit.qtProd) =  " & nVal & " )) " &
               "WHERE (((Produit.libProd) = '" & strProd & "')) " & _
               "; ")

avec xa

Code:

1
2
3
4
CurrentDb.Execute ("UPDATE Produit " & _
               "SET (((Produit.qtProd) =  " & nVal & " )) " & _
               "WHERE (((Produit.libProd) = '" & strProd & "')) " & _
               "; ")

j'obtient toujours erreur d'exécution 3144
erreur de syntaxe dans l'instruction update

Bonjour.

Le SQL de Access peut être un peu délicat à écrire par soi-même.

Je te suggère :
Code:

1 2 3 4 5 dim sql as string : sq="UPDATE Produit " & _ "SET (((Produit.qtProd) = " & nVal & " )) " & _ "WHERE (((Produit.libProd) = '" & strProd & "')) " & _ ";" call CurrentDb.Execute(sql, dbFailOnError)
L'avantage de passer par une variable intermédiaire c'est que tu vas pouvoir voir le SQL généré par Access avant qu'il s'exécute.
Un des problèmes classiques avec les nombres c'est le séparateur de décimales qui n'est pas bon : le point au lieu de la virgule ou vice-versa.
Le SQL parle anglais donc en principe ce devrait être un point.
L'autre problème classique c'est quand le nombre est null.
Lors de la concaténation le null est remplacé par une chaîne vide et cela donne un truc du genre set TonChamp= where qui n'est pas syntaxiquement correct.

Ceci dit la meilleur méthode pour écrire du SQL Access c'est de le faire écrire par Access
Tu vas dans l'éditeur de requête et tu crées ta requête avec des glisser/déplacer.
Une fois qu'elle donne les résultats attendus, tu changes l'affichage (c'est en haut à gauche de l'écran) pour "SQL" et tu regardes la syntaxe générée.
Il est généralement assez facile d'en faire du code VBA.

A+