bonjour;
J'ai dans ma base de donnée trois tables :
ARTICLE (DESIGNATION)
ACHAT (Designation,Fournisseur,Date,Quantite_achete,Prix_Achat)
VENTE (Designation,Date, Quantite_vendu, Prix_vente)
Un article peut être acheté dans differente date avec different prix, et de different fournisseur
pour cela j'ai créer un formulaire basé sur la table article (la designation dans une zone de liste modifiable); et sur ce même formulaire j'ai mis un sous_formulaire basé sur la table achat de telle sorte que en selectionnant une designation dans la zone de liste modifiable, les differents achat effectué sur cette article s'affiche dans le sous formulaire et doit permettre aussi de rajouter de nouvel achat;
mais le problème que j'ai eu c'est que lorsque je selectionne un article dans la zone de liste déroulante un message d'erreur s'affiche (piece jointe)
voici le code qu'a créer l'assistant dans la zone de liste déroulante
merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private Sub Modifiable2_AfterUpdate() ' Rechercher l'enregistrement correspondant au contrôle. Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[DESIGNATION] = '" & Me![Modifiable2] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub
Partager