Ajouter Date de création aux données dans MS Access à l'aide de Form_BeforeUpdate

Question

Dans la fiche client, je souhaite enregistrer 4 informations sur la date de création, la personne qui l'a créée, quand elle a été mise à jour et qui l'a mise à jour.

Dans le formulaire, j'ai 4 champ de texte. (La propriété Enabled est définie sur FALSE, par conséquent, les utilisateurs ne peuvent pas l'éditer)

J'utilise l'événement BeforeUpdate de formulaire pour mettre à jour les données.

Private Sub Form_BeforeUpdate(Cancel As Integer) 
    'Add Created by and Create Date 
    If Me.CreatedBy = vbNull Then 
     Me.CreateDate = Date 
     Me.CreatedBy = CONST_User 
    End If 

    'Add Edited By and Date 
    Me.EditedBy = CONST_User 
    Me.EditDate = Date 
End Sub 

Le problème, je suis confronté est, les mises à jour de code ci-dessus Me.EditedBy et Me.EditDate mais Me.CreateDate et Me.CreatedBy est vide.

Impossible de comprendre, pourquoi Me.CreateDate et Me.CreatedBy ne sont pas remplis.

Answer 1

Modifier cette ligne:

If IsNull(Me.CreatedBy) Then