Discussion :

[chim33]

Bonjour,

Je souhaite écrire une procédure pour supprimer une série complète d'objets d'une base de donnée externe.
J'ai trouvé ce code dans la FAC Access pour supprimer un objet déterminé :

Code :

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

1
2
3
4
5
6
7
8
 
Function DeleteObjectExterne() 
Dim acApp As Access.Application 
Set acApp = GetObject("toto.mbd") 
acApp.DoCmd.DeleteObject acForm, "nom_form" 
acApp.Quit 
Set acApp = Nothing 
End Function

Pour supprimer une série complète, par exemple tous les forms, je pense qu'il faut faire une boucle. Mais je n'arrive pas à adapter le code ci-dessus.
Pouvez vous m'aider?

[Jean-Philippe André]

salut,
les boucles For Each sont à utiliser dans ton cas :
de plus une variable Database peut simplifier le code

Code :

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

1
2
3
4
5
Dim tmpForm as Form
 
For Each tmpForm In db.Containers("Forms")
acApp.DoCmd.DeleteObject acForm, tmpForm.Name
Next

[chim33]

Merci jpcheck pour le tuyau sur la boucle.
J'ai laissé ce problème de coté quelques jours car j'en avais un autre plus urgent à régler.
Comme j'avais des soucis pour faire tourner la boucle, je suis revenu sur le code simple qui permet de supprimer un seul module :

Code :

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

1
2
3
4
5
6
7
8
9
Dim strdatabase As String
Dim db As DAO.Database
Dim acApp As Access.Application
    strdatabase = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Access", "mdb")
    Set acApp = GetObject(strdatabase)
    acApp.DoCmd.DeleteObject acReport, "EGA-Enfants Internes"
    acApp.Quit
    Set acApp = Nothing
    MsgBox "Module supprimé"

Le code s'exécute apparemment sans erreur, mais si je veux accéder à la db pour vérifier si la suppression est effective, une boîte de dialogue s'ouvre qui me demande 'Entrez le mot de passe de la base de données'.
La base n'est protégée par aucun mot de passe et il me refuse mon mot de passe de session Vista.
Si je relance la suppression j'ai une erreur 7874 : impossible de trouver EGA..., mais la db s'ouvre, je peux donc vérifier que la suppression est effective et effectuer des transactions normalement.
Cependant lorsque je veux fermer cette db par un bouton 'Fermer' dans un formulaire, j'ai à nouveau la boîte de dialogue 'Entrez le mot de passe de la base de données'.
Je suis alors obligé d'utiliser le bouton de fermeture en haut à droite de la fenêtre pour réellement fermer la db.
J'ai regardé dans le propriétés du fichier, il n'y a aucune sécurité particulière.
Pouvez m'indiquer comment éviter ce problème de mot de passe?

[Jean-Philippe André]

salut,
attention de vérifier avant que l'état en question existe bien

pour ton aspect sécurité, il serait plus judicieux de poser la question dans le topic dédié, en mettant en lien cette discussion en point de départ