CurrentDb.execute ou DoCmd.RunSql

Bonjour,

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

Citation:

---

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

---

Voici mon code :

Code:

---

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:

---

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:

---

1 2 3

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

---

Merci d'avance !

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:

---

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+

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

Bonne journée !