Deletando todas as tabelas

Moderador: Avelino Sampaio

Avatar do usuário
silvio
Mensagens: 84
Registrado em: 13 Ago 2015, 16:56
Localização: Piracicaba / SP

Deletando todas as tabelas

Mensagempor silvio » 21 Out 2016, 13:02

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: Selecionar todos


 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 !

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


juninhomorvan
Mensagens: 124
Registrado em: 07 Jun 2016, 18:02

Re: Deletando todas as tabelas

Mensagempor juninhomorvan » 21 Out 2016, 13:32

Legal ... gostei do comando! Testei e deu certo!


Voltar para “Biblioteca de códigos VBA, API e VbScript”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante