Discussion :

[maringot]

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:

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

L'insertion de la table ARTICLE vers la table DETAIL se fait.

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,

[tee_grandbois]

bonjour,
il faut revoir la conception de ta table T_DetailDevis en ajoutant le champ LibelArticle, puis en modifiant la requête (propriété Source du sous-formulaire) SF_DetailDevis en enlevant la jointure avec T_ArticlesChauffage ou plus simplement en remplaçant la requête par la table T_DetailDevis.
Du coup, il faut revoir aussi la requête d'insertion pour ajouter le libellé dans la table T_DetailDevis

[hyperion13]

Salut
Je viens de lire les échanges du lien que tu as indiqué ici et je suis un peu étonné de la méthode utilisée pour lister dans le SFormArticlesGENERATEUR les articles qui sont du TypeGene sélectionné dans le formDevis. Ce qui t'oblige avec la méthode de Jeannot45, que je salue au passage, de créer le SFormDETAILGENE et d'utiliser la sub que tu as adapté pour ajouter l'article.

Onglet Données des champs concernés passer Activé = Non