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

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

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.

Obrigado Silvio

O fórum agradece o retorno.