Question : Comment supprimer tous les rapports entre les tables avant de supprimer des tables dans l'accès using VBA ?

Tous, le

I ont le codage suivant mais si j'emploie le SQL ou juste l'utilisation DoCmd.DeleteObject j'obtiens l'erreur - l'erreur d'exécution « 2387 ».  Quoi qu'il en soit je peux augmenter ci-dessous pour inclure une fonction au contrôle des rapports attachés avec une table d'abord et puis pour supprimer ces rapports avant de supprimer la table ?   Évidemment si disponible fournir svp le codage pour faire ainsi.  le

I ne pouvait pas trouver une fonction pour supprimer tous les rapports dans une base de données mais si si je pourrais la tordre pour faire de ce que j'ai besoin.  Et ce n'est pas tout cet I " m fonctionnant dessus pour rétrécir la liste de searchi vers le bas….  Merci de quelques réponses de codage.  Si aucune heure maintenant, je peux certainement wait. class= > " clair " de

> de " codeSnippet " de class= de

class= " lineNumbers " de

class= de

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 :

le >Option " de l'id= " codeSnippet782601 de

class= de

Réponse : Comment supprimer tous les rapports entre les tables avant de supprimer des tables dans l'accès using VBA ?

Delete_Table secondaire privé (écurie comme corde)
    Faible rex comme relations
    Faible rel comme relation
    Placer le rex = le CurrentDb.Relations
    Obscurcir I en tant que longtemps
    Pour I = rex. Compte - 1 à 0 étapes -1
        Placer le rel = le rex (i)
        Si rel. Tableau = puis écurie
            rex. Rel de suppression. Nom
        Finir si
    Après i
  DoCmd.DeleteObject jouable, stable
Sous-marin d'extrémité