[VBA]exécution requete ajout

Voici mon problème :

J'ai des requêtes AJOUT qui fonctionnent très bien lorsqu'elles sont exécutées à partir du mode création, mais elles refusent obstinément d'ajouter quoi que ce soit lorsque je clique sur le bouton qui doit les lancer. Voici le code derriere le bouton :

Code:

---

1 2 3 4 5 6 7

DoCmd.SetWarnings False DoCmd.OpenQuery "R_SUPP_CCXCHQPROD", acViewNormal, acEdit DoCmd.OpenQuery "R_SUPP_CCXCESU", acViewNormal, acEdit   DoCmd.OpenQuery "R_SUPP_CCXCHQPROD-->T_CCXFORCE", acViewNormal, acEdit DoCmd.OpenQuery "R_SUPP_CESU-->T_CCXFORCE", acViewNormal, acEdit

---

Si quelqu'un a une idée, elle sera la bienvenue !

Merci d'avance

Et ceci ?

Code:

---

1 2 3 4 5 6 7

DoCmd.SetWarnings False DoCmd.OpenQuery "R_SUPP_CCXCHQPROD", , acAdd DoCmd.OpenQuery "R_SUPP_CCXCESU", , acAdd   DoCmd.OpenQuery "R_SUPP_CCXCHQPROD-->T_CCXFORCE", , acAdd DoCmd.OpenQuery "R_SUPP_CESU-->T_CCXFORCE", , acAdd

---

ou simplement

Code:

---

1 2 3 4 5 6 7

DoCmd.SetWarnings False DoCmd.OpenQuery "R_SUPP_CCXCHQPROD" DoCmd.OpenQuery "R_SUPP_CCXCESU"   DoCmd.OpenQuery "R_SUPP_CCXCHQPROD-->T_CCXFORCE" DoCmd.OpenQuery "R_SUPP_CESU-->T_CCXFORCE"

---

j'ai déjà essayé ces 2 options, rien n'y fait...je ne comprend pas pourquoi
j'ai même refais ces requêtes, en les nommant autrement et toujours rien !

Merci pour vos idées...je reste preneur !

a+

Essayes avec

Code:

---

Currentdb.Execute "R_SUPP_CCXCHQPROD",dbFailOnError

---

merci ça fonctionne comme ça, mais je ne comprend pas pourquoi !

Merci encore

Bonjour

Pourquoi ?

OpenQuery ouvre une requête mais ne l'exécute pas, c'est surtout utile pour les requêtes de sélection. Hors une requête action doit étre executée ::kill:

Starec

Bonjour
J'espère que vous excuserez ma question de néophyte, survenue après lecture de la discussion.
A quoi sert le paramètre acAdd de la méthode OpenQuery puisque celle-ci ne peut exécuter la requête action ?

Merci

bonjour,
as-tu regardé l'aide Microsoft concernant la méthode OpenQuery ?
le paramètre DataMode (dont acAdd en fait partie) spécifie le mode de saisie de données (Ajout, Ajout/Mise à jour, Lecture seule) directement dans la requête ouverte dans la fenêtre base de données, cela n'a rien à voir avec l'exécution d'une requête action dans VBA, qui, comme précisé, se fait, de préférence, soit par la méthode Execute mais également par RunSql

PS: la discussion a été ouverte en 2007, je constate que Openquery fonctionne avec des requêtes action (en tout cas, avec une version récente)
pour résumé, ce qui fonctionne
pour toutes types de requêtes:
- Docmd.Openquery
pour les requêtes action:
- Docmd.Openquery
- Docmd.Runsql
- Database.Execute

je vois également que dans le code posté il y a DoCmd.SetWarnings False; il faut savoir que si, pendant l'exécution de la requête avec Openquery, il y a une erreur (même non grave, par exemple: un champ non mis à jour suite à une conversion de données) le système provoque une invalidation (Rollback), ce qui veut dire que la mise à jour ou l'ajout ne va pas à son terme et l'utilisateur ne le verra pas (à cause de l'instruction SetWarnings)
c'est pour cela qu'il faut privilégier Database.Execute avec l'option dbFailOnError pour voir et gérer les erreurs d'exécution

Merci
Oui j'avais bien lu les différentes pages d'aide de Microsoft.
Mais grâce à ton explication, je comprends qu'en fait, le paramètre acAdd permet à l'utilisateur d'ajouter manuellement des enregistrements.
J'ai testé DoCmd.OpenQuery sur une requête d'ajout, sur Access 2010 : cela ouvre la requête en mode feuille de données mais ne permet pas d'ajouter les enregistrements à une table.

Merci encore,

Citation:

---

Envoyé par An avel

J'ai testé DoCmd.OpenQuery sur une requête d'ajout, sur Access 2010 : cela ouvre la requête en mode feuille de données mais ne permet pas d'ajouter les enregistrements à une table.

---

ah OK, donc cela fonctionnerait avec les versions après 2010, sans savoir à partir de laquelle ... (j'ai Access 2016)