Salut. j'ai une erreur de syntaxe dans ma requête mais je sait pas oû exactement.
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
 
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
j'obtient une erreur se syntaxe pour le CurrentDb.Execute ....
Merci pour toute aide.