Bonjour,
Je souhaiterais pouvoir supprimer formulaires, requêtes, états et macros dans une base externe pour n'y conserver que les tables.
Exemple pour les formulaires :Aucune erreur n'est signalée, mais aucun formulaire n'est supprimé !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Dim MaBd As DAO.Database Dim strNomBase As String Dim MonFrm As DAO.Document Set MaBd = DBEngine.Workspace.OpenDatabase(strNomBase) With MaBd For Each MonFrm In .Containers("Forms").Documents DoCmd.DeleteObject acForm, MonFrm.Name Next End With
Auriez-vous une explication?
Merci
Amitiés
Partager