[VBA] modifier 1 message d'erreur

Bonjour,

Dans un formulaire, j'ai créer un bouton qui me permet de supprimer un enregistrement.

Lors de l'exécution, j'ai un message automatique qui me demande de confirmer la suppression de l'enregistrement. Lorsque je refuse, j'ai un autre message d'erreur:
" L'action Do MenuItem a été annulée"

Est - il possible de changer directement le message d'erreur ou de masquer ce message par un autre.
J'ai réussi à créer une nouveau message, mais le message automatique " L'action Do MenuItem a été annulée" s'affiche toujours.

merci

Tomas

Bonjour,

Citation:

---

Envoyé par tomas

Lors de l'exécution, j'ai un message automatique qui me demande de confirmer la suppression de l'enregistrement. Lorsque je refuse, j'ai un autre message d'erreur:
" L'action Do MenuItem a été annulée"

Est - il possible de changer directement le message d'erreur ou de masquer ce message par un autre.

---

Tu ne pourras pas empêcher l'erreur de se produire.

En revanche, tu peux mettre en oeuvre la gestion d'erreurs afin de capturer ou d'ignorer l'erreur provoquée.
En VBA on utilise l'instruction On Error.

Consulte l'aide en ligne de VBA, tout y est expliqué en détails.

Citation:

---

Syntaxe

On Error GoTo line

On Error Resume Next

On Error GoTo 0

---

Je te conseille tout simplement d'ignorer l'erreur en ajoutant l'instruction avant l'exécution du Docmd.DoMenuItem:

Code:

---

1 2 3

On Error Resume Next   Docmd.DoMenuItem ...

---

bonjour,

devant le meme pb, à savoir eviter la demande de confirmation (<> de la gestion d'erreur), j'utilise la commande

Code:

---

docmd.setwarnings = false

---

nb: ne pas oublier apres les instructions de suppression de remettre la valeur true

Bonjour

Je gérerai l'erreur plutôt que l'ignorer, car une autre erreur peut survenir et on ne la détectera pas.

Voici une exemple de code :

Code:

---

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

Private Sub cmdCritique_Click() ' ===== ouverture la boite de sélection d'une image ===== Dim strTamp As String strTamp = OuvrirUnFichier(Me.hwnd, "Charger une Image", 1, "Fichier Image") If strTamp = "" Then Else strChemCritique = strTamp End If On Error GoTo GestError ' gestion de l'erreur Call AlimenterControles Exit Sub GestError: If Err.Number = 481 Then MsgBox "Le format de l'image sélectionnée n'est pas reconnu", vbExclamation + vbOKOnly, "Format Incorrect" Else MsgBox "Une erreur est survenue" & vbCrLf & Err.Number & " - " & Err.Description End If End Sub

---

Quand l'erreur survient je vais sur GestError: (l'erreur survient dans la routine AlimenterControles), je gère l'erreur que j'ai reconnu (lors de la création de mon code), et je gère aussi si une autre erreur survient et que je n'ai pas encore détecté.

Starec

hello,

je suis tout à fait d'accord sur le principe de gestion d'erreur

mais ici il s'agit plutot d'eviter un message qui va demander de confirmer la suppression de donnees dans la table, ce n'est pas un message d'erreur à proprement parler.

Si on veut traiter le cas par la gestion d'erreur il faut pouvoir repérer le type d'erreur (numéro) et je ne suis pas sûr que ce soit faisable avec un message d'information...