Discussion :

[snoopy69]

Bonjours à tous ...

Je développe une base d données sous Access 2003.

J'aimerais savoir comment je peux faire pour annuler les modifications de données apportées à un sous-formulaire.

Je sais que pour un formulaire je peux utiliser : Me.Form.UNDO mais pour mon sous-formulaire cela ne fonctionne pas ...

Est-ce que vous auriez des idées ???

Merci de votre aide ... et à tout bientôt ...

[sunvialley]

est ce que ton chemin vers ton sous formulaire est correcte (je me suis fais pieger comme ca) ?

ca doit ressembler à ca normalement :

Code :

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

Me.monSousFrom.Form.form2.undo

- Me étant le formulaire principal
- monSousforme étant le nom de la source du sous formulaire pour le formulaire principal
- form2 étant le nom de ton sous formulaire

[snoopy69]

Merci pour ta réponse ... alors voici ce que j'ai mis :

Code :

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

Me.Form(str_NomFormulaire).Form(str_NomSousFormulaire).Undo

str_NomFormulaire : Contient le nom du formulaire principal
str_NomSousFormulaire : Contient le nom de mon sous-formulaire

Mais cela ne fonctionne pas vraiment ...

Si vous avez des idées ... merci de votre aide ...

[Tofalu]

Pourquoi Form(xxxx)

Form n'est pas une collection

Me.NomDuCadreDeSousFormulaire.Form.Undo

[sunvialley]

effectivement j'ai mis form2 en trop (car le .Form nous donne déjà le formulaire...) en fait apres le .form il faut mette le control ciblé, dsl

sinon, je pensais pas que tes noms de formulaire étaient variables, je passe toujours comme dit Tofalu. Sinon ca donne :

Code :

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

Me.Controls(str_NomSousFormulaire).Form.undo

ou

Code :

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

Application.Forms(str_NomFormulaire).Controls(str_NomSousFormulaire).Form.undo

[snoopy69]

Merci à tous pour vos réponse ..

Alors j'ai essayé ceci :

Code :

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

Me.Controls(str_NomSousFormulaire).Form.undo

et ceci :

Code :

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

Application.Forms(str_NomFormulaire).Controls(str_NomSousFormulaire).Form.undo

Mais cela ne fonctionne pas ... lorsque mon code s'exécute il n'y a pas de problème (aucune erreur comparé à avant ) mais lorsque je regarde mes informations dans mon sous-formulaire lorsque j'ouvre à nouveau mon formulaire, je m'apperçois que les modifications ont été enregistrées alors qu'elles ne devraient pas ...

Je ne comprend pas pourquoi ... ...

Si vous avez encore des idées, elles seront les bienvenues ... Merci encore mille fois pour votre aide ... et à tout bientôt ...

[Arkham46]

slt,

ça dépend de où tu as mis ton code (quel événement), mais si tu es dans le formulaire principal alors c'est trop tard, les modifs sont déjà enregistrées dans le sous-form

il faut agir au niveau du sous-form

[snoopy69]

Ok ... alors c'est un peu la M...

Mon code se trouve sur un bouton qui sert à quitter le formulaire c'est à dire sur le formulaire ...

Ce qu'il faut que je fasse pour remédier à mon problème c'est un truc du style :

1) Sauvegarde de la valeur avant modification dans une variable
2) Si la réponse à : Voulez-vous enregistrer est non,
2.1) Parcourir la table en cherchant la bonne ligne,
2.2) Remettre la valeur sauvegardée dans la table
2.3) Sauvegarder la table
3) Quitter le formulaire


En gros, cela aurait vraiment été plus simple d'utiliser un simple : .UNDO ... ...

Merci pour ton aide en tout cas ... et je vais me mettre dans ma programmation VBA pour essayer de faire ce que je viens de citer ...

A tout bientôt ... ...

PS : Je laisse encore ce post le temps que je fasse ma fonction pour que je puisse par la suite publier mon code, qui sais, cela peut servir à quelqu'un ...

[snoopy69]

Je relance un peu le sujet car mon problème est toujours là ... je ne parviens pas à annuler mes modifications et peut être avez-vous des nouvelles idées....

Je prends volontier toutes les solutions ... car si je dois faire ce que j'ai écris dans mon poste ci-dessus je crois que cela va devenir une usine à gaz ...

Merci de votre aide ...

[sunvialley]

Je vais peu être dire une connerie, mais es tu vraiment obligé de faire un UNDO ?

Dans mon appli en cours, j'ai une liste (genre recherche multicritères de Cafeine). Pour une liste sélectionnée, je peux lancer un formulaire de modification des données de cette ligne. (En gros j'ai un formulaire tout simple en mode boite de dialogue lancé par macro avec la condition WHERE qui me place sur le bon enregistrement). Dans ce formulaire j'ai un bouton "OK" et un bouton "Annuler".

Le bouton "ok" enregistre les modif et ferme le formulaire :

Code :

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

1
2
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close

Le bouton "Annuler" ne fait que fermer le formulaire (et n'enregistre PAS les modifications, car je pense qu'il ne travaille pas directement sur la table et ses enregistrement, mais sur une récupération d'un des enregistrement... ) :

Code :

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

 DoCmd.Close

[moicats]

salut,

dans mon appli j'ai fait ce genre d'action.
si l'utilisateur sort du sous formulaire sans avoir validé par le bouton l'enregistrement j'annule celui-ci:

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
Private Sub Form_BeforeUpdate(Cancel As Integer)
 
'si action bouton on ne fait rien
 If Not mTest_abp Then
 
 'sinon affichage Msgbox test
   If MsgBox("Voulez-vous terminer la saisie ?" & Chr(13) + Chr(10) & 
"(si elle est terminée validez-la)", vbYesNo + vbQuestion, "Titre application") = vbNo Then
 
    'si Non annule enregistrement
    Me.Undo
 
   Else
    'si oui bloque l'utilisateur dans ss formulaire
    Cancel = True
 
   End If
 End If
End Sub

ce code est sur l'evenement BeforeUpdate du sous formulaire lui même.
et ça marche, le bouton étant sur le sous formulaire aussi bien sur sinon ça ne fonctionne pas.

esperant t'avoir aidé, bon courrage
a+

[snoopy69]

Merci pour toutes vos réponse mais j'ai réussi à """" corriger """" mon problème ...

Je vous explique ...

Lorsque j'ouvre mon formulaire certains champs doivent être vierges (même si il y a une valeur qui est dans la table ) et les modifications que je voulais annuler se trouvaient sur un de ces champs donc ... mon problème est résolu ... ... à l'ouverture de mon formulaire j'affiche ces dits champs VIERGE ... et il n'y a plus de problème ... du moins pour l'application que je suis en train de faire ... c'est assez compliqué à comprendre ... la preuve j'ai compris seulement aujourd'hui que ces champs devaient être vierges alors que cela fait 5 mois que je suis sur ce projet ... ... et ouais ... c'est la dure loi de l'informatique quand on veut faire compliqué quand on peut faire simple ... lol ...

Merci à tous pour vos réponses et pour votre aide ... à tout bienôt ....