Discussion :

[CapErquy]

Bonjour
Je voudrais que lors d'une sélection dans une liste déroulante un message soit envoyé à l'utilisateur pour lui demander si il souhaite réellement valider sa sélection. J'ai donc utilisé le code suivant dans l'évènement Avant mise à jour :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub LDEtatDossier_BeforeUpdate(Cancel As Integer)
    If MsgBox("Modifications effectuées." _
        & vbCrLf & vbCrLf & "Voulez-vous réellement valider votre choix?" _
        , vbYesNo, "Modifications demandées") = vbYes Then
            DoCmd.Save
        Else
            DoCmd.RunCommand acCmdUndo
    End If
End Sub

Or quand la réponse est Non j'obtiens le message suivant : Erreur d'exécution 2046 La commande ou l'action Annuler n'est pas disponible pour l'instant.
Merci à qui pourra me dire comment faire

[accessisgood]

j'ai teste dans une before update de form, il n'y a pas de message d'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If MsgBox("Modifications effectuées." _
        & vbCrLf & vbCrLf & "Voulez-vous réellement valider votre choix?" _
        , vbYesNo, "Modifications demandées") = vbYes Then
            DoCmd.Save
        Else
            DoCmd.RunCommand acCmdUndo
    End If
 
End Sub

[micniv]

Bonjour à tous ,
c'est un peu incongru d'essayer de faire un .save ou un .Undo dans un evt _BeforeUpdate
essayer plutôt :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub LDEtatDossier_BeforeUpdate(Cancel As Integer)
    If MsgBox("Modifications effectuées." _
        & vbCrLf & vbCrLf & "Voulez-vous réellement valider votre choix?" _
        , vbYesNo, "Modifications demandées") <> vbYes Then
            Cancel = true
    End If
End Sub

Cordialement

[CapErquy]

Merci pour vos réponses. Je viens d'essayer la solution avec

Code :

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

Cancel = True

mais si je réponds Non au message la nouvelle entrée est quand même prise en compte. Même avec une zone de texte à la place d'une liste déroulante le problème est le même.
Y a-t-il une autre méthode pour aboutir au résultat que je cherche ? Merci pour les réponses

[ClaudeLELOUP]

Bonjour,

Ajoute l'instruction

Code :

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

      Me.Undo

Pour détricoter ce que tu as encodé.