Discussion :

[gondole38]

Bonjour,

j'ai un formulaire avec 2 champs (champ de saisie ) qui apartienne a une table A.

J'aimerai savoir koment faire pour sauvegarder automatiquement l'ancienne valeur de ces champs dans une table B apres que je les ai modifiés. Plus precisément:
koment sauvegarder automatiquement dans une autre table la valeur "OLDVALUE" de mes champs.

Merci de me repondre au plus vite c'est tres important

Cordialement

[LedZeppII]

Bonsoir,

en mettant du code dans l'évènement avant MAJ:

Code :

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
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim r As DAO.Recordset, r2 As DAO.Recordset
 
Set r = Me.RecordsetClone
' Positionner recordset sur enregistrement en cours du formulaire
r.Bookmark = Me.Bookmark
 
' l'enregistrement en cours de r contient les anciennes valeurs de champs
' Il n'y a plus qu'à les recopier dans un autre recordset.
Set r2=CurrentDb.OpenRecordset("TableA_Hist")
r2.AddNew
  r2!Champ1 = r!Champ1
  r2!Champ2 = r!Champ2
  r2![Date] = Now()
r2.Update
End Sub

A+

[Muhad'hib]

Salut gondole38 et bienvenu sur le forum,


Merci de consulter les régles (surtout les points abordant le langage SMS et les urgences)



A+

[Heureux-oli]

Tuto

J'ai mis le lien d'un excellent tuto de cafeine qui devrait répondre à tes attentes.