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]Como desbloquear sistema com tempo DETERMINADO para Uso.

    Compartilhe

    renatojmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 16/11/2012

    Como desbloquear sistema com tempo DETERMINADO para Uso.

    Mensagem  renatojmaia em Sab 26 Out 2013, 15:39

    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.


    renatojmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 16/11/2012

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

    Mensagem  renatojmaia em Sab 26 Out 2013, 15:51

    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.
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 754
    Registrado : 11/09/2013

    Tente! "não testei"

    Mensagem  formiga10x em Sab 02 Nov 2013, 04:36

    '-------------------------------------------------------------------------------------------------------------
    '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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em Sab 02 Nov 2013, 10:11

    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


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

    renatojmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 16/11/2012

    Código Finalizado

    Mensagem  renatojmaia em Dom 03 Nov 2013, 22:51

    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!!!!!
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em Dom 03 Nov 2013, 23:50

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

    O fórum agradece o retorno.


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 21/01/2010

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

    Mensagem  Gilberto Rocha em Seg 04 Nov 2013, 00:37

    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!

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Resolveu? Clique em resolvido!
    Sistema para administração de Igrejas e Ministérios Evangélicos Congrega Fácil Online.
    Seja um representante em sua cidade!
    Baixe o sistema Congrega Fácil Online: [Você precisa estar registrado e conectado para ver este link.]
    Código de cliente para testes: congregafacil

    SisFAT Cursos Online
    Faça Faculdade Teológica Online: [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Batalha Bíblica, teste gratis!
    [Você precisa estar registrado e conectado para ver este link.]


    Analista de Controladoria

    renatojmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 16/11/2012

    Obrigado

    Mensagem  renatojmaia em Seg 04 Nov 2013, 13:32

    Belo exemplo, funciona perfeito e atende as minhas necessidades!

    Perfeito!!!!!!

      Data/hora atual: Sex 24 Nov 2017, 01:51