Discussion :

[line.z]

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 :

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

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

[madefemere]

Bonsoir,

Je dirais :

Code :

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

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,

[line.z]

merci mais il y a encore un truc:

Code :

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

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

[madefemere]

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

Code :

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

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,

[line.z]

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

[Invité]

Bonjour

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

[line.z]

Bonjour.
je recois ce message

[madefemere]

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,

[line.z]

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.

[madefemere]

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 :

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

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,

[line.z]

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:

est-ce tout est normal ici?

[madefemere]

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,

[line.z]

Merci beaucoup Mandersi
Database.zip
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.

[madefemere]

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,

[line.z]

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 :

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

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

au lieu du

Code :

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

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

deuxiement dans le code

Code :

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

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