Comment créer un automatiquement gérées “à la dernière mise à jour” de terrain avec Microsoft Access

L'origine, j'ai pensé à demander si il y aurait un moyen facile de fournir un gérés automatiquement la dernière mise à jour de champ avec MS Access.

Après quelques recherches sur google j'ai trouvé approche suivante:

Private Sub Form_Dirty(Cancel As Integer)

   Me.Last_Update = Date()

End Sub

Qui semble faire le travail. Je pensais que je voudrais partager avec les autres (et si quelqu'un a quelques bons points qui devraient être considérés, n'hésitez pas à les partager)

OriginalL'auteur Touko | 2008-10-07

  1. 3

    Vous pouvez également mettre le même code dans un BeforeUpdate.

    La différence étant que le OnDirty va marquer l'enregistrement lorsque vous avez commencé à modifier l'enregistrement; alors que le BeforeUpdate va marquer l'enregistrement juste avant qu'il s'engage à la base de données.

    Ce dernier peut être préférable si vous avez un utilisateur qui démarre la modification d'un enregistrement, va à une réunion et termine l'édition d'une heure plus tard.

    BeforeUpdate est certainement l'événement correct à utiliser, pas OnDirty.

    OriginalL'auteur BIBD

  2. 3

    En outre, l'ajout d'une colonne Règle de Validation (ou CHECK contrainte) pour assurer la 'timestamp' colonne est mise à jour lorsque la table est en cours de mise à jour autre que par le biais de votre formulaire. Le SQL DLL (ANSI-92 Mode d'interrogation de la syntaxe) ressemblerait à quelque chose comme ceci:

    CREATE TABLE MyTable 
(
   key_col INTEGER NOT NULL UNIQUE, 
   data_col INTEGER NOT NULL
)
;
ALTER TABLE MyTable ADD
   my_timestamp_col  DATETIME 
      DEFAULT NOW() 
   NOT NULL
;
ALTER TABLE MyTable ADD
   CONSTRAINT my_timestamp_col__must_be_current_timestamp
      CHECK (my_timestamp_col = NOW())
;

    Une autre approche lors de l'utilisation de Jet 4.0 (pré-Access 2007, soit avant la sécurité de niveau utilisateur a été supprimé à partir du moteur) est de créer un "helper" Jet SQL PROCEDURE (Accès terme: Requête stockée objet défini à l'aide de SQL 'Action' instruction, à la différence d'un SQL SELECT requête) qui met automatiquement à jour la 'timestamp' colonne, supprimer "mettre à jour" les privilèges de la table et de leur accorder la place sur le PROC par exemple, SQL DDL/DCL quelque chose comme:

    CREATE PROCEDURE MyProc 
(
   arg_key INTEGER, 
   arg_new_data INTEGER
)
AS 
UPDATE MyTable
   SET data_col = arg_new_data, 
       my_timestamp_col = NOW()
 WHERE key_col = arg_key
;
REVOKE UPDATE ON MyTable FROM PUBLIC
;
GRANT UPDATE ON MyProc TO PUBLIC
;

    L'avantage ici est de toutes les mises à jour doivent passer par les PROC et, par conséquent, est sous le contrôle du développeur; l'inconvénient est Access/Jet SQL, c'est que votre formulaire devra également utiliser le PROC, ce qui signifie un changement de paradigme à l'écart de la norme, les données de formulaires liés approche pour lesquelles l'Accès est célèbre.

    Je suis très confus par cette réponse. Êtes-vous répondre pour un Jet fin ou pour SQL Server? Si le Jet, puis il n'y a pas des déclencheurs ou des procédures stockées et vous devez utiliser le formulaire d'événements de niveau de timbre les enregistrements (cela fonctionne très bien, en fait).
    Ma réponse est pure Access/Jet/ACE et tout le code est ANSI-92 Requête en Mode Jet 4.0 de la syntaxe, de l'essayer 😉 Jet n'ont, en effet, la PROCÉDURE de la syntaxe. Mon point est que vous n'avez pas réellement pour utiliser un formulaire d'Accès pour atteindre un timestamp dans ACE/Jet.
    C'est extrêmement intéressant....lien vers la documentation à ce sujet?
    Voici un lien pour le Access2003 de l'Aide pour CREATE PROCEDURE.

    OriginalL'auteur onedaywhen

  3. 2

    Qui pourrait être votre meilleur choix pour une base de données access avec un accès back-end - mais si vous avez un MS-SQL, mettre un déclencheur de mise à jour sur la table de sorte que vous pouvez attraper des modifications peu importe d'où ils viennent.

    CREATE TRIGGER [Table_stampUpdates] ON [dbo].[Table]
 FOR Update 
AS 
BEGIN 
UPDATE Table
SET 
modified_by = right(system_user, len(system_user) - charindex('\', system_user)), modified_on = getdate() 
FROM Table inner join inserted on Table.PrimaryKey = Inserted.PrimaryKey
 END

    OriginalL'auteur tom.dietrich