Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Update d'une table par code ?

Update d'une table par code ?

2 réponses
Avatar
Bruno Frisque
Le programme de facturation que je fais pour une ONG doit également tenir
l'inventaire des produits.
Je voudrais donc placer au LostFocus du champ Quantité (dans le form
Commandes) le code suivant.

'update tProduits Qtévendues here
Dim strSQL As String
strSQL = "Update Produits Set UnitesVendues =" & _
Me!Quantité & ";"
CurrentDb.Execute strSQL

Comment ajouter le where ?? j'ai à chaque fois expected 1 argument ....

le Where est le champ "Nom du Produit" de la Table Produits et Me!Combo6
dans le form Commande.

D'avance tout grand merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre CFI [mvp]
bonjour
strSQL = "Update Produits Set UnitesVendues =" & _
Me!Quantité & " Where [nom du produit] = '" & me.combo6 & "'"
mais attention , voir si la valeur retourné par la combo est bien celle attendu (pas la premiere col masquée)


--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Bruno Frisque" a écrit dans le message de news: OkSI$
Le programme de facturation que je fais pour une ONG doit également tenir
l'inventaire des produits.
Je voudrais donc placer au LostFocus du champ Quantité (dans le form
Commandes) le code suivant.

'update tProduits Qtévendues here
Dim strSQL As String
strSQL = "Update Produits Set UnitesVendues =" & _
Me!Quantité & ";"
CurrentDb.Execute strSQL

Comment ajouter le where ?? j'ai à chaque fois expected 1 argument ....

le Where est le champ "Nom du Produit" de la Table Produits et Me!Combo6
dans le form Commande.

D'avance tout grand merci





Avatar
Bruno Frisque
Merci !!
Merci pour une réponse si rapide et si précise.
Cela fonctionne "superbement" et du premier coup !!
Encore merci pour moi et pour l'ONG.

Bruno

"Pierre CFI [mvp]" wrote in message
news:
bonjour
strSQL = "Update Produits Set UnitesVendues =" & _
Me!Quantité & " Where [nom du produit] = '" & me.combo6 & "'"
mais attention , voir si la valeur retourné par la combo est bien celle
attendu (pas la premiere col masquée)



--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Bruno Frisque" a écrit dans le message de news:
OkSI$

Le programme de facturation que je fais pour une ONG doit également
tenir


l'inventaire des produits.
Je voudrais donc placer au LostFocus du champ Quantité (dans le form
Commandes) le code suivant.

'update tProduits Qtévendues here
Dim strSQL As String
strSQL = "Update Produits Set UnitesVendues =" & _
Me!Quantité & ";"
CurrentDb.Execute strSQL

Comment ajouter le where ?? j'ai à chaque fois expected 1 argument ....

le Where est le champ "Nom du Produit" de la Table Produits et
Me!Combo6


dans le form Commande.

D'avance tout grand merci