Discussion :

[Domi2]

Bonsoir,

Pour autant que je n'aie pas fait d'erreur, l'ajout de données dans une table via un formulaire déclenche dans l'ordre :

1) BeforeInsert
2) BeforeUpdate
3) AfterUpdate
4) AfterInsert

En cas de modification de données existantes, seuls les événements 2 et 3 se produisent.

Existerait-il d'autres événements utiles, notamment qui ne se produiraient qu'en cas de modification de données ?

Merci !

Domi2

[Invité]

Bonjour

Va jeter un coup d'oeil sur la page de Loufab, il a fait un petit outil qui permet de chasser les évènements (dans la partie téléchargement).

Regardes si tu ne trouves pas ton bonheur la dedans.

Starec

[Domi2]

Bonjour,

Merci pour le lien Starec.

Bien le petit outil, je me le met de côté.

J'avais omis de le mentionner, il y'a encore dans les deux cas l'événement Si modification.

Mais en l'occurence il ne m'est pas plus utile, je m'explique.

Lors de saisie de données dans un formulaire, on peut vouloir accomplir des actions différentes selon que l'on ajoute ou modifie des données (par exemple des tests de validation des données dans Avant MAJ.

Le meilleur moyen que j'aie trouvé, c'est déclarer une variable boléenne (blnAjout) en entête de module et de la déclarer à faux lors du chargement du formulaire.

Et je la passe à vrai dans Avant insertion, ainsi je sais que j'ajoute des données et je peux agir en conséquence. Je la remet à faux dans Après MAJ, bien sûr.

Je ne sais pas s'il y'a plus simple ou plus sûr.

Domi2

[Invité]

Re

Peut-être que ce qu'il y a dans cet article de Cafeine pourrait être utile http://cafeine.developpez.com/access/tutoriel/update/

De toute façon sa lecture n'est pas ininterressante.

Starec

[Domi2]

Peut-être que ce qu'il y a dans cet article de Cafeine pourrait être utile http://cafeine.developpez.com/access/tutoriel/update/

De toute façon sa lecture n'est pas ininterressante.

Oui, très intéressant, et je l'avais étudié il y'a quelque mois, avant de mettre en place ma solution.

Mais, que je suis, j'étais complétement passé à côté de l'intérêt offert par la propriété Old.Value d'un champ.

Code :

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

1
2
3
4
5
6
7
8
9
10
'Dans l'événement Avant MAJ (BeforeUpdate)
If IsNull (Me.txtMonId.Old) Then 'test sur un champ contenant ma clé primaire, par ex.
 
    'Ajout de données
 
Else
 
    'Modification de données existantes
 
End if

Plus simple, je ne vois pas

Merci

Domi2