Cuestión : ¿Cómo suprimir todas las relaciones entre las tablas antes de suprimir las tablas dentro del acceso usar VBA?

Todos,

I tienen la codificación siguiente pero si utilizo el SQL o apenas el uso DoCmd.DeleteObject consigo el error - error run-time “2387”.  ¿De todas formas puedo realzar abajo para incluir una función al cheque de las relaciones atadas a una tabla primero y después para suprimir esas relaciones antes de suprimir la tabla?   Obviamente si está disponible proporcionar por favor la codificación para hacer tan.  el

I no podía encontrar una función para suprimir todas las relaciones en una base de datos pero si con tal que podría pellizcarla para hacer lo que necesito.  Y éste no es todo ese I " m que trabaja encendido para enangostar el listado del searchi abajo….  Gracias por algunas contestaciones de la codificación.  Si ninguna hora ahora, puedo ciertamente wait. class= > " claro " 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:
el >Option notpretty " del class= " del id= " codeSnippet782601 del
class= del

Respuesta : ¿Cómo suprimir todas las relaciones entre las tablas antes de suprimir las tablas dentro del acceso usar VBA?

Delete_Table secundario privado (establo como secuencia)
    Rex dévil como relaciones
    Rel dévil como relación
    Fijar el rex = CurrentDb.Relations
    Amortiguar i como de largo
    Para i = rex. Cuenta - 1 a 0 pasos -1
        Fijar el rel = el rex (i)
        Si rel. Tabla = establo después
            rex. Rel de la cancelación. Nombre
        Terminar si
    Después i
  DoCmd.DeleteObject acTable, estable
Submarino del extremo
Otras soluciones  
 
programming4us programming4us