Bonjour,
Lors d’une précédente discussion (https://www.developpez.net/forums/d1...ivant-critere/) Jeannot45 m’a proposé une solution d’ajout d’article de table à table.
J'ai adapté la proposition dans ma BD devis. J'ai donc créé un bouton "Ajouter les articles" avec le code suivant:
L'insertion de la table ARTICLE vers la table DETAIL se fait.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 Private Sub Commande58_Click() ' Déclaration des variables Dim l_strSql As String With DoCmd ' Initialisation de la requete d'Ajout dans la table DetailGENERATEUR l_strSql = "INSERT INTO DetailGENERATEUR ( GENEARTICLES, GENEDEVIS) " & _ "SELECT ArticlesGENERATEUR.IDARTGENE, DEVIS.NUMDEVIS " & _ "FROM ArticlesGENERATEUR INNER JOIN DEVIS ON ArticlesGENERATEUR.GeneType = DEVIS.TYPEGENRATEUR " & _ "WHERE (((DEVIS.NUMDEVIS)=[Formulaires]![FormDEVIS]![NUMDEVIS]) AND ((ArticlesGENERATEUR.GeneSelection)=True));" ' Désactivation des messages systeme .SetWarnings False ' exécution de la requete mise à jour .RunSQL (l_strSql) ' Initialisation de la requete de mise à jour de la table ArticlesGENERATEUR l_strSql = "UPDATE ArticlesGENERATEUR SET GeneSelection = 0 WHERE GeneSelection = -1" ' Exécution de la requete Mise à jour de la table ArticlesGENERATEUR .RunSQL (l_strSql) ' réactivation des messages systeme .SetWarnings True End With ' Réactualisation de l'affichage du sous formulaire Me.SFormDETAILGENE.Requery End Sub
Le problème est que si je modifie la désignation ou le prix depuis le devis, la fiche Article sélectionnée est également modifiée. Est-il possible d'adapter le code en mode ajout dans le formulaire DETAIL pour que les modifications saisies dans le devis n'affectent pas la fiche Article ?
Avec mes remerciements,
Partager