Discussion :

[maranatha-1975]

Bonjour,

Je souhaiterai savoir comment faire pour intégrer dans une table B toutes les modifications d'une table A.

Merci d'avance.

[Robert1957]

Bonjour maranatha-1975,

En pièce jointe la réponse. Ce n'est pas de moi mais de Tofalu.

Bonne journée

[maranatha-1975]

Je vais mettre cela en application pour mes premiers pas avec access.

Bonne journée.

[maranatha-1975]

Bonjour,

J'ai essayé mais sans succès.

Est ce qu'il n'existe pas déja un model de base avec les paramètres ?
J'ai essayé de le faire sous access 2010 et je ne retrouve pas les informations.

Quelqu'un peut il m'aider ou m'envoyer un model de base incluant un historique svp ?

Merci

[maranatha-1975]

Bonjour,

Suite à mes recherches, j'ai réussi à faire mon historique sur des mise à jour d'enregistrement.

Mais comment puis-je faire pour des insertions et des suppressions d'enregistrement d'une table ?

Ci dessous ma solution pour la 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
17
18
19
20
21
Option Compare Database
Private Sub Form_BeforeUpdate(Cancel As Integer)
    On Error Resume Next
    For Ctr = 0 To Me.Controls.Count - 1
        If Me.Controls(Ctr).ControlType = 106 Or Me.Controls(Ctr).ControlType = 109 Or Me.Controls(Ctr).ControlType = 111 Then
            If Me.Controls(Ctr).Value <> Me.Controls(Ctr).OldValue Then
                Dim T_historique As Recordset
                Set T_historique = CurrentDb.OpenRecordset("T_historique", DB_OPEN_TABLE)
                T_historique.AddNew
                T_historique("ID") = IDClient
                T_historique("NomTable") = Me.RecordSource
                T_historique("NomChamp") = Me.Controls(Ctr).Name
                T_historique("AncienneValeur") = Me.Controls(Ctr).OldValue
                T_historique("NouvelleValeur") = Me.Controls(Ctr).Value
                T_historique("DateHeure") = Now
                T_historique.Update
                T_historique.Close
            End If
        End If
    Next
End Sub

Existe-t-il la même chose pour des insertions et des suppressions d'enregistrement ?

Merci d'avance pour votre aide.

[Robert1957]

Bonjour maranatha-1975,

Oui:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Form_BeforeInsert(Cancel As Integer)

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)

Mais tu dois réaliser que ce n'est pas aussi solide que la solution de Tolafu.

Une requête de mise à jour par exemple, ne serait pas enregistrée dans ta table historique. N'importe quelle action directement sur les tables ne serait pas enregistrée.

Bonne journée

[maranatha-1975]

Bonjour,

Quelle est la solution de Tolafu ?
Est-elle compatibale avec Access 2010 ?

Merci d'avance pour vos informations.

[Robert1957]

Bonjour maranatha-1975,

Ici: http://warin.developpez.com/tutoriel...s2010/journal/

Bonne journée

[maranatha-1975]

Bonjour Robert1957,

Je viens de télécharger le PDF.
Je fais le test.

Merci à toi et bonnes fêtes.

[maranatha-1975]

Bonjour Robert1957

J'ai telecharger le PDf très bien fait mais j'ai un soucis à partir du chapitre III-A.

J'ai crée mes tables, mais je ne vois pas ou je dois mettre le code au niveau de l'AfterUpdate.

Peux-tu m'aider ?

[f-leb]

Bonjour,

L'article a été rédigé avec une version anglaise d'Access 2010, peut-être même avec une version bêta.
Il faut adapter, AfterUpdate devient Après MAJ, etc.