Discussion :

[fbu78]

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 :

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

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

[helas]

Et ceci ?

Code :

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

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 :

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

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"

[fbu78]

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+

[mout1234]

Essayes avec

Code :

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

Currentdb.Execute "R_SUPP_CCXCHQPROD",dbFailOnError

[fbu78]

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

Merci encore

[Invité]

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 :

Starec

[An avel]

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

[tee_grandbois]

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

[tee_grandbois]

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

[An avel]

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,

[tee_grandbois]

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)