Discussion :

[petitours]

Bonjour,

Dans un formulaire, j'ai un sous formulaire au format feuille de donnée dans lequel je fais des modifications directement sur les enregistrements.
Je souhaite pouvoir revenir en arrière en cas d'erreur (sans avoir une demande de confirmation à chaque beforeupdate)

J'ai ajouté un bouton d'annulation tel qu'il est proposé dans l'assistant mais quand je clique ca me dit "la commande ou l'action annuler n'est pas disponible pour l'instant"

J'ai trouvé dans les archives que ce message est du au fait qu'il n'y a "pas de beforeUpdate en cours"...mais ca ne m'avance pas beaucoup

PS : il y a ce code dans le bouton fabriqué par l'assistant

Code :

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

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

que je n'arrive pas à comprendre

Merci

[Mr T 94]

Salut,
probablement parce que tu es en cours de modification et celà n'est pas encore pris en compte.
quand tu etre un nouvel enregistrement ou que tu modifie, tant que tu n'es pas passé sur un autre enregistrement, il n'y a pas à annuler par la commande. Si tu veux annuler ce que tu es en train de faire, tu appuie sur "Echape".
Essayes, si ça annule ta modif, c'est le bon cas, sinon, il faut chercher ailleur.
bonne chance.

[Domi2]

Bonjour,

Essaie de remplacer ton code par

Code :

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

Me.Undo

Domi2

[petitours]

Bonjour,

en faisant echap ca fait bien ce que je veux... ce serait bien si le bouton annuler pouvait faire pareil, avant avoir validé en changeant d'enregistrement comme ici avec echap et apres avoir validé en changeant d'enregistrement.

En mettant Me.Undo il n'y a rien d'annulé, juste le sous formulaire qui fretille un instant (doit se passer quelquechose) et ca valide tout le sous formulaire puisque echap ne fonctionne plus apres ; l'enregistrement en cours est validé apres le Me.undo

Merci

[Domi2]

Re,

Sorry, pas vu qu c'était un sous-formulaire...

Essaie avec

Code :

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

Forms!NomduSousForm.Undo

Pas testé...

Domi2

[petitours]

ca me dit impossible de trouver le formulaire "RessEnTable"
en ecrivant ceci

Code :

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

Forms!RessEnTable.Undo

là c'est moi qui suis un peu faché avec les synthaxes pour appeler les composants...

c'est bien le nom du sous formulaire dans lequel je veux annuler les modifs
et ce formulaire est bien dans la meme page de mon onglet où se trouve le bouton avec le code.

[Domi2]

Re,

Code :

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

Forms!TonFormulaire!RessEnTable.Undo

Domi2

[petitours]

propriété ou methode non gérée par cet objet

avec

Code :

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

Forms!Debut!RessEnTable.Undo

Debut est le nom du formulaire principal sur lequel il y a un onglet avec sur une de ses pages le bouton annuler et le sous formulaire à gérer par l'annulation

Peut etre faut il parler de la page onglet dans cette commande ?

Merci

[Domi2]

Re,

Peut etre faut il parler de la page onglet dans cette commande ?

Non, je ne crois pas... L'onglet n'est qu'une sorte de container...

d'ailleurs, tu peux vérifier.

si tu tapes Me. et que RessEnTable s'affiche dans les propositions, c'est qu'il est disponible sans passer par l'onglet.

Domi2

[petitours]

Il est accesible comme ca

donc c'est bien que le Undo n'est pas géré par le sous formulaire

[Domi2]

Re,

J'ai testé ceci, cela à l'air de répondre à ta demande.

Code :

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

Me.RessEnTable.Form.Undo

Code à placer dans le module du formulaire.

Domi2

[petitours]

je ne comprends pas où il faut le mettre

par quoi doit il etre appelé ce code ?

Merci

[Domi2]

Re,

Par exemple sur clic d'un bouton placé dans le formulaire...

Domi2

[petitours]

toujours pas...

le meme effet que l'essai avec Me.Undo

j'ai essayé de faire un Me.RessEnTable.requery en plus pour mettre à jour le sous formulaire apres l'annulation, ca ne change rien au probleme

[Domi2]

Re,

Sorry, mais j'ai pas mieux... J'ai fais un test et cela semble fonctionner... En tous les cas, cela m'annule bien les modifications effectuées...

Domi2

[petitours]

bon ben je vais creuser pour comprendre pourquoi le undo ne fonctionne pas sur mon ss formulaire

merci beaucoup pour tes recherches en tous cas !

[p'tite Sandrine]

As tu essayé la méthode proposer dans l'aide F1 de accès?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Form_Dirty()
    If Me.Dirty Then
        Me!btnUndo.Enabled = True    ' Active le bouton annuler.
    Else
        Me!btnUndo.Enabled = False    ' Désactive le bouton annuler.
    End If
End Sub
 
Sub btnUndo_Click()
    Dim ctlC As Control
        ' Pour chaque contrôle.
        For Each ctlC in Me.Controls
            If ctlC.ControlType = acTextBox Then
                ' Restaure l'ancienne valeur.
                ctlC.Value = ctlC.OldValue
            End If
        Next ctlC
End Sub

J'espère que ca pourra t'aider

[petitours]

ca me fait toujours pareil

le formulaire tremble comme s'il etait mis à jour et Echap ne fonctionne plus (l'enregistrement a été validé ?) mais rien ne s'annule

[Mr T 94]

Salut,
Comme je le disais au début, si le "Echap" fonctionne, c'est que ton enregistrement n'est pas encore validé donc, ton undo ne peut pas fonctionner (on ne peut pas annuler une action qui n'a pas encore eu lieu).
Par contre, si ton enregistrement est validé, tu peux utiliser undo. quand tu clique sur ton bouton, si celà valide ton enregistrement et que le code fonctionne, tu doit pouvoir annuler en rappuyant dessus.
Bon courage.

[petitours]

nan...

J'ai essayé de faire un autre projet à coté avec un simple unique et tout bête sous formulaire qui affiche le contenu d'une table avec juste à coté un bouton d'annulation

pareil...

si je clique plusieurs fois ca ne fait rien de plus