Supprimer toutes les relations
Comment supprimer toutes les relations de la base de données ?
Ça ne devrait pas vous servir souvent, mais si vous deviez supprimer toutes les relations entre les tables de votre base de données, faites comme ceci :
- Ajoutez un module standard dans votre base de données.
- Recopiez dans ce module le bout de code VBA donné plus bas.
- Placez votre curseur quelque part dans la portion de code.
- Cliquez sur l’icône Exécuter Sub/UserForm, en haut de l’écran.
Le code
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
' --- ' SUPPRIMER TOUTES LES RELATIONS DE LA BASE DE DONNEES ' --- ' Sub SupprimerRelations() Dim db As DAO.Database Dim intI As Integer ' Une confirmation, au cas où ;-) If MsgBox("Confirmez-vous la suppression de toutes les relations ?", _ vbQuestion + vbYesNo) = vbNo Then Exit Sub End If ' Une instance de la base de données Set db = CurrentDb ' Mémoriser le nombre de relations intTotal = db.Relations.Count ' Supprimer toutes les relations For intI = db.Relations.Count - 1 To 0 Step -1 db.Relations.Delete db.Relations(intI).Name Next ' On libère les objets Set db = Nothing ' Un petit message final :-) MsgBox "Nombre de relations supprimées : " & intTotal, _ vbInformation End Sub |
Important
L’exemple de code ci-dessus fait appel à la bibliothèque DAO (Microsoft DAO Object Library). Cette bibliothèque doit être associée à votre base de données pour que le programme fonctionne.
Pour plus de détails sur les références, consultez cette page.
