Discussion :

[BrunoRX]

Bonjour

J'utilise Access(2013) pour mettre en place une solution constituée d'un fichier contenant les écrans (EXE) et d'un autre fichier contenant les Tables (BDD).

EXE a donc les tables "liées" de la BDD, et propose plusieurs écrans pour manipuler les données.

Chaque table de BDD a un début de structure identique, résumée ici :

SYSID	NuméroAuto	Clé primaire
SYSDATEADD	Date général, NOT NULL	Défaut -> Date et heure du moment
SYSDATEMOD	Date général, NULL	Si "Update" sur la ligne -> ajouter la date/heure du moment automatiquement
SYSARCHIVED	Oui/Non, Défaut=Non	Si "Delete" de la ligne -> mettre Oui
SYSDATEARCHIVED	Date général, NULL	Si "Delete" de la ligne -> ajouter la date/heure du moment automatiquement

EXE affiche le contenu d'une table (sans les champs SYS, donc via une Requête) en mode "Liste" et l'utilisateur peut changer les données et même supprimer des lignes via les actions classiques proposées par l'interface Liste d'access.

Si l'utilisateur souhaite supprimer une ligne, je souhaiterais qu'elle ne soit pas retirée de la BDD, mais "mise en archive". Comment ? via un "Trigger" ? une Macro ?

Idem si l'utilisateur modifie une donnée dans une ligne, je souhaite mettre à jour la colonne SYSDATEMOD automatiquement

Si vous pouvez m'aguiller, je vous remercie d'avance

Cordialement,

[marot_r]

Bonjour.

En passant par un formulaire.

Pour la mise en archive, la solution la plus simple est d'interdir la suppression et de mettre un champ EstSupprime a "true". Pour info c'est d'ailleurs ce que fait la BD. Elle marque l'enr comme supprime et c'est tout.

Bon sinon, tu peux detecter la suppression et recopier l'info dans une autre table.

Pour la mise a jour de la date de modification, avec l'evenement Apres Modification cela se fait direct.

Je ne sais pas si tu peux faire la meme chose avec des macros de donnees pour la gestion des suppressions. Pour la modif, cela depend du type du champ.

[BrunoRX]

Merci marot_r

je continue ma prospection d'informations pour pouvoir répondre à mon besoin

un lien que je lis avec attention :
https://warin.developpez.com/tutorie...nements-table/

to be continued

[BrunoRX]

Bon je suis parti sur cette solution (pas de formulaire) : dans chaque table, je vais ajouter 2 macros.

• Une pour l'évènement AvantModification (BeforeChange)
• L'autre pour l'évènement AprèsSuppression (AfterDelete)

Astuce intéressante : le code XML peut être collé directement dans l'éditeur de macro, pratique quand on a pas mal de tables à "macroiser"

Macro 1 (BeforeChange) :

Code xml :

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
 
<DataMacros xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application">
  <DataMacro Event="BeforeChange">
    <Statements>
      <ConditionalBlock>
        <If>
          <Condition>Not IsNull([[SYSID])</Condition>
          <Statements>
            <Action Name="SetField">
              <Argument Name="Field">[SYSDATEMOD]</Argument>
              <Argument Name="Value">Now()</Argument>
            </Action>
          </Statements>
        </If>
      </ConditionalBlock>
    </Statements>
  </DataMacro>
</DataMacros>

Macro 2 (AfterDelete) :
Bon, faut la personnaliser à chaque table en y ajoutant tous ses champs que l'on veut préserver, car la ligne est bien supprimée (et recréer dans la foulée). Pas trouvé mieux comme solution...

Code xml :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
<DataMacros xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application">
  <DataMacro Event="AfterDelete">
    <Statements>
      <CreateRecord>
        <Data>
          <Reference>NOMDEMATABLEICI</Reference>
        </Data>
        <Statements>
          <Action Name="SetField">
            <Argument Name="Field">SYSID</Argument>
            <Argument Name="Value">[Old].[SYSID]</Argument>
          </Action>
          <Action Name="SetField">
            <Argument Name="Field">SYSDATEADD</Argument>
            <Argument Name="Value">[Old].[SYSDATEADD]</Argument>
          </Action>
          <Action Name="SetField">
            <Argument Name="Field">SYSDATEMOD</Argument>
            <Argument Name="Value">[Old].[SYSDATEMOD]</Argument>
          </Action>
          <Action Name="SetField">
            <Argument Name="Field">SYSLOGLASTMOD</Argument>
            <Argument Name="Value">[Old].[SYSLOGLASTMOD]</Argument>
          </Action>
          <Comment>Mise en archive ici</Comment>
          <Action Name="SetField">
            <Argument Name="Field">SYSARCHIVED</Argument>
            <Argument Name="Value">True</Argument>
          </Action>
          <Action Name="SetField">
            <Argument Name="Field">SYSDATEARCHIVED</Argument>
            <Argument Name="Value">Now()</Argument>
          </Action>
          <Comment>Puis ajouter TOUS les champs spéciques à la table ci dessous. DéfinirChamp pour chaque champs avec Valeur = [Ancien][ChampSpecifique]</Comment>
          <Action Name="SetField">
            <Argument Name="Field">XXX</Argument>
            <Argument Name="Value">[Old].[XXX]</Argument>
          </Action>
        </Statements>
      </CreateRecord>
    </Statements>
  </DataMacro>
</DataMacros>

Je remercie chaleureusement ce site et forum pour la mine d'informations, ainsi que le site suivant :
http://www.info-3000.com/access/macrodonnee/index2.php

Je résous moi même ce post, mais reste attentif à vos réponses éventuelles pour savoir si il y a une meilleure solution.