Discussion :

[bernardmichel]

Bonjour,

Je voulais lancer une requête via la commande "CurrentDb.Execute" mais j'obtiens un message d'erreur :

Erreur d'exécution '3061':
Trop peu de paramètres. 1 attendu

Voici mon code :

Code :

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

1
2
3
4
5
Public Function UpDateStockX()
Dim strSQL  As String
    strSQL = "UPDATE tblArticles SET tblArticles.[Qté Stock N° 1] = [Mettre le stock à combien ?]"
    CurrentDb.Execute strSQL
End Function

Par contre, si je remplace par :

Code :

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

1
2
3
4
5
Public Function UpDateStockX()
Dim strSQL  As String
    strSQL = "UPDATE tblArticles SET tblArticles.[Qté Stock N° 1] = [Mettre le stock à combien ?]"
    DoCmd.RunSQL strSQL
End Function

... cela fonctionne !

Quelqu'un peut-il m'expliquer ce qui se passe ? D'autant plus que j'emploie fréquemment cette commande (CurrentDb.Execute) et quelle fonctionne ailleurs... et que je la configure toujours sous la forme :

Code :

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

1
2
3
CurrentDb.Execute strSQL
ou
CurrentDb.Execute "UPDATE tblArticles SET tblArticles.[Qté Stock N° 1] = [Mettre le stock à combien ?]"

Merci d'avance !

[LedZeppII]

Bonsoir,

DoCmd.RunSQL fait partie de la bibliothèque Access
CurrentDb.Execute fait partie de la bibliothèque DAO.

Sans pouvoir le prouver, je dirai que de la même manière qu'il est impossible d'ouvir directement un recordset DAO
dont la source comporte un paramètre, il n'est pas possible d'exécuter une requête paramètrée avec Execute.
La bibliothèque DAO n'est pas prévue pour interagir avec l'utilisateur.

A l'inverse la bibliothèque Access est plus axée sur l'interface utilisateur et offre plus d'interactions avec ce dernier.

Pour singer le comportement Access dans DAO il faut demander le ou les paramètres

Code vb :

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

1
2
3
4
5
6
7
Dim strSQL As String, strParam1 As String
 
strParam1 = InputBox("Mettre le stock à combien ?")
If strParam1 <> "" Then
   strSQL = "UPDATE tblArticles  SET tblArticles.[Qté Stock N° 1] = " & strParam1
   CurrentDb.Execute strSQL
End If

A+

[bernardmichel]

Merci LedZep, je comprends mieux, c'est sympa à toi !

Bonne journée !