Lorsque j'écris :
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim Réponse As Integer
Réponse = MsgBox("Voulez-vous enregistrer le N° " &
Me.identifiant & " ?", vbYesNo, "Validation Saisie N° " & Me.identifiant)
If Réponse = vbNo Then
Cancel = True
End If
End Sub
Et que je clique sur "non" l'enregistrement ne s'annule pas.
pourquoi ?
Dans un formulaire en mode feuille de données
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FreeAccess
Bonjour ;-) Essaie ce code dans ton événement:
Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then Me.undo Cancel = true End if End Sub
Bonne continuation
Bonjour ;-)
Essaie ce code dans ton événement:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("Voulez-vous confirmer la modification", vbQuestion +
vbYesNo, "CONFIRMATION") = vbNo Then
Me.undo
Cancel = true
End if
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then Me.undo Cancel = true End if End Sub
Bonne continuation
Philippe
Ca fonctionne, merci beaucoup. Philippe
Bonjour ;-) Essaie ce code dans ton événement:
Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then Me.undo Cancel = true End if End Sub
Bonne continuation
Ca fonctionne, merci beaucoup.
Philippe
Bonjour ;-)
Essaie ce code dans ton événement:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("Voulez-vous confirmer la modification", vbQuestion +
vbYesNo, "CONFIRMATION") = vbNo Then
Me.undo
Cancel = true
End if
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then Me.undo Cancel = true End if End Sub
