[Resolvido]Como desbloquear sistema com tempo DETERMINADO para Uso.

Fui orientado pelo Silvio (Developer) a usar o código no primeiro Frm:

Código:

Private Sub Form_Load()
'If Date >= #11/30/2013# Then
 'Mês/Dia/Ano
'MsgBox "Prazo de Testes Terminado, entre em contato com o Desenvolvedor! ", vbCritical, "Aviso..."
'DoCmd.Quit
'End If

'If Date <= #11/30/2013# Then
'MsgBox " ESSA CÓPIA É VALIDA ATÉ 30/11/2013 !", vbInformation, "AVISO..."
'End If

End Sub

Pintou outra dúvida agora? como desbloquear se o sistema não abrirá mais,

No entanto poderia criar um usuário por exemplo "Desenvolverdor" com atributo de Administrador do Sistema para que quando "logasse"
eliminaria a abertura do procedimento de verificação do tempo de expiração do BD para que pudesse destravar o BD para uma nova licença.

Código:

'-------------------------------------------------------------------------------------------------------------
    'Validade do Sistema para aquisição da Licença do Sistema
    'Mes/dia/ano
'-------------------------------------------------------------------------------------------------------------
           
        If Date >= #11/30/2013# Then
       
        MsgBox "Prazo de teste terminando, entre em contato com o Desenvolvedor!", vbExclamation, "Licença de Uso"
       
        If getGrupoUsuarioAtual = "Administrador" Then
              DoCmd.OpenForm "FManutencaoSistema"
        Else
        DoCmd.Quit
       
        End If
       
        If Date <= #11/30/2013# Then
        MsgBox "ESSA CÓPIA É VALIDA ATÉ 30/11/2013", vbExclamation, "Licença de uso"
        End If
    End If

Tentei mais mesmo assim ele fecha.

'-------------------------------------------------------------------------------------------------------------
'Validade do Sistema para aquisição da Licença do Sistema
'Mes/dia/ano
'-------------------------------------------------------------------------------------------------------------

if usuario ="Desenvolvedor" then
docmd.openform "frmprincipal"

else
If Date >= #11/30/2013# Then

MsgBox "Prazo de teste terminando, entre em contato com o Desenvolvedor!", vbExclamation, "Licença de Uso"

If getGrupoUsuarioAtual = "Administrador" Then
DoCmd.OpenForm "FManutencaoSistema"
Else
DoCmd.Quit

End If

If Date <= #11/30/2013# Then
MsgBox "ESSA CÓPIA É VALIDA ATÉ 30/11/2013", vbExclamation, "Licença de uso"
End If
End If
end if

Bom dia para todos....


Pode-se, em tese, tentar algo parecido com isso:

Código:

'-------------------------------------------------------------------------------------------------------------
    'Validade do Sistema para aquisição da Licença do Sistema
    'Mes/dia/ano
    ' Desenvolvido por Silvio/Fórum MaximoAccess para RenatoJmaia
    ' 02/11/2013
'-------------------------------------------------------------------------------------------------------------
            
        If Date >= #11/30/2013# Then
        
        MsgBox "Prazo de teste terminando, entre em contato com o Desenvolvedor!", vbExclamation, "Licença de Uso"

        If Me.seu_campo_de_senha_aqui = "senha_do_admim_aqui" Then   ' verifica a senha do administrador

        DoCmd.OpenForm "FManutencaoSistema"   ' se  estiver correta, abre o formulário

        Else    ' se não estiver

        MsgBox "Senha de administrador errada, o programa será fechado !"   ' avisa que esta errada

        docmd.quit   ' encerra o programa

        End If        
        Else
        DoCmd.Quit       ' encerra o programa
        End If
        
        If Date <= #11/30/2013# Then
        MsgBox "ESSA CÓPIA É VALIDA ATÉ 30/11/2013", vbExclamation, "Licença de uso"
        End If
    End If

Não testei o mesmo

Obrigado Senhores Silvio e formiga10x pela ajuda, mais seus códigos ainda finalizava de qualquer forma o BD.
então parei estudei um pouco os códigos de vocês juntamente com o meu inicial e cheguei a este código:

Código:

'-------------------------------------------------------------------------------------------------------------
'Validade do Sistema para aquisição da Licença do Sistema
'Mes/dia/ano
'-------------------------------------------------------------------------------------------------------------
  If Date >= #11/2/2013# Then
        MsgBox "Prazo de teste terminando, entre em contato com o Desenvolvedor!", vbExclamation, "Licença de Uso"
   
    If Me.txtUsuarioAtual = "Administrador" Then
    DoCmd.OpenForm "FManutencaoSistema"
  Else
    DoCmd.Quit

 End If

    If Date >= date Then
    MsgBox "ESSA CÓPIA É VALIDA ATÉ 02/11/2013", vbExclamation, "Licença de uso"
    End If
 End If


Então até próxima!!!!!

Perfeito.....é assim que deve ser feito. Parabéns !

O fórum agradece o retorno.

Só uma dica, se o usuário alterar a data do PC esse bloqueio não funcionará!
No repositório tem exemplos de Expira serial!

http://maximoaccess.forumeiros.com/t118-demo-informar-serial?highlight=Expira+serial

Belo exemplo, funciona perfeito e atende as minhas necessidades!

Perfeito!!!!!!