MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Excluir tabelas ou Access apos prazo definido em codigo.

    Compartilhe

    lourival
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 23/10/2011

    [Resolvido]Excluir tabelas ou Access apos prazo definido em codigo.

    Mensagem  lourival em 19/2/2018, 13:29

    Pessoal bom dia!

    Preciso que ao completar um determinado prazo as tabelas do access sejam excluidas, ou pode ser que o programa todo seja eliminado do computador do usuario assim que der o prazo definido, tem como?

    esse codigo ele defini o tempo do programa para uso: peguei aki no site


    If Date <= #2/18/2018# Then  '
    MsgBox "Sistema em período de demonstração e testes ! " & vbCrLf & _
               "Valido até 19/02/2018", vbInformation, "AVISO..."
       
       
        End If
         
    If Date >= #2/19/2018# Then
                   'Mês/Dia/Ano
    MsgBox "Prazo de demonstração e testes...terminado " & vbCrLf & _
                "Entrar em contato com o desenvolvedor ! ", vbCritical, " AVISO... "
    DoCmd.Quit
    End If
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Excluir tabelas ou Access apos prazo definido em codigo.

    Mensagem  Silvio em 19/2/2018, 13:35

    Bom dia...

    O código é de minha autoria.....Não se esqueça de sempre fornecer o autor do código.

    Segue o que deseja.

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Excluir tabelas ou Access apos prazo definido em codigo.

    Mensagem  Noobezinho em 19/2/2018, 14:37

    Eu não excluiria as tabelas.

    O cliente pode mudar de ideia em alguns dias e comprar/alugar o aplicativo, então as tabela já estarão com dados.

    E outra, os dados pertencem ao cliente.

    Se ele pedir que se transfira os dados da tabelas para o banco de dados de outro programa, só poderemos cobrar

    pelo serviço.

    [ ]'s

    lourival
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 23/10/2011

    Re: [Resolvido]Excluir tabelas ou Access apos prazo definido em codigo.

    Mensagem  lourival em 19/2/2018, 15:09

    Obrigado Silvio e Noobezinho pelas informações!!

    Ocorre que os dados são enviados ao usuario por mim, ele apenas consulta, mensalmente tenho que mandar outro access com informações atualizadas e para que o usuario nao utilize informações desatualizadas. o bom seria que excluisse todo o access caso a data estivesse apos o definido. isso seria ideal!! tem como?

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Excluir tabelas ou Access apos prazo definido em codigo.

    Mensagem  Noobezinho em 19/2/2018, 15:54

    Se não fez ainda, divida o aplicativo, assim não precisa apagar o front ed.
    Assim, deletando a base de dados (back end), o front end fica inutilizado.

    lourival
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 23/10/2011

    Re: [Resolvido]Excluir tabelas ou Access apos prazo definido em codigo.

    Mensagem  lourival em 19/2/2018, 21:10

    Ola pessoal!

    Juntando pedaços daqui e dali deu nisso e pra mim deu certo! agradeço a todos!!

    Private Sub Form_Load()
    'codigo desenvolvido por Silvio

    'Se a data atual for inferior ao dia abaixo, o programa se mantem!
    If Date <= #2/18/2018# Then  '
    MsgBox "Sistema válido até 18/02/2018  " & vbCrLf & _
               "", vbInformation, "AVISO..."

    End If
       
    'Se a data for maior ou igual abaixo, o programa excluirá todos os dados das tabelas e fechara o programa
    If Date >= #2/19/2018# Then
                   'Mês/Dia/Ano
    MsgBox "Prazo do programa expirado, Entrar em contato com o Lourival !" & vbCrLf & _
                "", vbCritical, " AVISO... "
       
    'Deixar de apaprecer as mensagens de quantas linhas serão excluidas
    DoCmd.SetWarnings False
           
    'Excluir os dados das tabelas
    DoCmd.RunSQL "Delete * from [tabela01]", -1
    DoCmd.RunSQL "Delete * from [tabela02]", -1
    DoCmd.RunSQL "Delete * from [tabela03]", -1
    DoCmd.RunSQL "Delete * from [tabela04]", -1
       
    'Fechara o programa com todos os dados deletados
    DoCmd.Quit
    End If
    End Sub

    lourival
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 23/10/2011

    Re: [Resolvido]Excluir tabelas ou Access apos prazo definido em codigo.

    Mensagem  lourival em 19/2/2018, 21:13

    Resolvido

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Excluir tabelas ou Access apos prazo definido em codigo.

    Mensagem  Noobezinho em 19/2/2018, 21:15

    Que bom que conseguiu! cheers

    Valeu pelo retorno!

    Boa sorte!

      Data/hora atual: 22/10/2018, 20:36