Date d'accès Dernière modification avec sous-formulaire

Question

J'essaie d'avoir un code qui enregistrerait la dernière date/utilisateur modifié dans un formulaire principal quand une modification a été faite dans l'enregistrement, y compris tous les sous-formulaires que j'ai.

Actuellement, Ce code fonctionne parfaitement uniquement pour les enregistrements dans le formulaire principal, mais pas pour les enregistrements dans les sous-formulaires. Comment est-ce que j'inclurais la dernière date/utilisateur modifié pour les sous-formulaires?

Private Sub Form_BeforeUpdate(Cancel As Integer) 
If Me.Dirty Then 
Me.LastModifiedDate = Now 
Me.LastModifiedUser = Environ$("username") 
End If 
End Sub 

Answer 1

Voulez-vous dire que vous souhaitez mettre à jour les informations LastModified sur le formulaire principal si les changements de données de sous-formulaire? Si oui, je commencerais en regardant l'ajout d'un code similaire à l'événement de mise à jour avant de la sous-formulaire:

Private Sub Form_BeforeUpdate(Cancel As Integer) 

    If Me.Dirty Then 
     Me.Parent.LastModifiedDate = Now 
     Me.Parent.LastModifiedUser = Environ$("username") 
    End If 

End Sub 

Je n'ai pas testé cependant, et vous pourriez commencer à recevoir des messages sur les données ayant été modifié par un autre utilisateur si vous mettre à jour plusieurs enregistrements de sous-formulaire avant d'enregistrer l'enregistrement de formulaire principal.