Discussion :

[Misha]

Bonjour,

donc voila une question qui a l'air bête mais je ne comprend pas pourquoi cela ne marche pas.

Je m'explique, j'ai généré un bouton de suppresion via l'assistant d'Access qui me crée donc à cet effet le code suivant dans lequel j'ai ajouté un message de confirmation :

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
 
Private Sub cmd_Supprimer_Click()
On Error GoTo Err_cmd_Supprimer_Click
 
    If (MsgBox("Attention, la commande de suppression effacera de manière définitive les informations concernant ce contact. Souhaitez vous confirmer cette commande ? ", vbApplicationModal + vbYesNo)) = vbOK Then
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    End If
 
Exit_Err_cmd_Supprimer_Click:
    Exit Sub
 
Err_cmd_Supprimer_Click:
    MsgBox err.Description
    Resume Exit_Err_cmd_Supprimer_Click
End Sub

Le problème c'est que lorsque je clique sur ce bouton de suppression à partir de mon formulaire, rien ne se passe. Je voudrais savoir s'il y une erreur dans le code ou autre chose...

Merci d'avance.

[Pierre Fauconnier]

Bonjour

Le problème vient du fait que tu affiches un message avec les boutons Oui et Non, et que tu testes si l'utilisateur a pressé le bouton OK...

Il faut donc changer vbOk par vbYes...

Ok?

[Misha]

Thanks !!

c'est vraiment une erreur que je n'avais pas vu !!!

Merci encore

[Pierre Fauconnier]

Thanks !!

c'est vraiment une erreur que je n'avais pas vu !!!

Merci encore

Ben oui . Je suppose que si tu l'avais vue, tu l'aurais corrigée...

Bonne continuation