Discussion :

[Fleur59]

Bonjour à tous,
Autodidacte en vba, je sèche sur un travail et apprécierais beaucoup votre aide.
On me demande:
dans une grosse base access, mise à jour quotidiennement, de comparer tous les champs d'une table (25 champs, 47000 enregistrements environ) entre la veille et aujourd'hui, sans prendre en compte les nouveaux enregistrements et ceux qui ont pu être supprimés.
De reporter dans une table de suivi(traçabilité), tous les champs qui ne sont pas identiques en y ajoutant un champ "DateModif" = date du jour -1 (en jours ouvrés), Le champs Commentaire sera renseigné à l'analyse de la table de suivi.
L'idéal est d'obtenir une table du Style
Référence DateModif ChampModif ié ValYesterday ValToday Commentaire
T06773 15/11/2015 Description Chocolat Caramel
T06775 01/12/2015 Fabricant CC CCCCCCC
T06776 09/12/2015 Nomenclature 090-011930 B090-011930 Nouvelle norme
T06777 10/12/2015 Fabricant AAAAA BBBBBBBBBB

Vous remerciant par avance de toute l'aide que vous pourrez m'apporter

[nico84]

Bonjour,

comparer tous les champs d'une table (25 champs, 47000 enregistrements environ) entre la veille et aujourd'hui, sans prendre en compte les nouveaux enregistrements et ceux qui ont pu être supprimés.

Pour avoir cette info, le mieux est d'utiliser un champ date_modif au niveau de la table et de créer un journal des modifs à l'écriture des infos
Comme il semble que cela n'a pas été prévu, j'imagine qu'il y a au moins une clé principale sur la table
Si oui, il faut disposer de l'ancienne table et de la nouvelle dans la même base pour faire une jointure sinon ça complique
Il est alors inutile de créer une table des différences puisque les infos sont déjà toutes dans la requete

Code :

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

select ... from t1 inner join t2 on t1.cle=t2.cle where t1.qte<>t2.qte or t1.desc<>t2.desc or ...

[madefemere]

Bonjour,

Si tu as :
- Les anciennes données dans la table : T_Donnees_Anciens
- La nouvelle table : T_Donnees_Nx
- Le champ reference comme identifiant de tes données

