Вопрос : Как уничтожить все отношения между таблицами перед уничтожать таблицы в пределах доступа using VBA?

Все,

I получают следующий кодирвоание но использую ли я SQL или как раз польза DoCmd.DeleteObject я получаю ошибку - продолжающую погрешность «2387».  В лубом случае я могу увеличить ниже для того чтобы включить функцию к проверке отношений связанных к таблице сперва и после этого уничтожить те отношения перед уничтожать таблицу?   Очевидно если имеющеся пожалуйста предусмотрите кодирвоание для того чтобы сделать так.  

I было неспособно найти функцию для того чтобы уничтожить все отношения в базе данных но если при условии я smog tweak она для того чтобы сделать, то мне нужно.  И это не все то I " m работая дальше для того чтобы сужать перечисление searchi вниз….  Вы для некоторых ответов кодирвоания.  Если никакое время теперь, я могу некоторо wait. class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

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:

>Option " class= " id= " codeSnippet782601

class=

Ответ : Как уничтожить все отношения между таблицами перед уничтожать таблицы в пределах доступа using VBA?

Приватное Sub Delete_Table (конюшня как шнур)
    Тусклое rex как отношения
    Тусклое rel как отношение
    Установите rex = CurrentDb.Relations
    Затемните I как длиной
    Для I = rex. Отсчет - от 1 до 0 разделов -1
        Установите rel = rex (I)
        Если rel. Таблица = конюшня после этого
            rex. Rel Delete. Имя
        Закончитесь если
    Затем iий
  DoCmd.DeleteObject acTable, стабилизированн
Подводная лодка конца