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
Quand je ferme le formulaire pas de problème l'enregistrement est sauvegardé ou non selon ce que je choisis dans la msgbox.
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
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?
Partager