Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
julie
Est-ce que quelqu'un sait quoi faire pour faire le suivi des modifications de chaque enregistrement dans une table à part?
Tu peux, dans l'événement "Sur avant mise à jour" du formulaire, faire quelque chose comme ceci :
If Me.Dirty AND Not Me.NewRecord Then
Dim sSQL As String sSQL = "INSERT INTO LaTable [(Champ1, Champ2, ...) " _ & "VALUES (" & Controle1 & "," & Controle2 & "," & .... );"
CurrentDb.Execute sSQL
End If
'// si le controle est texte, entourer de ' '// si le controle est Date, entourer de #
'// de préférence, ajouter un champ "DateModif" à cette table, '// au format "Date/Heure" et peupler avec Now()
'// si tu veux savoir quel champ à été modifié, directement, '// boucler sur les contrôles et comparer... LeControle.Value <> LeControle.OldValue
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
Salut,
julie <jveillette@teckn-o-laser.com>
Est-ce que quelqu'un sait quoi faire pour faire le suivi des
modifications de chaque enregistrement dans une table à part?
Tu peux, dans l'événement "Sur avant mise à jour" du formulaire,
faire quelque chose comme ceci :
If Me.Dirty AND Not Me.NewRecord Then
Dim sSQL As String
sSQL = "INSERT INTO LaTable [(Champ1, Champ2, ...) " _
& "VALUES (" & Controle1 & "," & Controle2 & "," & .... );"
CurrentDb.Execute sSQL
End If
'// si le controle est texte, entourer de '
'// si le controle est Date, entourer de #
'// de préférence, ajouter un champ "DateModif" à cette table,
'// au format "Date/Heure" et peupler avec Now()
'// si tu veux savoir quel champ à été modifié, directement,
'// boucler sur les contrôles et comparer...
LeControle.Value <> LeControle.OldValue
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------
Est-ce que quelqu'un sait quoi faire pour faire le suivi des modifications de chaque enregistrement dans une table à part?
Tu peux, dans l'événement "Sur avant mise à jour" du formulaire, faire quelque chose comme ceci :
If Me.Dirty AND Not Me.NewRecord Then
Dim sSQL As String sSQL = "INSERT INTO LaTable [(Champ1, Champ2, ...) " _ & "VALUES (" & Controle1 & "," & Controle2 & "," & .... );"
CurrentDb.Execute sSQL
End If
'// si le controle est texte, entourer de ' '// si le controle est Date, entourer de #
'// de préférence, ajouter un champ "DateModif" à cette table, '// au format "Date/Heure" et peupler avec Now()
'// si tu veux savoir quel champ à été modifié, directement, '// boucler sur les contrôles et comparer... LeControle.Value <> LeControle.OldValue
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
