[Resolvidos]Apagar deletar o conjunto de tabelas do banco de dados

Boa tarde

Como apagar todas as tabelas de um BD com um botão de comando.
Com este comando apaga, mas não deixa apagar as que tem "RELAÇÃO", e eu queria eliminar todas de uma vez se possivel

Private Sub Comando0_Click()
If MsgBox("Eliminar Todas As Tabelas ? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then

DoCmd.DeleteObject acTable, "Encomenda"
DoCmd.DeleteObject acTable, "DetalhesArtigos"
Else
DoCmd.CancelEvent

Exit Sub
End If

End Sub

Viva Assis.

Aí vai;

Public Function DeletaTabelas()
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
'nem as tabelas que eu não quero deletar, a tblExemplo1 e a tblExemplo2
'este segundo passo pode ser ignorado.
If Left(dbs.TableDefs(i).Name, 4) <> "MSys" _
And dbs.TableDefs(i).Name <> "tblExemplo1" _
And dbs.TableDefs(i).Name <> "tblExemplo2" Then
dbs.TableDefs.Delete dbs.TableDefs(i).Name
End If
Next i
Set dbs = Nothing
End Function

Olá JPaulo
Boa tarde
A nossa Justiça é muito muito muito muito, lenta comparada com o amigo.
Sucesso
Obrigado

Hehehehe Valew Assis.