Questione : Come cancellare tutti i rapporti fra le tabelle prima della cancellazione delle tabelle all'interno di accesso using VBA?

Tutti,

I hanno la seguente codificazione ma se uso lo SQL o appena uso DoCmd.DeleteObject ottengo l'errore - l'errore run-time “2387„.  In ogni modo posso aumentare sotto per comprendere una funzione al controllo dei rapporti legati ad una tabella in primo luogo ed allora per cancellare quei rapporti prima della cancellazione della tabella?   Ovviamente se disponibile fornire prego la codificazione per agire in tal modo.  il

I non poteva trovare una funzione per cancellare tutti i rapporti in una base di dati ma se se potessi tweak per fare di che cosa ho bisogno.  E questo non è tutto quella I " m. che lavora sopra per limitare l'elenco di searchi giù….  Grazie per alcune risposte di codificazione.  Se nessun tempo ora, posso certamente wait. class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
il >Option notpretty " del class= " del id= " codeSnippet782601 del
class= del

Risposta : Come cancellare tutti i rapporti fra le tabelle prima della cancellazione delle tabelle all'interno di accesso using VBA?

Delete_Table secondario riservato (scuderia come stringa)
    Rex fioco come rapporti
    Rel fioco come rapporto
    Regolare il rex = CurrentDb.Relations
    Oscurare la i come lungamente
    Per i = rex. Conteggio - 1 - 0 punti -1
        Regolare il rel = il rex (i)
        Se rel. Tabella = scuderia allora
            rex. Rel di cancellazione. Nome
        Concluder se
    Dopo i
  DoCmd.DeleteObject acTable, stabile
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us