Discussion :

[dj_techno]

Bonjour,
J'essais d'apprendre les manipulation sur Access.
et j'ai des tables:
Articles (NumArticle[clé P], NomArticle, RubriqueArticle)
Entrees(NumEntree[clé P], NumArticle, NomArticle, DateEntree, QuantiteEntree)

aussi:
un formulaire, ou il y a une liste déroulante (ma_liste) alimentée par la table "Articles" et qui mets à jours le champs "Entrees.NomArticle".
Je souhaite qu'elle mets aussi à jours "Entrees.NumArticle" par la valeur de la "colonne 0" (qui contient les numéros d'articles) de la liste déroulante si haut.

J'ai essayer avec VBA:
Dans l'évènement "Après Mise à Jours":
Entrees.NumArticle = ma_liste.Column(0)

mais je n'aboutis pas à la solution satisfaisante, malgré que j'ai essayé de suivre les solutions suite à une recherche sur Google.
merci

[marot_r]

Bonjour.

Il ne faut pas mettre le nom de l'article dans la table des entrées.

Entrees(NumEntree[clé P], NumArticle, DateEntree, QuantiteEntree)

Dans une base de données relationnelle, on s'efforce autant que ce peut, de ne pas dupliquer l'information.
Là le nom il est dans la table des articles, pas la peine de le mettre aussi dans celle des entrées.

Pour faire afficher le nom, car reconnaissons que c'est plus parlant :-), tu peux :

1. Faire une jointure entre Entrees et Arcticles sur NumArticle et aller "pécher" le nom dans Articles.
2. Utiliser une liste déroulante, basée sur Artciles qui en utilisant seulement NumArticle t'affichera le nom.
   Note que je recommande cette solution SEULEMENT pour les formulaires et les rapports, au niveau de la table il est prudent de laisser NumArticle visible car c'est la vraie données.
   La liste déroulante n'est qu'un artifice d'affichage.

A+

[bertiny]

Bonjour
En plus de ce que marot_r t'a déjà dit et qui est fondamentale, je vais m'interressre à çà

Je souhaite qu'elle mets aussi à jours "Entrees.NumArticle" par la valeur de la "colonne 0" (qui contient les numéros d'articles) de la liste déroulante si haut.

J'ai essayer avec VBA:
Dans l'évènement "Après Mise à Jours":
Entrees.NumArticle = ma_liste.Column(0)

Si tu souhaites faire la mise à jour avec le VBA, tu écris ta requête qui prend pour critère la valeur de la liste déroulante. En VBA çà sera donc un truc comme çà

Code VBA :

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

1
2
3
4
5
6
7
Private Sub ma_liste_Change()
Dim rq As String
'une petite requête de mise à jour
rq = "update Entrees set NumArticle= " & Me.ma_liste.Column(0) & " Where(NomArticle= " & Me.ma_liste.Column(1) & ")"
'exécution de la requête
CurrentDb.Execute rq
End Sub

[Thumb down]

Bonjour,

il sufi ouvrir la table Entrees en mode création, et dans le champ NumArticle définir la requête dans l'onglet liste de choix!

[marot_r]

Bonjour.

ll suffit ouvrir la table Entrees en mode création, et dans le champ NumArticle définir la requête dans l'onglet liste de choix!

En fait ce qui paraît une bonne idée est en réalité une source de problème car si on la met en place maintenant quand on regarde la table directement, on ne voit plus la valeur réelle contenue (ex : 1234) dans le champ mais le texte associé (ex : Produit ABC) or quand on fait des requêtes on a besoin de cette vraie valeur et quand on fait du débogage aussi.

Donc dans les tables utiliser des liste déroulantes n'est pas une si bonne idée que cela. Les listes déroulantes qui sont des éléments d'interface devraient, selon moi, être réservées aux formulaires et aux rapports.

A+