[VBA]Message de confirmation docmd.runsql

Bonjour à tous,

J'utilise une commande du genre :
docmd.runsql "delete .........."

J'aimerais savoir si celà est possible d'enlever le message du genre :
"Vous êtes sur le pont d'effacer n enregistrement ..... Voulez-vous continuer ? Oui Non

Si quelqu'un à une idée
Merci

Willy

Bonjour

Un peu de recherche :faq:

Starec

allez, j'ai posé la même question y'a 2 jours xD

outils ==> options ==> modifier/rechercher ==> Confirmer, tu décoches

ou par VBA:
DoCmd.SetWarnings

Bonsoir,

Pour être plus précis......;)
Pour désactiver les messages systèmes

Code:

---

DoCmd.SetWarnings False

---

Pour les réactiver

Code:

---

DoCmd.SetWarnings True

---

;) ;)

Bonjour,

Pour ma part, je préfère nettement faire appel à la méthode Execute, en utilisant le cas échéant l'argument dbFailOnError...

Par exemple:

Code:

---

CurrentDB.Execute "DELETE ...", dbFailOnError

---

Dans ce cas, nul besoin de SetWarnings

Citation:

---

Envoyé par Herman

allez, j'ai posé la même question y'a 2 jours xD

outils ==> options ==> modifier/rechercher ==> Confirmer, tu décoches

---

Pour moi c'est une mauvaise méthode, lorsque je teste un programme, j'aime bien avoir les messages de confirmation et ensuite utiliser DoCmd.SetWarnings, si j'ai un soucis je les mets en commentaires pour confirmer les opérations.

Starec

c'est aussi surtout que n'importe qui peu aller changer cette valeur... et te faire réaparaître les avertissements (si tu ne retire pas la barre de menu).
mais comme le dit starec tant que tu es en conception il faut garder les messages c'est utile.

FreeAccess> merci pour les précisions, toujours aussi tatillon a ce que je vois, mais tu as raison. :mouarf:

Bonjour,

Si je peux me permettre.

Laisser tous les messages tant que l'on est en conception et modifier les options de l'application par le code sur la version de production.

Domi2

Qui est le vilain qui a répondu ça sur un thread l'autre jour alors !!!!! :mouarf:

j'avais pas vu ton post mout1234: effectivement c'est mieux

bonjour,

comme moult1234, je pense même que c'est ring...

On va attendre le contre-pied des patrons !

Cordialement,

Philippe

Salut

Citation:

---

Envoyé par philben

On va attendre le contre-pied des patrons !

---

De qui tu parles :aie:

Personnellement j'utilise la solution des setwarnings. Mais la solution de mout1234 est aussi bonne ;)

un bémol à la solus de mout1234:
ca marche pas pour retirer le message:

Citation:

---

Vous êtes sur le point d'effacer n enregistrement ..... Voulez-vous continuer ? Oui Non

---

Bonsoir viodem,

Citation:

---

Envoyé par viodem

un bémol à la solus de mout1234:
ca marche pas pour retirer le message:
Citation:
Vous êtes sur le point d'effacer n enregistrement ..... Voulez-vous continuer ? Oui Non

---

HA bon??? je n'ai jamais de cas de ce genre !? dans quel cas??

ben j'ai essayé ca:

Code:

---

DoCmd.RunSQL "DELETE FROM table3 WHERE (id=123)", dbFailOnError

---

et il me demande une confirmation :(

Bonjour,

Bien lire....;) ;)

Code:

---

CurrentDB.Execute "DELETE ...", dbFailOnError

---

n'est pas identique à

Code:

---

DoCmd.RunSQL "DELETE FROM table3 WHERE (id=123)", dbFailOnError

---

Une petite explication ici:
http://access.developpez.com/faq/?page=SQL#MessErrInvi

Bonne continuation..

ben je les cumule cette semaine...
effectivement ca marche mieux comme ca :king:
j'étais resté sur l'idée du début qd j'ai fait mon test:
willytito:

Citation:

---

docmd.runsql "delete .........."

---

bon j'aurais au moins appris deux choses:
dbFailOnError ok avec CurrentDB.Execute
dbFailOnError pas cool avec docmd.runsql

et puis j'espère que willytito en aura profiter aussi et qu'avec tous ce qu'on a écrit pour si peu je pense qu'il aura matière à réflexion et mettre résolu... :lol:

Je vous remercie tous pour votre aide
Willy