MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Deletando todas as tabelas

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Deletando todas as tabelas Empty Deletando todas as tabelas

    Mensagem  Silvio 21/10/2016, 14:00

    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 !

    Clenilton gosta desta mensagem


      Data/hora atual: 29/3/2024, 02:26