Discussion :

[frevale]

Je suis en train de construire une base de données qui contient des articles avec comme champs : nom / couleur / taille...
J'ai construit un formulaire basé sur cette table qui me permet de choisir un article à partir d'une lstbox : lstnom.value, et dans une seconde box je veux pouvoir en modifier la couleur passer de rouge à jaune et enregistrer la modif.
Je souhaite faire cette manip apr vba, sauf si il y a une méthode plus simple

Merci pour votre aide

[frevale]

Voila j'ai continué à bosser et je suis en train d'essayer cela :

Code :

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

1
2
3
4
5
6
7
 
Sub modif(choix As Integer)
Dim strSQL As String
strSQL = "UPDATE [article] SET [couleur]= choix" & _
"where [nom]=lstnom.value"
CurrentDb.Execute strSQL
End Sub

Le message d'erreur est le suivant "trop peu de parametre .2 attendu "
pourtant le test "where [nom]=lstnom.value" doit fonctionner lstnom provient de la table grace à la lstbox ????

[ActionAccess]

Bonjour,

A mon sens, il est inutile de passer par de la programmation vba pour faire ce que tu souhaites faire.
Voilà comment je procèderais :
- un formulaire basé sur la table Articles avec nom, couleur...
- une liste déroulante comportant la liste des couleurs possibles (cette information doit être inscrite dans une table intitulée par exemple tblCouleur, ou dans une liste de valeur) Pour cela il faut définir les propriétés Origine Source et Contenu de la liste déroulante.
- cette liste déroulante doit avoir pour Source Contrôle le champ Couleur de la table Articles.

Ainsi, pour chaque article apparaît sa couleur dans la liste déroulante, mais tu peux modifier la couleur en chosissant une autre couleur dans la même liste déroulante.

J'espère avoir été à peu prêt clair.