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

3 participantes

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

    avatar
    lourival
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  lourival 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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    lourival
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  lourival 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
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 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.


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    lourival
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  lourival 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
    avatar
    lourival
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  lourival 19/2/2018, 21:13

    Resolvido
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 19/2/2018, 21:15

    Que bom que conseguiu! cheers

    Valeu pelo retorno!

    Boa sorte!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 26/11/2022, 19:35