Fråga : Hur man tar bort alla förhållanden between bordlägger, innan att ta bort, bordlägger tar fram within using VBA?

Alla

I've fick kodifiera efter, men huruvida jag använder SQLEN, eller precis bruk DoCmd.DeleteObject jag får felet - run-time fel ”2387”.  På något sätt jag kan förhöja nedanfört för att inkludera en fungera till kontrollen av förhållanden som först binds till en bordlägga och därefter för att ta bort de förhållanden, innan jag tar bort bordlägga?   Om självfallet tillgängligt, behaga ger kodifiera som ska göras så.  

I var oförmögen att finna en fungera för att ta bort alla förhållanden i en databas men om, provided jag kunde tweak den för att göra vad jag behöver.  Och detta är inte allt som det I-" M-arbetet på som begränsar lista för searchi, besegrar….,  Tacka dig för några kodifiera svar.  Om ingen tid nu, jag kan bestämt wait. > för

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:

" codeBody " " >Optionen för class= " för " klar "

Svar : Hur man tar bort alla förhållanden between bordlägger, innan att ta bort, bordlägger tar fram within using VBA?

Privata underDelete_Table (stall som stränger)
    Dunkel rex som förbindelse
    Dunkel rel som förhållande
    Fastställd rex = CurrentDb.Relations
    Dunkelt I som Long
    För I = rex. Räkning - 1 till 0 kliver -1
        Fastställd rel = rex (I)
        Om rel. Bordlägga = stall därefter
            rex. Borttagningsrel. Känt
        Avsluta om
    Därefter i
  acTable DoCmd.DeleteObject, stall
Avsluta suben