Discussion :

[deviltaz]

Bonjour,

j'utilise un formulaire avec un contrôle onglets
et deux sous-formulaires incorporés.

Je souhaite pouvoir utiliser la méthode undo
pour annuler les modifications faites par un utilisateur.

La simple méthode undo appliquée au formulaire principal
ne semble pas avoir de conséquences sur tous les contrôles.

Voyez-vous une solution à ce problème ?

D'avance merci de vos réponses.

[estancha]

bonjour,

tu peux peut-être utiliser undo lors de l'évènement clic sur les onglets.

estancha.

[argyronet]

Bonjour,

Je te suggère d'utiliser la propriété Dirty pour vérifier que le formulaire a été modifié.
Dans ce genre de cas, perso, je met le SousForm.Locked à True avec un bouton Modifier. Cela me permet de 'flaguer' les interventions de l'utilisateur.
Mais comme le dit estancha, tu dois l'appliquer à chaque sous formulaire mais en présisant le formulaire parent:

Code :

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

Forms!MonFormParent.form!SousForm!MonControl.Undo

A+

Argy

[DonFelipe]

Slt,
Pour ma part j'utilise rarement les formulaire en direct-record sur la table de "stockage". Je m'explique : en fait ce que je fais, je crée mon form sur une table-tampon qui est identique à la table destination et je mets un bouton genre valider ou ok en bas du form. Ainsi, tout est stocké sur la table provisoire et le transfer n'est fait qu'à la fin de la saisie par simple clic. Ainsi tu peux toujours revenir dans n'importe quelle case pour modifier ce que tu veux avant de valider.... Je ne sais pas si cela répond vraiment à ta question mais je pense en toute modestie que c'est également une manière de faire qui peut être interessante... ....

[argyronet]

Je suis d'accord avec DonFelipe....
C'est une méthode que j'utilise plutôt sous SQL server.
Bref, à toi de voir la solution la mieux adaptée.

A+

Argy

[deviltaz]

Déjà, merci à tous pour vos réponses.

J'ai finalement opté pour la méthode proposée par DonFelipe,
je passe désormais par des tables temporaires.
Ca m'a fait un peu de boulot mais c'est clair que c'est
nettement plus propre

[DonFelipe]

... t'a raison Argy, moi aussi j'ai pas mal bossé sur des appli basées sur SQL-Server ce qui fait que j'ai du avoir cette habitude qui est devenue un peu comme un reflexe... ...

...quant à Deviltaz, je suis content que mon t'ait servi même si ma reponse était un brin hors-sujet puisque je ne resolvais pas tout à fait la notion de UNDO.... .... mais bon le principal c'est que le shmilblik avance un minimum.... ....

NB: n'oubliez pas la balise resolu une fois la question traitée....

[deviltaz]

Ta réponse était pas si hors-sujet que ça puisqu'elle m'a permis
de régler mon problème et de m'apprendre une méthode meilleure
que celle que je tentais de mettre en place.

Et merci de m'avoir fait penser à la balise résolu

[deviltaz]

le transfer n'est fait qu'à la fin de la saisie par simple clic.

Serait-il possible d'avoir une petite précision sur ce fameux transfert :

En fait, j'applique la méthode de la table temporaire et lors de la validation,
je lance une requête de type UPDATE pour mettre à jour les données
de la table originale. Le hic c'est qu'avec une table conséquente en terme
de nombres de champs, je dois faire une requête immense.

Si il n'y a pas d'autres solutions, c'est faisable mais ça m'oblige
à scinder en plusieurs requêtes :-?

Je me demandais s'il n'y avait pas une meilleure méthode
sachant que mes deux tables ont exactement la même structure.

D'avance merci de vos réponses.

[Papy Turbo]

Je me demandais s'il n'y avait pas une meilleure méthode
sachant que mes deux tables ont exactement la même structure.

Tu as essayé de supprimer la table d'origine et de renommer la table temporaire ?

[DonFelipe]

Serait-il possible d'avoir une petite précision sur ce fameux transfert :

Slt,
Quand j'ai écrit transfert je n'ai nullement parlé de requête... 8) ... en fait je parlais d'une "injection" grâce à du code qui se trouverait dans ton formulaire sur l'evenement clic de ton bouton de validation.
Voici un exemple de code :

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
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub btnOK_Click()
DoCmd.SetWarnings False
Dim dbas As Database
Dim dtab As Recordset
Set dbas = DBEngine.Workspaces(0).Databases(0)
Set dtab = dbas.OpenRecordset("ASSURE", DB_OPEN_TABLE)
If chnumero <> "" Then
    With dtab
        .AddNew
        ![N° Assure] = chnumero
        ![Nom Prenom] = chnom
        ![Adresse1] = chadr1
        ![Adresse2] = chadr2
        ![Code Postal] = chCP
        ![Ville] = chville
        ![N° Secu Social] = chSECU
        ![Date Creation] = chDATE
         .Update
    End With
End If
DoCmd.RunSQL "delete * from ASSURETempo"
    [chnumero] = Null
    [chnom] = Null
    [chadr1] = Null
    [chadr2] = Null
    [chCP] = Null
    [chville] = Null
    [chSECU] = Null
DoCmd.SetWarnings True
End Sub

Voili voilou...
Ici ma table definitive de "stockage" s'appelle ASSURE est celle temporaire s'appelle ASSURETempo, mais ça je crois que tu l'avais bien compris mon cher Deviltaz...

Allez, au boulot !!!

[deviltaz]

Appliqué à mon problème,
j'utilise la méthode Edit à la place de AddNew

Merci beaucoup de ces renseignements
qui m'auront permis d'apprendre une méthode
plus propre pour faire de l'édition et de la création
d'enregistrements sous Access.

[DonFelipe]

...je suis content que nos réponses t'aient été utiles...
Bon courage et tiens nous au courant de tes avancements...