Update Data in table from form

Bonsoir,
dans access, j'ai un table et un form.
dans le table nomme "stock", il y plusieurs fields, parmi lesquels, on a un "barecode", et l'autre "quantity".
et dans le form "form1"on a 2 textbox "bc" et "qty".
je voudrais que quand je vends un produit avec une quantite precise, cette quantite sera soutraite du field "quantity" du stock.
j'ai ecris ce code

Code:

---

1 2 3 4 5 6 7 8

Private Sub qty_BeforeUpdate(Cancel As Integer) Dim strSQL As String strSQL = "UPDATE stock" & _ " SET stock.quantity = " & stock.quantity - Me.qty & _ " WHERE stock.barecode = " & Forms![Form1]![bc]   DoCmd.RunSQL strSQL

---

Merci pour vos aides :)

Bonsoir,

Je dirais :

Code:

---

1 2 3 4 5 6 7

Private Sub qty_BeforeUpdate(Cancel As Integer) Dim strSQL As String strSQL = "UPDATE stock" & _ " SET stock.quantity = stock.quantity - " & Me.qty & _ " WHERE stock.barecode = " & Forms![Form1]![bc]   DoCmd.RunSQL strSQL

---

Et pourquoi pas sur l'évènement AfterUpDate?

Cordialement,

merci mais il y a encore un truc:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Compare Database     Private Sub qty_AfterUpdate(Cancel As Integer) Dim strSQL As String strSQL = "UPDATE stock" & _ " SET stock.quantity = stock.quantity - " & Me.Qty & _ " WHERE stock.barecode = " & Forms![form1]![bc]   DoCmd.RunSQL strSQL End Sub

---

Ensuite, j'imagine que barecode ou "bc" est du texte, donc il devrai t être entre "" ou '', ce qui donnerait :

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Compare Database Private Sub qty_AfterUpdate(Cancel As Integer) Dim strSQL As String strSQL = "UPDATE stock" & _ " SET stock.quantity = stock.quantity - " & Me.Qty & _ " WHERE stock.barecode = """ & Forms![form1]![bc] & """"   DoCmd.RunSQL strSQL End Sub

---

Cordialement,

Non bc est un nombre de type double qu'on lit avec la machine du barre code

Bonjour

Citation:

---

Envoyé par line.z

merci mais il y a encore un truc:

---

C'est à dire ? Message d'erreur ? Le résultat n'est pas bon ?

Mme Soleil n'est pas sur le forum.

Philippe

Bonjour.
je recois ce message
Pièce jointe 167718

Bonjour,

Fais un Debug.print Forms![form1]![bc] avant d'exécuter ton code.
A priori, si ton champ est Double, ce sont les séparateurs "," qui te posent problème.
Il faudrait les remplacer par des "." lorsqu'ils passent en paramètre de ta requête.

Cordialement,

merci beaucoup.
le champs bc est de type double car il contient au moins 10 chiffres, c.a.d le type int est tres petit. on ne trouve pas des virgules dans bc.

Ton problème ne serait pas dans le nom de tes variables ou contrôles, si tu es dans le même formulaire, pourquoi tu utilises Me.Qty et Forms![form1]![bc]. Pourquoi ne pas uniformiser ton code en utilisant uniquement Me.

Code:

---

1 2 3 4 5 6 7 8 9

Option Compare Database Private Sub qty_AfterUpdate(Cancel As Integer) Dim strSQL As String strSQL = "UPDATE stock" & _ " SET stock.quantity = stock.quantity - " & Me.Qty & _ " WHERE stock.barecode = " & Me.bc   DoCmd.RunSQL strSQL End Sub

---

Cordialement,

meme en uniformisant les noms, j'obtiens le meme message box.
merci beaucoup pour votre aide.
voila ce qu'il y a dans property sheet:
Pièce jointe 167753
est-ce tout est normal ici?

Je ne sais pas ce qui se passe mais le code marche chez moi et tu utilises le bon évènement.
Il faudrait la partie incriminée de la base pour que l'on puisse voir qu'est-ce qui se passe.
Serait-ce possible de la poster anonymisée et zippée stp.

Cordialement,

Merci beaucoup Mandersi
Pièce jointe 167766
j'ai aussi un petit problem, que quand j'ouvre le form1, eh j'insere les barecodes, l'item n'apparait que quand je refraishis, pourquoi?

pardon si je vous derange.
:)

Bonsoir,

Je crois bien que ton formulaire est corrompu. Il faut en créer un autre. Il y a dû y avoir des manipulations qu'Access n'a pas aimées.
La cause est la même pour ton 2ème problème.
Je te joins ta base avec un nouveau formulaire.

Cordialement,

Merci beaucoup Madefemere, c'est résolu.
je vs ai fatigues.
mais je veux montrer quel était le truc pour les autres.
premièrement dans la function Dlookup:

Code:

---

DLookUp("[Item]","[Stock]","[barecode]=" & [bc])

---

au lieu du

Code:

---

=DLookUp("Item","Stock","barecode=" & " [bc]")

---

deuxiement dans le code

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Qty_AfterUpdate() Dim strsql As String strsql = "UPDATE Stock" & _ " SET Qty = Qty - " & Me.Qty & _ " WHERE barecode = " & Me.bc   DoCmd.RunSQL strsql End Sub

---