Pytanie : Dlaczego wszystkie związek między stół przed stół wśród Dostęp using VBA?

Błąd,

I've dostać the następujący cyfrowanie ale czy I używać the SQL lub właśnie use DoCmd.DeleteObject I dostawać the błąd - właśnie błąd "2387".  Jakkolwiek I móc jakkolwiek funkcja czek związek wiązać stołowy pierwszy i wtedy tamte związek przed the stół?   Oczywiście jeżeli dostępny zadawalać zapewniać the cyfrowanie w ten sposób.  

I być niezdolny funkcja wszystkie związek w baza danych ale jeżeli pod warunkiem, że I móc ono i I potrzebować.  I puszek być puszek ten I " m dalej the searchi pozycja puszek….  Dziękować ty dla niektóre cyfrowanie odpowiedź.  Jeżeli żadny czas teraz, I móc pewny wait.

(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 Porównywać Baza danych Opcja Wyraźny Intymny Okręt podwodny Delete_Tables () Wywoławczy Delete_Table ("PROJ_ME") Wywoławczy Delete_Table ("PROJ_EQ") Wywoławczy Delete_Table ("PROJ_RM") Wywoławczy Delete_Table ("PROJ_DPT") Wywoławczy Delete_Table ("ALTSORT") Wywoławczy Delete_Table ("PROJ_INF") Końcówka Okręt podwodny Intymny Okręt podwodny Form_Open (Odwoływać Jako Integer) Dzwonić Delete_Tables Kończyć Okręt podwodny Intymny Okręt podwodny Delete_Table (stajenka Sznurek) 'Ciemnawy sSQL Sznurek 'sSQL = "KROPLA STÓŁ [" & stajenka & "]" 'CurrentDb.Execute sSQL 'DoEvents DoCmd.DeleteObject stajenka, stajenka Końcówka Okręt podwodny

Odpowiedź : Dlaczego wszystkie związek między stół przed stół wśród Dostęp using VBA?

Intymny Okręt podwodny Delete_Table (stajenka Sznurek)
    Ciemnawy rex Jako Powiązanie
    Ciemnawy rel Jako Powiązanie
    Ustalony rex = CurrentDb.Relations
    Ciemnawy i Długo
    Dla i = rex. Obliczenie - (1) (0) Krok -1
        Ustalony rel = rex (i)
        Jeżeli rel. Stół = stajenka Wtedy
            rex. Deleatur rel. Imię
        Kończyć Jeżeli
    Następnie i
  DoCmd.DeleteObject stajenka, stajenka
Końcówka Okręt podwodny