Pergunta : Como suprimir de todos os relacionamentos entre tabelas antes de suprimir tabelas dentro do acesso using VBA?

Todos,

I've começ a seguinte codificação mas se eu me uso o SQL ou apenas o uso DoCmd.DeleteObject eu começ o erro - erro run-time “2387”.  Em todo o caso eu posso realçar abaixo para incluir uma função à verificação dos relacionamentos amarrados a uma tabela primeiramente e para suprimir então daqueles relacionamentos antes de suprimir a tabela?   Obviamente se disponível fornecer por favor a codificação para fazer assim.  o

I era incapaz de encontrar uma função para suprimir de todos os relacionamentos em uma base de dados mas se desde que eu poderia tweak a para fazer o que eu preciso.  E este não é todo esse I " m que trabalha sobre para estreitar para baixo a lista do searchi….  Obrigado para algumas respostas da codificação.  Se nenhuma hora agora, eu posso certamente wait. class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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:
o >Option notpretty " do class= " do id= " codeSnippet782601 do
class= do

Resposta : Como suprimir de todos os relacionamentos entre tabelas antes de suprimir tabelas dentro do acesso using VBA?

Delete_Table secundário confidencial (estábulo como a corda)
    Rex não ofuscante como relações
    Rel não ofuscante como a relação
    Ajustar o rex = o CurrentDb.Relations
    Escurecer i como por muito tempo
    Para i = rex. Contagem - 1 a 0 etapas -1
        Ajustar o rel = o rex (i)
        Se rel. Tabela = estábulo então
            rex. Rel da supressão. Nome
        Terminar se
    Em seguida i
  DoCmd.DeleteObject acTable, estável
Submarino da extremidade
Outras soluções  
 
programming4us programming4us