Discussion :

[ana2sb]

Bonjour à tous,

Voilà je vous expose mon problème. J'ai une base avec pas mal d'objets: formulaires, états, modules ... . Je réalise un bout de code me permettant de supprimer mes objets les uns aprés les autres et de les remplacer par d'autres objets correspondants provenant d'une autre base.

Code :

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

1
2
3
4
5
6
7
8
    Set cnt = Dbs.Containers("Modules")
    For Each doc In cnt.Documents
        'on supprime le module
        DoCmd.DeleteObject acModule, doc.Name
        'on ajoute le module
        DoCmd.TransferDatabase acImport, "Microsoft Access", _
        strDataBase, acModule, doc.Name, doc.Name, True, True
    Next

Tout fonctionnement parfaitement hormis un module qu'on va nommé "Fonction" ... Access n'arrive pas à le supprimer du premier coup et au lieu de rajouter le module correspondant provenant de l'autre base par le nom "Fonction" il le nomme "Fonction1" (normal car pour lui ce module "Fonction" existe tjs...) . Je pense que c'est du au code se trouvant dans ce module "Fonction" que access n'arrive pas a le supprimer du 1er coup

Donc j'aimerais savoir comment je peux faire pour palier à ce probleme. Existe t-il un bout de code qui permet de rafraichir la liste des objets dans access ou un truc dans le genre??

Merci d'avance.

Julie

[marot_r]

Salut,

est-ce que Fonction contient le code que tu exécute ? Ça pourrait expliquer que Access ne puisse pas le détruire.

Ensuite, personnellement quand je fait ce genre de nettoyage j'utilise une boucle inversée (step -1) et l'indice de l'objet plutot que le for each. J'ai eu des problèmes avec la collection des tabledefs où mon programme détruisait une table sur 2.

De plus je ferais l'importation dans une autre étape histoire de ne pas ajouter et enlever des objets de ma collection simultanément.

1) je vide ma collection
2) je reremplie ma collection

Eventuellement je passe par un tableau pour garder la liste des noms.

A+