[Programmation]msgbox de confirmation

Bonjour, ou plutôt bonsoir...

je me demandais si il était possible de ne pas demander de confirmation lors de l'éxécution de requêtes action ?

En effet, sur un Clic, j'execute successivement une requete Delete et une requete Insert, ce qui affiche successivement 4 msgbox de confirmation (confirmation de l'execution de la requête action delete, confirmation de la suppression des enregistrement, confirmation de l'execution de la requête action insert, confirmation de l'insertion des enregistrement) ce qui pourrait à la longue agacer l'utilisateur... :evilred:

Merci de vos réponses !

Oui, c'est possible et il y a une FAQ là dessus (elle montre comment neutraliser les messages) mais je préfére la solution suivante :

Code:

---

1 2	CurrentDB.Querydefs("maQuery").execute

---

Cela fait exactement la même chose sans nécessité de modifier le setting de la BD.

A+

menu Outils\Options\Modifier/Rechercher
Décocher les 3 options du groupe Confirmer

ou par code au démarrage de l'application

Code:

---

1 2 3 4

Application.SetOption "Modification des enregistrements", False Application.SetOption "Confirmer Suppressions de documents", False Application.SetOption "Confirmer Requêtes action", False

---

Attention, si tu applique la méthode de Helas, cela va supprimer TOUS les messages d'alerte que tu fasse tes manip par requète ou en direct sur les tables.

A+

Merci pour ton aide !

mes requetes sont executées à partir d'une macro ! comment dois-je insérer ta ligne de code dans le mien ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Commande111_Click() On Error GoTo Err_Commande111_Click   Dim stDocName As String   stDocName = "M_synthèse2" DoCmd.RunMacro stDocName   Exit_Commande111_Click: Exit Sub   Err_Commande111_Click: MsgBox Err.Description Resume Exit_Commande111_Click   End Sub

---

Peut-être faut-il traduire ce que fait la macro en vb ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Commande111_Click() On Error GoTo Err_Commande111_Click Dim stDocName As String stDocName = "M_synthèse2" CurrentDB.Querydefs(stDocName ).execute Exit_Commande111_Click: Exit Sub Err_Commande111_Click: MsgBox Err.Description Resume Exit_Commande111_Click End Sub

---

A+

Merci beaucoup !

A+

Petit souci !

j'ai l'erreur suivante qui s'affiche lorsque je clic :
Elémenet non trouvé dans cette collection.

Oops je me suis trompé, je n'utilise pas souvant les macro car le débuggage est difficile et j'ai mal lu ton code.

Ta macro fait-elle d'autre chose ?

Si oui alors la solution la plus simple est de faire ce qui est indiqué là

http://access.developpez.com/faq/?page=SQL#Warning

si non, trouve le nom de la requète et vois mon 1er message.

A+

Ok, merci !

j'ai testé et ça fonctionne au poil ! :king:

A+