[Resolvido] Deletar tabelas com criterio

Senhores boa tarde,

como faço para deletar algumas tabelas que contenha uma letra, exemplo tenho 10 tabelas e 5 contem a letra "S" com faço para deletar todas essas tabelas que contenha essa letra.

no aguardo.

Olá, Já tentou a "Busca" aqui do fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Verifique se não é o que pretende:
https://www.maximoaccess.com/t173-resolvidosapagar-deletar-o-conjunto-de-tabelas-do-banco-de-dados

Abraço

Obrigado por responder ahteixeira

Eu vi esse tópico, porem eu tenho que digitar todas as tabelas que não quero que delete e é muita! só dei o exemplo de 10 mais é quase 80 tabelas, por isso que criei o tópico.

Olá, será ajustar a condição no IF

Disse letra S , é no início , no fim?

Estou no tablet, mas será ajustar, qualquer coisa disponibilize mais detalhes.

Abraço

o "s" fica em vários locais do texto, as vezes no final no meio e depois da segunda letra, por isso que seria mais viável inserir um contém ao deletar.

Ola a todos;

Quando você diz que fica no texto, é no nome da tabela ???

Exemplo de duas tabelas:

Código:

tblMorada
tblMoradas

Iria deletar a tabela "tblMoradas" definitivamente ou somente o conteudo dentro dela ???

Se for para deletar as tabelas mesmo, é o código abaixo.
Mas atenção, que deleta mesmo....rsrsrsrs

Código:

Public Function DeletaTabelasComEspecificaLetra()
'2018-06-29
Dim dbs As DAO.Database
Dim i As Integer
Set dbs = CurrentDb
For i = dbs.Relations.Count - 1 To 0 Step -1
dbs.Relations.Delete dbs.Relations(i).Name
Next i
For i = dbs.TableDefs.Count - 1 To 0 Step -1
'não deleta as tabelas de sistema
If Left(dbs.TableDefs(i).Name, 4) <> "MSys" Then
'se alguma tabela conter a letra "s" no nome, deleta
  If dbs.TableDefs(i).Name Like "*s*" Then
    dbs.TableDefs.Delete dbs.TableDefs(i).Name
  End If
End If
Next i
Set dbs = Nothing
'refresca a aplicação
Application.RefreshDatabaseWindow
End Function


Olá a todos,

Washington e restantes utilizadores do fórum não esquecer de fazer BACKUP antes de testar o código.

Só vai sobrar tabelas com letra S

JPaulo, obrigado por ajustar o código, no telemóvel não é fácil.

Ao contrário, só vai sobrar tabelas sem "S"

Sensacional pessoal, funcionou perfeitamente!

Obrigado ao ahteixeira, JPaulo


Tópico Resolvido!

Fico feliz
Obrigado pelo retorno o fórum agradece.