MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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.

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    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!!!!!

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    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.]

    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: Baixe aqui
    Código de cliente para testes: congregafacil

    SisFAT Cursos Online
    Faça Faculdade Teológica Online: Baixe aqui
    [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: Sab 03 Dez 2016, 04:37