[Resolvido]Exiestência de Tabela Simples

Grandes Mestres,

Procurei na selva e não encontrei um código simples para verificar:

IF tabela existe then
delete
ELSE
Nada faça
END IF

São tabelas auxiliadas criadas que crescem o BD e podem ser deletadas e posteriormente recriadas.
Modo bem simples

É possível???


Muito grato

Grande Marcelo,

Verifiquei o link que indicastes e juntei com outro de JPAULO (aqui da selva) e resolvi. Ficou assim:


Dim dbs As DAO.Database
Dim i As Integer
Dim Cont As Integer
Cont = 0
Set dbs = CurrentDb
For i = dbs.TableDefs.Count - 1 To 0 Step -1
'Deleta apenas as tabelas terminadas por AUX que são as tabelas criadas temporariamente...
If Right(dbs.TableDefs(i).Name, 3) = "AUX" Then
dbs.TableDefs.Delete dbs.TableDefs(i).Name
Cont = Cont + 1
End If
Next i
Set dbs = Nothing
MsgBox "Foi deletado " & Cont & " tabela(s) auxiliar(es) para liberar espaço no seu banco de dados", vbInformation, "AVISO IMPORTANTE"

Muito obrigado a todos

Muito obrigado mesmo...

Grande Abraço