Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access erreur d'importation

erreur d'importation

4 réponses
Avatar
jpg
Bonsoir,

J'importe un fichier toto.txt en longueur fixe. Dans mes=20
param=EAtres d'importation je d=E9finis un champ avec un type=20
Date/Heure, mais dans ce champ, je n'ai pas forc=E9ment des=20
dates.

Et ce n'est pas grave parce que les lignes qui n'ont pas=20
de date ne m'int=E9ressent pas et les lignes qui ont une=20
date s'importent correctement. Si bien que ma table est=20
nickel au moment de l'importation.

L'ennui, c'est qu'=E0 chaque importation j'ai dans ma base=20
une table : toto_ImportErrors qui se cr=E9e en renum=E9rotant=20
=E0 la fin toto_ImportErrors1, toto_ImportErrors2 et j'en=20
suis =E0 43.

Comment faire pour que cette table ne se cr=E9e plus sans=20
pour autant avoir =E0 changer mon format d'import. Ou=20
comment la supprimer d=E8s l'importation ?


Merci beaucoup pour votre aide.
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonsoir.

commencer par supprimer le 43 tables existantes.
la prochaine recommencera à 1.
avant de faire l'import faire:
On error resume Next
DoCmd.DeleteObject acTable, "toto_ImportErrors1"

surveiller de temps en temps s'il n'y a pas un décalage.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"jpg" a écrit dans le message de news:
3b1301c4e217$f3cd26d0$
Bonsoir,

J'importe un fichier toto.txt en longueur fixe. Dans mes
paramêtres d'importation je définis un champ avec un type
Date/Heure, mais dans ce champ, je n'ai pas forcément des
dates.

Et ce n'est pas grave parce que les lignes qui n'ont pas
de date ne m'intéressent pas et les lignes qui ont une
date s'importent correctement. Si bien que ma table est
nickel au moment de l'importation.

L'ennui, c'est qu'à chaque importation j'ai dans ma base
une table : toto_ImportErrors qui se crée en renumérotant
à la fin toto_ImportErrors1, toto_ImportErrors2 et j'en
suis à 43.

Comment faire pour que cette table ne se crée plus sans
pour autant avoir à changer mon format d'import. Ou
comment la supprimer dès l'importation ?


Merci beaucoup pour votre aide.
Avatar
bxmann
bonjour
j'ai le même soucis que jpg mais avec un probleme en plus, c'est que le
fichier que j'importe est un fichier qui possède dans son Path le date du
jour ou il a été crée.
Du genre toto20050508.txt
Donc la formule DoCmd.DeleteObject acTable ne focntionne pas car je ne peut
lui donner en dur le nom de la table.
Sachant que l'import de mes fichiers ne se fait qu'en ouvrant ma base. j'ai
donc X fichiers qui sont en attente d'être intégré. Donc la possibilité que
j'ai aussi au moment de l'import x tables importErrors.
Je ne peut travailler les fichiers en amont car il m'arrive de prod sans que
je puisse intervenir dessus.
j'ai donc pris le parti de faire un recordset qui bouclera pour deleter les
table, j'ai donc pour cela créer une table tb_recordset qui contient le nom
des tables que je veux purger.
Mais c'est sur la déclaration de la commande de delete que je m....

voila le bout de code que j'ai pondu :

Public Function test()
Dim Db As DAO.Database
Dim Rst As DAO.Recordset
Set Db = CurrentDb

' boucle pour supprimer les tables d'erreurs des imports

Set rs = Db.OpenRecordset("select * from tb_recordset")
Do While Not rs.EOF
DoCmd.DeleteObject acTable, " & rs "

rs.MoveNext
Loop
exit_sub:
rs.Close
Set rs = Nothing
Set Db = Nothing

End Function

Comment dois je declarer mon recordsed dans la commande deleteobject

Merci de votre aide.
"Raymond [mvp]" a écrit dans le message de
news: %
Bonsoir.

commencer par supprimer le 43 tables existantes.
la prochaine recommencera à 1.
avant de faire l'import faire:
On error resume Next
DoCmd.DeleteObject acTable, "toto_ImportErrors1"

surveiller de temps en temps s'il n'y a pas un décalage.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"jpg" a écrit dans le message de
news: 3b1301c4e217$f3cd26d0$
Bonsoir,

J'importe un fichier toto.txt en longueur fixe. Dans mes
paramêtres d'importation je définis un champ avec un type
Date/Heure, mais dans ce champ, je n'ai pas forcément des
dates.

Et ce n'est pas grave parce que les lignes qui n'ont pas
de date ne m'intéressent pas et les lignes qui ont une
date s'importent correctement. Si bien que ma table est
nickel au moment de l'importation.

