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]Controle de Licença - Licença Expirada

    avatar
    edu2araujo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 06/01/2017

    [Resolvido]Controle de Licença - Licença Expirada Empty [Resolvido]Controle de Licença - Licença Expirada

    Mensagem  edu2araujo em 15/2/2018, 12:27

    Como faço para colocar um controle de licença, exibindo uma mensagem de licença expirada e abortar a aplicação?
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Controle de Licença - Licença Expirada Empty Re: [Resolvido]Controle de Licença - Licença Expirada

    Mensagem  Silvio em 15/2/2018, 16:18

    Olá, seja bem vindo ao Fórum.

    Utilize sempre o sistema de busca que temos aqui, isso foi visto muitas vezes por aqui.

    Mas aqui vai um exemplo bem simples para ti.

    Utilize essa rotina no evento ao carregar do primeiro formulário do teu SGBD

    Código:
    Private Sub Form_Load()

    If Date <= #01/30/2018# Then '
    MsgBox "Sistema em período de demonstração e testes ! " & vbCrLf & _
                "Valido até 30/01/2018", vbInformation, "AVISO..."
         End If
          
    If Date >= #01/30/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

    End Sub

    Bons estudos.


    .................................................................................
    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."
    avatar
    edu2araujo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 06/01/2017

    [Resolvido]Controle de Licença - Licença Expirada Empty [Resolvido]Controle de Licença - Licença Expirada

    Mensagem  edu2araujo em 15/2/2018, 16:46

    Obrigado Silvio
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Controle de Licença - Licença Expirada Empty Re: [Resolvido]Controle de Licença - Licença Expirada

    Mensagem  Silvio em 15/2/2018, 17:21

    O fórum agradece o retorno.


    .................................................................................
    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."

      Data/hora atual: 22/4/2019, 15:43