Discussion :

[JulieLesp]

Bonjour,

Je cherche à créer un historique de pièce. Pour cela, je dispose de deux tables. Une qui est utilisé pour la création et la modification de l'état des pièces. Et une autres qui enregistre toutes les modifications effectuées sur celles-ci depuis leur création. Pour enregistrer les modifications dans ma table historique, j'utilise un critère de changement de date avant la mise à jour du formulaire. Mon enregistrement ne prend que en compte les modifications de date et non la création. J'aurais aimé savoir si vous connaissiez un critère comme par exemple nouvelle création pour incorporer mes nouvelles pièces à l'historique..

Ci-dessous voici le code:

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
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error Resume Next
If Me.dateSE.Value <> Me.dateSE.OldValue Then
    Dim T_SauvBV As Recordset
    Set T_SauvBV = CurrentDb.OpenRecordset("T_SauvBV", DB_OPEN_TABLE)
    T_SauvBV.AddNew
    T_SauvBV("IdSE") = IdSE
    T_SauvBV("dateSE") = dateSE
    T_SauvBV("numVoitSE") = numVoitSE
    T_SauvBV("kmSE") = kmSE
    T_SauvBV("causeSE") = causeSE
    T_SauvBV.Update
    T_SauvBV.Close
End If
End Sub

Merci par avance

[charouel]

Il faut faire la difference netre Me.dateSE.Value et Me.dateSE.OldValue
est ce que je peux savoir ou tu change ton code de changement de date Me.dateSE.Value,
en général ça doit être comme suit:
Me.dateSE.OldValue = Me.dateSE.Value
Me.dateSE.Value =Me.dateSE.NewValue