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:
Merci par avance
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
Partager