[Resolvido]Excluir Somente Tabelas Vinculadas

Bom dia!

é possivel excluir somente tabelas vinculadas?

tenho tabelas vinculadas e não vinculadas.

Achei no site do avelino sampaio, vou testar


'caso precise excluir todas as tabelas vinculadas, basta verificar dentro do loop For Each se a propriedade connect de cada tabela está preenchida. Observe atentamente o código abaixo:

Código:

'------------------------------------
'Deletar todas as tabelas vinculadas
'------------------------------------
For Each tbl In CurrentDb.TableDefs
  If Len(tbl.Connect & "") > 0 Then

      '-------------------------------------------------------------------

      'Excluir a tabela vinculada, identificada pela presença de valor na

      'propriedade connect

      '-------------------------------------------------------------------
      DoCmd.DeleteObject acTable, tbl.Name
  End If
Next

Olá, obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Não se esqueça de dar o tópico como resolvido.
Abraço

complementando o codigo do avelino (uso o access 2010) faltou declarar "tbl"

Código:

'------------------------------------
'Deletar todas as tabelas vinculadas
'------------------------------------

Dim tbl As TableDef

For Each tbl In CurrentDb.TableDefs
  If Len(tbl.Connect & "") > 0 Then

      '-------------------------------------------------------------------

      'Excluir a tabela vinculada, identificada pela presença de valor na

      'propriedade connect

      '-------------------------------------------------------------------
      DoCmd.DeleteObject acTable, tbl.Name
  End If
Next


obrigado!