Discussion :

[meud007]

Bonjour,
Je ne comprends pas d'où vient le problème :
J'écris une requête insert en vba

Code :

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

            CurrentDb.Execute ("INSERT INTO TabProduitCompose ( nProduit, Nom, nUnite, Quantite, Cfixe ) SELECT localProduitCompose.nProduit, localProduitCompose.Nom, localProduitCompose.nUnite, localProduitCompose.Quantite, localProduitCompose.CFixe FROM localProduitCompose WHERE localProduitCompose.nProduitCompose Is Null;")

Je vérifie que le code exécute bien la ligne.
Je vérifie qu'il n'y a pas de problème d'index, de clé primaire, de champs null ou vide interdit.
Je vérifie qu'il y a bien des enregistrements concernés.
Rien à faire, la requête est sans effet alors que si je prends la même phrase sql et que je la colle dans une requete Access, elle fonctionne.

J'ai même essayé via un recordset

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
            Set r = CurrentDb.OpenRecordset("SELECT localProduitCompose.nProduit, localProduitCompose.Nom, localProduitCompose.nUnite, localProduitCompose.Quantite, localProduitCompose.CFixe FROM localProduitCompose WHERE localProduitCompose.nProduitCompose Is Null;")
            If Not r.EOF Then
                Set r2 = CurrentDb.OpenRecordset("Select * from tabproduitcompose")
 
                While Not r.EOF
                    r2.Edit
                    r2.AddNew
                    r2.Fields("Nom") = r.Fields("Nom")
                    r2.Fields("Quantite") = r.Fields("Quantite")
                    r2.Fields("nUnite") = r.Fields("nUnite")
                    r2.Fields("Cfixe") = r.Fields("Cfixe")
                    r2.Fields("nProduit") = r.Fields("nProduit")
                    r2.Update
                    r.MoveNext
                Wend
                r2.Close
            End If
            Set r2 = Nothing
            Set r = Nothing

Mais c'est pareil. Le code rentre bien dans la boucle, il n'y a pas de message d'erreur, mais à la fin, aucun insert....

Quelqu'un comprend il quelque chose ????

[meud007]

Pour compléter, j'enregistre la requête "Ajout Composés Produit" et je l’exécute par le code, avec une commande

Code :

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

            DoCmd.OpenQuery "Ajout Composés Produit"

J'ai bien deux avertissements d'Access:
"Vous allez exécuter une requête Ajout qui modifiera votre table, voulez-vous continuer", puis "Vous allez ajouter une ligne, voulez-vous continuer ?"
Aucun message de violation de clé ou truc du genre.

Mais non, pas d'enregistrement.

J’exécute cette requête hors du code, elle marche.

C'est à devenir fou !!!