Discussion :

[Reno42]

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 :

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

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

[Jean-Philippe André]

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

Code :

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

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

[Reno42]

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 :

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
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

[Jean-Philippe André]

alors si tu progresses comme ceci, la nouveau sera :

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
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

[Reno42]

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 :

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

" WHERE EFFET_EN_STOCK.[CODE_EFFET]=  " & CodeEffet

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

[Reno42]

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