Discussion :

[bouba_95]

Bjr
J'importe quotidiennement des fichiers texte que je mets à jour dans Access. J'ai crée des tables :

• table des nouveaux clients
• table des clients sortants

j'ai crée 1 requête de non-correspondance (avec id_vente) que j'ajoute ds la table des nouv clients, 1 requête de non correspondance (avec id_vente) que j'ajoute ds la table des clients sortants. Mais les problème provient qd j'ajoute les fichiers importés, il y'a risque de doublons. il peut y'avoir le cas où un client est sortis et ensuite il est re-rentré.
Dans la requête de non correspondance, j'ai fais la jointure entre 2 fichiers Txt importés. Faut il ajouter la table des nouveaux clients pour à chaque mise à jour, ne pas ajouter des clients déjà entrés ou sortis ???
Merci pour votre collaboration .

[Jordmund]

Si j'ai bien saisi...

Ne serait il pas plus simple de tout centraliser par Access ?

Tu importes ton fichier client avec 1 champ date_entree (= date de ton import) et 1 champ date_sortie (=date de ton import la aussi )

Si date_sortie existe alors ton client est sortant mais tu gardes l'historique de tes clients.

Pour cela tu dois également tester l'existence de ton client dans la base lors de ta procédure d'import (pour éviter d'écraser l'historique).

[bouba_95]

il faut conserver l'histo. les tables imports seront volatiles (table import J, table import J-1). Les tables de destination table des nouv clients et tables des client sortants seront mises à jour avec les requêtes de non correspondances, etc... mais le pb vient au niveau de l'ajout d'un id_vente déjà présent dans les tables de destinat°. J'ai crée une table que j'ai nommé anomalies où j'ajoute les enreg en doubl ensuite je les supprime avec la requête de suppression mais ça m'a l'air un peu fastidieux

[Jordmund]

Tu peux faire ca mais oui c'est fastidieux
Est il vraiment necessaire que tes tables soient volatiles ? (par définition une table n'est pas volatile, une requète l'est)
De toute facon si tu veut conserver l'historique tu es obligé de figer les données (donc tables non volatiles).

[bouba_95]

oui les tables imports sont volatiles, par suppr, import nouv données. Les requêtes pour ajout ds table. Sachant que chaque fichier Txt représente envir 2800 ko (40000 lignes). Je précise aussi que dans chaque fichier Txt importé, on peut retrouvé le même clt, donc le même id_vente tant qu'il est n'est pas sorti.

[Jordmund]

Alors le mieux est de faire une procédure d'import qui va filtrer tes doublons (au lieu de ta requète ajout)

[bouba_95]

j'ai ce code à dispo pour l'import d'un seul fichier Txt

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
Sub import()
    ' import de ton fichier texte
DoCmd.TransferText acImportDelim, "nom_spécification_d'import", "importation", _
        "chemin\fichier *.txt", True
 
' insertion des enregistrements retraités des doublons
' - 1 requête (qryUniques) qui ne garde que les nouveaux clients (non correspondance)
' - 1 requête ajout (qryInsert) qui insère dans ta table clients les données de qryUniques
DoCmd.RunSQL CurrentDb.QueryDefs("qryInsert").Sql
 
' effacement de ta table temporaire
DoCmd.RunSQL "DELETE FROM tblTemp"
 
' flag sur le fichier
FileCopy StrPath & StrFile, StrPath & StrFile & ".fait"
Kill StrPath & StrFile
 
End Sub

[Jordmund]

Avec ton code tu importes l'ensemble du fichier dans tes tables.
Il faudrait que tu passes par 2 recordsets et tester l'existence de doublons avec ca.

Ca sera du style

Pour chaque rst.value (rst2 positioné ligne suivante rst1)

Code :

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

1
2
3
4
5
6
7
8
9
10
existe = false
ma_valeur_1 = rst1.Fields("id_vente")
ma_valeur_2 = rst2.Fields("id_vente")
 
while rst2.EOF
  if (ma_valeur_1 = ma_valeur_2) then
    existe = true
  end if
  rst2.Movenext
wend

[bouba_95]

Avec ton code tu importes l'ensemble du fichier dans tes tables.
Il faudrait que tu passes par 2 recordsets et tester l'existence de doublons avec ca.

Ca sera du style

Pour chaque rst.value (rst2 positioné ligne suivante rst1)

existe = false
ma_valeur_1 = rst1.Fields("id_vente)
ma_valeur_2 = rst2.Fields("id_vente")

while rst2.EOF
if (ma_valeur_1 = ma_valeur_2) then
existe = true
end if
rst2.Movenext
wend

Il n'y a pas de doublon dans le fichier importé, l'id_vente est unique dans le fichier.

[Jordmund]

Alors tu remplaces id_vente par id_client

[bouba_95]

l'id_vente est unique dans le fichier Txt importé donc j'ai défini comme clé primaire l'id_vente. Avec les données de la table import J et les données de la table import J-1, j'ai fais des requêtes de non-correspondance pour ressortir les nouv clients (id_vente est null dans la table import J) et inversement pour les clients sortants. Donc le pb se situe au moment où l'on ajoute des nouveaux enreg il y'a risque de doublons car un client est déjà entré ou déjà sorti

[Jordmund]

Donc tu peux t'inspirer de l'exemple de code que j'ai donné.

Tu dois exécuter ce code lors de l'import comme ca tu vas supprimer les doublons éventuels à l'import, pas de pb de doublons avec tes clés primaires dans les tables...