Effacer des tables

2 réponses

bob

04/11/2003 à 22:44

Salut,
Lors d'une importation j'ai des erreurs de conversion et des tables du type
ci-dessous qui
sont crées V9999_ImportErrorsXXX
XXX étant un numéro qui s'incrémente a chaque erreur de création
J'utilise la fonction ci-dessous pour effacer une table
DoCmd.DeleteObject acTable, "V9999_ImportErrors"
Mais je dois le faire aussi pour les autres tables V9999_ImportErrorsXXX
N'y a t'il pas moyen de tout effacer en une fois
D'avance merci
Didier

2 réponses

Xavier HUE

04/11/2003 à 23:27

Bonjour bob,

Directement non, mais par code comme ceci par exemple:

Dim db as database
dim tbl as tabledef

set db = currentdb

for each tbl in db.tabledefs
if left(tbl.name, 18) = "V9999_ImportErrors" then
DoCmd.DeleteObject acTable, tbl.name
endif
next tbl

set tbl=nothing
db.close
set db = nothing

Cordialement.

bob

04/11/2003 à 23:46

merci

"Xavier HUE" wrote in message
news:02ef01c3a322$d1cc5270$

Bonjour bob,

Directement non, mais par code comme ceci par exemple:

Dim db as database
dim tbl as tabledef

set db = currentdb

for each tbl in db.tabledefs
if left(tbl.name, 18) = "V9999_ImportErrors" then
DoCmd.DeleteObject acTable, tbl.name
endif
next tbl

set tbl=nothing
db.close
set db = nothing

Cordialement.

Effacer des tables

2 réponses

Veuillez sélectionner un problème