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

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

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

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

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?

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.

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

Resolvido

Que bom que conseguiu!

Valeu pelo retorno!

Boa sorte!