Discussion :

[ThieBEN]

Bonjour à tous,
Je rencontre un problème au niveau de l'action d'un msgbox.
J'ai une fonction supprimer photo et un msg box qui permet de confirmer ou d'annuler la suppression sauf que quoi que je fasse la photo est supprimée.

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
19
20
Function SupprimerPhoto()
On Error Resume Next
   Set CBBouton = CommandBars(CB_Nom).Controls(Bt14)
   CBBouton.Delete
 
    Me.EpiPhoto.value = vbNullString
    'Affichage de la photo "Non disponible" et modification du libellé
     Me.Image21.Picture = strRepertoirePhotos & "Blank.jpg"
 
    Dim iRéponse As Integer
iRéponse = MsgBox("ATTENTION VOUS ALLEZ SUPPRIMER LA PHOTO" & Chr(13) & Chr(13) & _
"SI VOUS ËTES D'ACCORD VEUILLEZ CONFIRMER", vbOKCancel, "AVERTISSEMENT")
 
If iRéponse = vbCancel Then
DoCmd.CancelEvent
MsgBox "SUPPRESSION ANNULEE"
End If
 
 
End Function

Merci de votre aide

[Kloun]

Si je comprends bien, tu supprimes la photo et ensuite, tu poses la question ?
Y'aurait pas un problème dans l'ordre des actions ?

[berti]

Essaie avec des boutons Oui Non

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim reponse
 
    reponse = MsgBox("Etes-vous sûr de vouloir supprimer la photo?", vbYesNo, "ATTENTION")
 
    If reponse = vbYes Then
        'suppression
    End If
    If reponse = vbNo Then
        'messahe d'annulation
    End If

[ThieBEN]

Je pense comme toi que l'ordre n'est pas terrible mais ça ne marche toujours pas même avec ton code il supprime la photo même quand je mets NON.

[Kloun]

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
19
Function SupprimerPhoto()
On Error Resume Next
 Dim iRéponse As Integer    
 
iRéponse = MsgBox("ATTENTION VOUS ALLEZ SUPPRIMER LA PHOTO" & Vbnewline & Vbnewline & _
"SI VOUS ËTES D'ACCORD VEUILLEZ CONFIRMER", vbOKCancel, "AVERTISSEMENT")
 
If iRéponse = vbCancel Then
   MsgBox "SUPPRESSION ANNULEE"
else
   Set CBBouton = CommandBars(CB_Nom).Controls(Bt14)
   CBBouton.Delete
    Me.EpiPhoto.value = vbNullString
    'Affichage de la photo "Non disponible" et modification du libellé
     Me.Image21.Picture = strRepertoirePhotos & "Blank.jpg"
End If
 
 
End Function

[ThieBEN]

Merci Kloun,
Ca marche nickel.
Mais je ne sais pas où sa coincé car tu n'as pas donné d'explications.
Cela m'aiderait beaucoup pour l'avenir.
En tout cas merci de ton aide.
ThieBEN

[Kloun]

Dans ton code, tu supprimais et tu posais la question.
Là, je pose la question, et s'il le faut, je supprime.

[berti]

Le principe des boutons dans les msgbox est que tu fais l'action quand tu cliques sur le bouton.

Toi tu suprimais la photos et ensuite tu faisais afficher le bouton.

Kloun a juste mis ton code au bon endroit.

je trouvais plus claire en faisant afficher les boutons oui non.

Si je clique sur oui alors j'exécute le code me permettant d'effacer la photo
sinon j'affiche le message suppression annulée.

[Kloun]

C'est vrai qu'un

Code :

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

vbYesNo + vbQuestion

ça ferait mieux.