Discussion :

[skippy86]

Bonjour à tous,

Actuellement j'importe des données à l'aide d'un script VBA issues de différents fichiers *.txt dans des tables distinctes.
En cas de problème à l'importation, je dois valider l'opération à chaque table pour savoir si il y a eu un problème.

Code :

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

1
2
3
    Datei = [Importverzeichnis] & "\T_UNI_BASISINFORMATION.TXT"
'    MsgBox ("Basisinformation")
    DoCmd.TransferText acImportDelim, "IS_Basisinformation", "T_UNI_BASISINFORMATION", Datei, False

Comment puise-je automatiser la tâche, de façon à ce que je ne doive pas toujours cliquer sur "ok" mais qu'en cas d'erreur il inscrive dans un fichier log ou table log et continue jusqu'à la fin de l'import ?

D'avance merci pour votre aide
salutations
skippy86

[loufab]

Bonjour,

S'il s'agit d'une erreur d'import il devrait lever une erreur.

Dans ce cas :

Code :

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

1
2
3
4
5
6
7
On error goto errSub
 
... ton code
 
errSub:
msgbox "j'ai une erreur"
resume next

Si il s'agit d'erreur dans les données il n'y a pas d'erreur levée. Dans ce cas c'est plus difficile. Il faut vérifier à grand coup de requetes, de controle du nombre d'enregistrement et autres procédures qui relève plus du métier que d'ACCESS.

Cordialement,