Discussion :

[podidoo]

Bonjour à tous...

La question à déjà été posée sur le forum et la réponse m'a aidé en parti (http://www.developpez.net/forums/vie....php?t=478314)

Voila je m'explique :

J'ai une textbox appelée Quantite1 dans un formulaire appelé Commande.
A partir de cette textbox j'aimerais pouvoir mettre à jour m'a table Stock selon l'article commande (Listbox CmbProduit1, colonne 1).

J'espère avoir été clair

Voila mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande55_Click()
 
    Dim Produit1 As String
 
    Produit1 = "UPDATE STOCK SET stockcommande = stockcommande + [Forms]![commande]![TxtQuantite1] WHERE refproduit = [Forms]![commande]![CmbProduit1].[Column(1)];"
 
    CurrentDb.Execute (Produit1)
 
 
End Sub

Commande55 est un bouton qui effectuera la mise à jour lors d'un clic.
Stockcommande est la colonne qui indique la quantité en stock.
Refproduit est la colonne qui indique la référence du produit.

Lorque je clic sur le bouton, voici l'erreur qu'il me donne :

Erreur d'execution 3051 :
Trop peu de paramètre. 2 Attendu.

[l0k1]

puisque tu construit la chaîne, pourquoi inclure les valeurs du formulaire dans la requête ?

Essaye :

Private Sub Commande55_Click()

Dim Produit1 As String

Produit1 = "UPDATE STOCK SET stockcommande = stockcommande + " & [Forms]![commande]![TxtQuantite1] & " WHERE refproduit = " & [Forms]![commande]![CmbProduit1].[Column(1)]

CurrentDb.Execute (Produit1)


End Sub

ainsi tu peux verifier les valeurs de tes contrôles sur un point d'arrêt par ex.

[boubignole]

Salut

Semblerai que les guillemets de ta requete soient mal placés. Tu peux regarder le tuto de théine sur les requetes

http://cafeine.developpez.com/access...el/debugprint/

[podidoo]

Jsuis super à la ramasse avec ces histoire de quote, j'comprend pas tout mm après avoir lu et relu le tutoriel :\

J'ai déjà supprimer les [Forms]![commande]![TxtQuantite1] pour les remplacer par Me.TxtQuantite1 vu que la txtbox ce trouve dans le mm formulaire que le bouton.

J'ai fait de mm avec [Forms]![commande]![CmbProduit1].[Column(1)] que j'ai remplacer par Me.CmbProduit1.Column(1)

Voila ce que ca donnne : (me taper pas, j'ai mis des quote un peu partout comme j'ai cru le comprendre)

Code :

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

Produit1 = "UPDATE STOCK SET stockcommande = stockcommande + '" & Me.TxtQuantite1 & " WHERE [STOCK]![refproduit] = '" & Me.CmbProduit1.Column(1) & "' "

qui nous donne comme message d'erreur :

Erreur d'execution 3075.
Erreur de syntaxe, opérateur absent dans l'expression

Merci pour votre aide

[boubignole]

tu y es presque, il te manque une quote juste avant le where pour refermer la premiere

Code :

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

Produit1 = "UPDATE STOCK SET stockcommande = stockcommande + '" & Me.TxtQuantite1 & "' WHERE refproduit = '" & Me.CmbProduit1.Column(1) & "' "