Deletando todas as tabelas

Por vezes, fornecemos alguma versão de demonstração para futuros clientes.  E por vezes, tentam quebrar a segurança do ( e em alguns casos conseguem )  prazo de validade.

Criado em Access 2007, testado com sucesso em duas versões de demonstração !

Esse código abaixo coloque o mesmo no primeiro formulário que vai ser aberto, evento ao carregar.

Código:



 Private Sub Form_Load()
'Desenvolvido por Silvio
If Date <= #10/20/2016# Then
MsgBox "Sistema em Fase de Demonstração " & vbCrLf & _
      "Valido até 20/10/2016", vbInformation, "Aviso..."
End If
     
     
If Date >= #10/20/2016# Then
'excluindo  tabelas do sistema

Dim dbs As DAO.Database
Dim i As Integer
Set dbs = CurrentDb
'Loop para trás através de relações
For i = dbs.Relations.Count - 1 To 0 Step -1
dbs.Relations.Delete dbs.Relations(i).Name
Next i
' Loop para trás através de tabledefs
For i = dbs.TableDefs.Count - 1 To 0 Step -1
If Left(dbs.TableDefs(i).Name, 4) <> "MSys" Then
dbs.TableDefs.Delete dbs.TableDefs(i).Name
End If
Next i
Set dbs = Nothing

' fim da exclusão

MsgBox "Prazo de Demonstração Terminado, entrar em contato com o desenvolvedor! ", vbCritical, "Aviso..."
DoCmd.Quit
End If
End Sub



Ao emitir o aviso de vencimento por data, todas as tabelas que estavam na versão de demonstração...serão apagadas !