Achar objeto (Access)

[Galdino Vilela 0]

Gente a questão é a seguinte...Existe um código em visual basic que procura um determinado objeto (tabela).Vou explicar... Eu preciso criar um função if...then... que se existir uma determinada tabela no meu banco de dados irá executar um código que exclua essa tabela... se não existir... executará um outro código...Por isso eu precisava de um código em visual basic que localize objetos...

[rgto 0]

simples, no VBA você deverá usar um código semelhante a este:

 

Function DesconectaTabelas()    Dim BD As Database    Set BD = CurrentDb()DT:    For i = 0 To BD.TableDefs.Count - 1        If BD.TableDefs(i).Attributes = 537001984 Then            BD.TableDefs.Delete BD.TableDefs(i).Name            GoTo DT        End If    NextEnd Function