Discussion :

[tomas]

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

[=JBO=]

Bonjour,

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.

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 :

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

1
2
3
On Error Resume Next
 
Docmd.DoMenuItem ...

[seacat]

bonjour,

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

Code :

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

docmd.setwarnings = false

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

[Invité]

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 :

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

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

[seacat]

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...