Discussion :

[TheDan85]

Bonjour,

J'essaye de faire un formulaire dans lequel je souahite demander a l'utilisateur si il veut sauvegarder ou non l'enregistrement en cours lors de: la fermeture du formulaire, ou de la création d'un nouveau enregistrement.

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btnAjout_Ticket_Click()
DoCmd.GoToRecord , , acNewRec
 'DoCmd.RunCommand acCmdRecordsGoToNew
End Sub
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Dirty = True Then
    If MsgBox("Voulez vous enregistrer l'enregistrement en cours?", vbYesNo + vbQuestion, "Save") = vbYes Then
    Else
        Me.Undo
    End If
End If
End Sub

Quand je ferme le formulaire pas de problème l'enregistrement est sauvegardé ou non selon ce que je choisis dans la msgbox.
Par contre si j'appelle la procédure btnAjout_Ticket_click() et que je ne veux pas sauvegarder l'enregistrement je reçois l'erreur '2105': Impossible d'atteindre l'enregistrement spécifié et le code bloque a la ligne DoCmd.GoToRecord , , acNewRec.

On dirait que c'est Me.Undo qui pose problème... Quelq'un a t-il une idée?

[marot_r]

Bonjour.

Je pense que ta réponse est là.

Comment fait-on pour un avoir un message de confirmation avant sauvegarder un enregistrement modifié ?
https://access.developpez.com/faq/?p...ees#MsgConfirm

Et Dirty est un indicateur très peu fiable de la "qualité" d'un enregistrement.

A+

[TheDan85]

Bonjour.

Je pense que ta réponse est là.

Comment fait-on pour un avoir un message de confirmation avant sauvegarder un enregistrement modifié ?
https://access.developpez.com/faq/?p...ees#MsgConfirm

Et Dirty est un indicateur très peu fiable de la "qualité" d'un enregistrement.

A+

Merci pour la réponse mais cela n'as pas vraiment répondu a ma question.

Mon probème venait du fait que "DoCmd.GoToRecord , , acNewRec" fait appel a l'evénemment BeforeUpdate. Donc ce qui se passe c'est que access crée un nouveau enregistrement qui s'annulle immédiatement si je clique sur Non dans la msgbox, et me voila avec le message d'erreur 2105.

Ce que j'ai du faire est d'appeller l'événement BeforUpdate avant de créer un nouvel enregistrement afin d'agir sur l'enregistrement actuel avant d'en créer un autre, voila mon code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btnAjout_Ticket_Click()
Call Form_BeforeUpdate(False)
DoCmd.GoToRecord , , acNewRec
End Sub
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Dirty Then
    If MsgBox("Voulez vous enregistrer l'enregistrement en cours?", vbYesNo + vbQuestion, "Save") = vbNo Then
        Me.Undo
        Cancel = True
    End If
End If
End Sub

Par contre quel meilleure alternative existe-il a Me.dirty pour vérifier le changement d'un record?