UPDATE avec paramètre

Bonjour,

Je ne trouve rien sur mon problème. Qui est pourtant bien basique ....

Je n'arrive pas à éxécuter un update en vb. Mon select * from Table se passe correctement, donc le problème doit résider dans la syntaxe de ma requête. Le problème est que je ne trouve rien de suffisamment complet pour pouvoir résoudre mon soucis en terme de syntaxe :


en gros j'ai deux paramètres qui me servent à updater ma table (problématique de gestion de stock)

voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub MAJ_Click() Dim db As DAO.Database, rst As DAO.Recordset Dim sSQL As String ' Ouverture de la base de données Set db = CurrentDb   sSQL = " UPDATE EFFET_EN_STOCK SET EFFET_EN_STOCK.[QTE_STOCK]=forms!EFFET_EN_STOCK1!QTE_STOCK - forms!EFFET_EN_STOCK1!QTE_DOTATION WHERE EFFET_EN_STOCK.[CODE_EFFET]= forms!EFFET_EN_STOCK1!CODE_EFFET" Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)     End Sub

---

Merci pour votre aide

salut,
les requêtes de type action (select into, update, delete, drop, alter, etc.) sont lancées avec la fonction Execute

Code:

---

1 2 3 4 5 6 7 8 9

strSQL = "UPDATE EFFET_EN_STOCK " & _ "SET EFFET_EN_STOCK.[QTE_STOCK]=forms!EFFET_EN_STOCK1!QTE_STOCK - forms!EFFET_EN_STOCK1!QTE_DOTATION " & _ "WHERE EFFET_EN_STOCK.[CODE_EFFET]= forms!EFFET_EN_STOCK1!CODE_EFFET"   'pour l'exécution CurrentDb.Execute strSQL   'ou Docmd.RunSQl strSQL

---

merci pour votre réponse.
A l exécution, j'ai des msbbox qui apparaissent et qui me demandent de valoriser les 3 paramètres que j'utilise dans la requête d'update.
"Entrez une valeur de paramètre"

Je dois aussi me tromper dans la syntaxe des paramètres (j'ai testé forms! et formulaires!")

Auriez vous une idée ? merci d'avance


Requête modifiée :

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

Private Sub MAJ_Click() Dim db As DAO.Database, rst As DAO.Recordset Dim strSQL As String     Dim QteStock As Integer, QteDotation As Integer, NewStock As Integer, CodeEffet As String   QteStock = Me.QTE_STOCK.Value QteDotation = Me.QTE_DOTATION.Value CodeEffet = Me.CODE_EFFET.Value NewStock = QteStock - QteDotation   ' Ouverture de la base de données Set db = CurrentDb   strSQL = "UPDATE EFFET_EN_STOCK " & _ "SET EFFET_EN_STOCK.[QTE_STOCK]= NewStock " & _ "WHERE EFFET_EN_STOCK.[CODE_EFFET]= CodeEffet"   'pour l'exécution DoCmd.RunSQL strSQL     End Sub

---

alors si tu progresses comme ceci, la nouveau sera :

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

Private Sub MAJ_Click() Dim db As DAO.Database, rst As DAO.Recordset Dim strSQL As String     Dim QteStock As Integer, QteDotation As Integer, NewStock As Integer, CodeEffet As String   QteStock = Me.QTE_STOCK.Value QteDotation = Me.QTE_DOTATION.Value CodeEffet = Me.CODE_EFFET.Value NewStock = QteStock - QteDotation   ' Ouverture de la base de données Set db = CurrentDb   strSQL = "UPDATE EFFET_EN_STOCK " & _ "SET EFFET_EN_STOCK.[QTE_STOCK]= " & NewStock & _ " WHERE EFFET_EN_STOCK.[CODE_EFFET]= " & CodeEffet   'pour l'exécution DoCmd.RunSQL strSQL     End Sub

---

merci, ça me parait bon, sauf pour le paramètre CODE_EFFET.

En effet j'ai une msgbox qui apparait : le texte de la msgbox est égal à la valeur du paramètre attendu. La variable est bien valorisée puisqu'il s'en sert dans la texte de la msgbox mais il me demande de renseigner ce paramètre.

En complément : dans le debugger

Code:

---

" WHERE EFFET_EN_STOCK.[CODE_EFFET]= " & CodeEffet

---

est bien renseigné, et pourtant il me demande quand meme de renseigner une valeur de paramètre.

Pour être plus clair, mon paramètre CodeEffet est égal à "BOT_47".

Mais quand j'exécute mon formulaire access me demande de renseigner le paramètre BOT_47.

Serait ce un problème de Type ? Ou bien l'initialisation du paramètre ?
CodeEffet = Me.Formulaire_code_effet.Value Peut-être n'est ce pas Value qu'il faut utiliser.


La requête fonctionne quand je mets "BOT_47" en dur à la place du paramètre CodeEffet (pourtant lui-même correctement initialisé à "BOT_47")

Merci d'avance pour votre aide

Code:

---

" WHERE EFFET_EN_STOCK.[CODE_EFFET]= '" & CodeEffet & "';"

---

En fait il fallait juste ajouter des cotes. En tout cas merci à jpcheck, qui m' a permis de finaliser mon premier update via du vb.