Discussion :

[vinystic]

Bonsoir à tous,
J'ai un formulaire sur lequel il y a un bouton "Annuler / Quitter" qui permet de quitter le formulaire sans enregistrer avec la fonction undo.
Mon problème est que ça ne fonctionne pas si un champ avec masque de saisie n'est pas respecté ( j'ai un message d'erreur: La valeur entrée n'est pas appropriée au masque....) et je dois appuyer sur echap pour que ça marche.. Or je voudrais que l'utilisateur puisse quitter le formulaire à tout moment.
Merci

[NaïsMouart]

Bonjour,

Peut-être peux-tu essayer de neutraliser les messages d'erreur avec la commande :

Code :

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

DoCmd.SetWarnings Off

[Tonioyo]

A mon avis la solution serrai d'annuler la modification en cours de la nouvelle ligne avant de faire le docmd.undo, ce qui sous entends de récupérer le recordset et d'essayer d'annuler les modifs en cours. Je pense par exemple a la fonction cancelupdate d'un recorset voir aussi les propriétés lastmodified / lastupdated.

[mout1234]

Bonjour,

Peut-être peux-tu essayer de neutraliser les messages d'erreur avec la commande :

Code :

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

DoCmd.SetWarnings Off

La santaxe ne serait-elle pas plutot ceci ?

Code :

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

Docmd.SetWarnings False

Mais je doute que cela corresponde au problème.

[Gabout]

Bonjour tout le monde, salut mout1234

vinystic : peux-tu nous montrer ton code d'annulation ?
Qui plus est, tu peux toujours utiliser SendKeys pour simuler la touche Echapp. (c'est pas super mais si ne trouves pas mieux, le résultat sera là !).

A+

[Domi2]

Bonsoir,

@Gabout

Sendkeys ? Pas terrible, comme tu le relèves très justement...

@vinystic

Je viens de faire un test, ça ne pose semble-t-il aucun problème...

Le code (dixit Gabout) et peut-être des précisions sur le contexte, ce serait bien...

Domi2

[philben]

bonjour,

il faut passer par l'évenement error du formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Form_Error(DataErr As Integer, Response As Integer)
   'Erreur : Valeur entrée <> du masque => annulation saisie
   If DataErr = 2279 Then
      Me.ActiveControl.Undo
      Response = acDataErrContinue
   'Erreur : Fermeture du formulaire sans sauvegarde des modifications
   ElseIf DataErr = 2169 Then
      Response = acDataErrContinue
   End If
End Sub

Le problème avec un bouton perso, c'est qu'il faut cliquer deux fois dessus pour fermer le formulaire si on est en édition sur un champ (une fois pour undo et une fois pour quitter)...
La croix de fermeture du formulaire permet quant à elle de le fermer directement même si une édition est en cours.

Philippe