Personnaliser message d'alerte suppression

[jalalnet]

Bonjour,
J'aimerai désactiver le message d'alerte lors de suppression d'un enregistrement à partir du formulaire et en recréer un autre personnalisé.
"Merci"

[GAYOT]

Bonjour
Cette suppression se fait elle, à partir d'un bouton personnalisé?

[jalalnet]

un bouton de suppression Macro[Execute commande => supprimer enrg]
je voulais déactivé l'alert de suppression ou la modifié. en gros change la langue de l'alert c tous

[dok flint]

Bonjour ,
Tu ajoute ce petit bout de code sur le bouton normal de suppression que tu as sur ton formulaire.(Moi j'ai mis tout le code d'un bouton nommé "commande45"

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
 
Private Sub Commande45_Click()
On Error GoTo Err_Commande45_Click
 
'Pour arreter les Message d'alerte automatiques
DoCmd.SetWarnings False
 
 
'Le message d'alerte personaliser
If MsgBox("Vous allez supprimer la version,Voulez vous continuer", vbInformation + vbYesNo, "Attention") = vbYes Then
 
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
Exit_Commande45_Click:
    Exit Sub
 
Err_Commande45_Click:
    MsgBox Err.Description
    Resume Exit_Commande45_Click
'Pour remettre les Message d'alerte automatiques
'Attention il faut les activer pour avoir les autres messages de l'application
DoCmd.SetWarnings True
 
End Sub

A+

[jalalnet]

merci mec c'est ce que je cherche

[jalalnet]

Code :

1
2
3
 
 DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

c'est la parti qui concerne la suppression je pense?? tu peut me la explique stp si tu est bien en VBA

[dok flint]

Bonjour ,
Toi tu n'a pas a t'en faire pour cette partie , ça c'est l'exemple.
Si tu veux envois le code de ton bouton de suppression comme il est
et je ferais les rectif et tu n'aura qu'a le recopier.
A+