Le code suivant devrait te permettre de faire ce que tu veux :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Dim rstT_Ancien As DAO.Recordset
Dim rstT_Nx As DAO.Recordset
Dim fld As DAO.Field
Dim strcrit As String, nomchamp As Variant
Dim i As Integer
Dim strsql As String
i = 1
Set rstT_Ancien = CurrentDb.OpenRecordset("T_Donnees_Anciens", dbOpenSnapshot)
Set rstT_Nx = CurrentDb.OpenRecordset("T_Donnees_Nx", dbOpenSnapshot)
For Each fld In rstT_Ancien.Fields 'Parcourir les champs de la table des anciennes données
    If fld.Name <> "reference" Then 'exclure le champ reference
        rstT_Ancien.MoveFirst
        While Not rstT_Ancien.EOF 'Parcourir les données du champ
            'Debug.Print fld.Value
            With rstT_Nx 'Retrouver la valeur
                If IsNumeric(fld.Value) Then 'Critère Différent selon valeurs du champ
                    strcrit = "[reference]=" & rstT_Ancien![Reference] & " AND [" & fld.Name & "]<>" & fld.Value
                Else
                    strcrit = "[reference]=" & rstT_Ancien![Reference] & " AND [" & fld.Name & "]<>""" & fld.Value & """"
                End If
 
                .FindFirst strcrit 'Chercher la ligne dans l'ancienne base
                If Not .NoMatch Then ' Si trouvé insérer dans la table de suivi
                    'Debug.Print i, rstT_Nx![Reference], rstT_Nx(fld.Name), fld.Value
                    'i = i + 1
                    strsql = "INSERT INTO T_Suivi ( Reference, DateModif, ChampModifie, ValYesterday, ValToday )" _
                        & " VALUES (" & rstT_Nx![Reference] & ",#" & Format(DateAdd("d", -1, Date), "yyyy/mm/dd") & "#,""" & fld.Name & """,""" & fld.Value & """,""" & rstT_Nx(fld.Name) & """)"
                    CurrentDb.Execute strsql, dbFailOnError
 
                End If
            End With
            rstT_Ancien.MoveNext
        Wend
    End If
Next fld
Me.Sf_Suivi.Form.Requery
rstT_Nx.Close: Set rstT_Nx = Nothing
rstT_Ancien.Close: Set rstT_Ancien = Nothing

La base exemple est jointe :M_Rech_Valeurs_Changees_table.zip

Cordialement.

[Fleur59]

Bonjour Madefemere,
MERCI pour cette première très grande avancée.
A l'application sur ma base, je debug sur
" .FindFirst strcrit 'Chercher la ligne dans l'ancienne base"
avec le message
"Le moteur de la base de données Microsoft Office Access ne reconnaît pas "T02069" en tant que nom de champ ou expression correcte"

T02069 est ma première référence dans les tables. (j'ai dû oublier de dire que ma référence est alphanumérique)
J'avais un masque de saisie dans ma table initiale que j'ai supprimé dans les tables anciens et nx
J'ai aussi mis la clef primaire sur la table ancien comme dans ton exemple.

Qu'est ce qui peut me bloquer maintenant?
Merci de votre aide

[madefemere]

Bonsoir Fleur,

Si tes "reference" sont alphanumérique, il faut les mettre entre "quotes" quand tu y fais référence.
De la sorte :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Dim rstT_Ancien As DAO.Recordset
Dim rstT_Nx As DAO.Recordset
Dim fld As DAO.Field
Dim strcrit As String, nomchamp As Variant
Dim i As Integer
Dim strsql As String
i = 1
Set rstT_Ancien = CurrentDb.OpenRecordset("T_Donnees_Anciens", dbOpenSnapshot)
Set rstT_Nx = CurrentDb.OpenRecordset("T_Donnees_Nx", dbOpenSnapshot)
For Each fld In rstT_Ancien.Fields 'Parcourir les champs de la table des anciennes données
    If fld.Name <> "reference" Then 'exclure le champ reference
        rstT_Ancien.MoveFirst
        While Not rstT_Ancien.EOF 'Parcourir les données du champ
            'Debug.Print fld.Value
            With rstT_Nx 'Retrouver la valeur
                If IsNumeric(fld.Value) Then 'Critère Différent selon valeurs du champ
                    strcrit = "[reference]=""" & rstT_Ancien![Reference] & """ AND [" & fld.Name & "]<>" & fld.Value
                Else
                    strcrit = "[reference]=""" & rstT_Ancien![Reference] & """ AND [" & fld.Name & "]<>""" & fld.Value & """"
                End If
 
                .FindFirst strcrit 'Chercher la ligne dans l'ancienne base
                If Not .NoMatch Then ' Si trouvé insérer dans la table de suivi
                    'Debug.Print i, rstT_Nx![Reference], rstT_Nx(fld.Name), fld.Value
                    'i = i + 1
                    strsql = "INSERT INTO T_Suivi ( Reference, DateModif, ChampModifie, ValYesterday, ValToday )" _
                        & " VALUES (""" & rstT_Nx![Reference] & """,#" & Format(DateAdd("d", -1, Date), "yyyy/mm/dd") & "#,""" & fld.Name & """,""" & fld.Value & """,""" & rstT_Nx(fld.Name) & """)"
                    CurrentDb.Execute strsql, dbFailOnError
 
                End If
            End With
            rstT_Ancien.MoveNext
        Wend
    End If
Next fld
Me.Sf_Suivi.Form.Requery
rstT_Nx.Close: Set rstT_Nx = Nothing
rstT_Ancien.Close: Set rstT_Ancien = Nothing

Cordialement,

[micniv]

Bonsoir, Fleur59
As-tu correctement adapté le code de madefemere à ton cas ?
Notamment dans plusieurs endroits il faut traduire que ta clé référence est alpha.
Le plus simple et rapide serait de poster ton code pour le vérifier.

Cordialement,

[Fleur59]

Bonsoir à tous
Merci Micniv de m'avoir rappelé de bien regarder partout, il y avait effectivement des résidus non modifiés.
Je pense pouvoir adapter complètement ce module à ma base assez rapidement la semaine prochaine.
Je vous tiens au courant rapidement.
GRAND MERCI de l'intérêt que vous m'avez apporté

[Fleur59]

Bonjour à tous
Voilà, les modifications sont implémentées et cela à bien fonctionné pour 12000 lignes environ (sur 530000)
Il me reste un souci découvert en effectuant un pas à pas
Certains de mes champs texte (4 champs) contiennent des quotes dans les valeurs (permet de raccourcir le mot inch=")
Donc cela perturbe le code, auriez-vous une idée pour debugger ce problème sans modifier les données de la table initiale?

A la rigueur, je pourrais supprimer ces quotes avant de lancer l'application dans la création de mes tables à comparer.

Voici le sql de la table ST2-ancien (la deuxième est identique pour ST1-nouveau)

Code :

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

1
2
3
4
5
SELECT STOCK_TRACKING.Part_Number, STOCK_TRACKING.Part_Type, STOCK_TRACKING.Description_FR, STOCK_TRACKING.Description_UK, STOCK_TRACKING.Spec, STOCK_TRACKING.Supplier_Code, STOCK_TRACKING.Plant_Code, STOCK_TRACKING.UOM, STOCK_TRACKING.Standard_Price, STOCK_TRACKING.Currency, STOCK_TRACKING.Lead_Time, STOCK_TRACKING.Shelf_Control_Number, STOCK_TRACKING.Storage_Location, STOCK_TRACKING.Users, STOCK_TRACKING.Order_Stop_Reason, STOCK_TRACKING.Order_Stop_Comment, STOCK_TRACKING.Manufact INTO ST1
FROM STOCK_TRACKING
WHERE (((STOCK_TRACKING.Master)=True))
GROUP BY STOCK_TRACKING.Part_Number, STOCK_TRACKING.Part_Type, STOCK_TRACKING.Description_FR, STOCK_TRACKING.Description_UK, STOCK_TRACKING.Spec, STOCK_TRACKING.Supplier_Code, STOCK_TRACKING.Plant_Code, STOCK_TRACKING.UOM, STOCK_TRACKING.Standard_Price, STOCK_TRACKING.Currency, STOCK_TRACKING.Lead_Time, STOCK_TRACKING.Shelf_Control_Number, STOCK_TRACKING.Storage_Location, STOCK_TRACKING.Users, STOCK_TRACKING.Order_Stop_Reason, STOCK_TRACKING.Order_Stop_Comment, STOCK_TRACKING.Manufact
ORDER BY STOCK_TRACKING.Part_Number, STOCK_TRACKING.Shelf_Control_Number;

Je vous remercie de l'aide que vous pourrez m'apporter

Fleur59

[madefemere]

Bonjour,

J'ai essayé de prendre la précaution dans le code générique pour éviter l'erreur, mais a priori ce n'était pas suffisant.

Il faudrait doubler les guillemets dans les paramètres comme :

Code :

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

 ... & """" & replace(MaChaîneParametre, """", """""") & """" & ...

Astuce donnée par marot_r dans la discussion ci-jointe : http://www.developpez.net/forums/d15...-requetes-sql/

Il y a aussi la fonction générique proposée dans la contribution.

Cordialement,