L'ennui, c'est qu'à chaque importation j'ai dans ma base
une table : toto_ImportErrors qui se crée en renumérotant
à la fin toto_ImportErrors1, toto_ImportErrors2 et j'en
suis à 43.

Comment faire pour que cette table ne se crée plus sans
pour autant avoir à changer mon format d'import. Ou
comment la supprimer dès l'importation ?


Merci beaucoup pour votre aide.




Avatar
Raymond [mvp]
Bonjour.

il y a une façon plus courte d'y arriver et sans le besoin d'une table.

Dim Tdf As DAO.TableDef
For Each Tdf In CurrentDb.TableDefs
If Tdf.Name Like "*ImportErrors*" Then
DoCmd.DeleteObject acTable, Tdf.Name
End If
Next Tdf

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"bxmann" <bxman**NOSPAM**@wanadoo.fr> a écrit dans le message de news:
d0nbhv$sor$
bonjour
j'ai le même soucis que jpg mais avec un probleme en plus, c'est que le
fichier que j'importe est un fichier qui possède dans son Path le date du
jour ou il a été crée.
Du genre toto20050508.txt
Donc la formule DoCmd.DeleteObject acTable ne focntionne pas car je ne
peut lui donner en dur le nom de la table.
Sachant que l'import de mes fichiers ne se fait qu'en ouvrant ma base.
j'ai donc X fichiers qui sont en attente d'être intégré. Donc la
possibilité que j'ai aussi au moment de l'import x tables importErrors.
Je ne peut travailler les fichiers en amont car il m'arrive de prod sans
que je puisse intervenir dessus.
j'ai donc pris le parti de faire un recordset qui bouclera pour deleter
les table, j'ai donc pour cela créer une table tb_recordset qui contient
le nom des tables que je veux purger.
Mais c'est sur la déclaration de la commande de delete que je m....

voila le bout de code que j'ai pondu :

Public Function test()
Dim Db As DAO.Database
Dim Rst As DAO.Recordset
Set Db = CurrentDb

' boucle pour supprimer les tables d'erreurs des imports

Set rs = Db.OpenRecordset("select * from tb_recordset")
Do While Not rs.EOF
DoCmd.DeleteObject acTable, " & rs "

rs.MoveNext
Loop
exit_sub:
rs.Close
Set rs = Nothing
Set Db = Nothing

End Function

Comment dois je declarer mon recordsed dans la commande deleteobject

Merci de votre aide.


Avatar
bxmann
Merci bcp !!!


"Raymond [mvp]" a écrit dans le message de
news: eWHiY%
Bonjour.

il y a une façon plus courte d'y arriver et sans le besoin d'une table.

Dim Tdf As DAO.TableDef
For Each Tdf In CurrentDb.TableDefs
If Tdf.Name Like "*ImportErrors*" Then
DoCmd.DeleteObject acTable, Tdf.Name
End If
Next Tdf

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"bxmann" <bxman**NOSPAM**@wanadoo.fr> a écrit dans le message de news:
d0nbhv$sor$
bonjour
j'ai le même soucis que jpg mais avec un probleme en plus, c'est que le
fichier que j'importe est un fichier qui possède dans son Path le date du
jour ou il a été crée.
Du genre toto20050508.txt
Donc la formule DoCmd.DeleteObject acTable ne focntionne pas car je ne
peut lui donner en dur le nom de la table.
Sachant que l'import de mes fichiers ne se fait qu'en ouvrant ma base.
j'ai donc X fichiers qui sont en attente d'être intégré. Donc la
possibilité que j'ai aussi au moment de l'import x tables importErrors.
Je ne peut travailler les fichiers en amont car il m'arrive de prod sans
que je puisse intervenir dessus.
j'ai donc pris le parti de faire un recordset qui bouclera pour deleter
les table, j'ai donc pour cela créer une table tb_recordset qui contient
le nom des tables que je veux purger.
Mais c'est sur la déclaration de la commande de delete que je m....

voila le bout de code que j'ai pondu :

Public Function test()
Dim Db As DAO.Database
Dim Rst As DAO.Recordset
Set Db = CurrentDb

' boucle pour supprimer les tables d'erreurs des imports

Set rs = Db.OpenRecordset("select * from tb_recordset")
Do While Not rs.EOF
DoCmd.DeleteObject acTable, " & rs "

rs.MoveNext
Loop
exit_sub:
rs.Close
Set rs = Nothing
Set Db = Nothing

End Function

Comment dois je declarer mon recordsed dans la commande deleteobject

Merci de votre aide.