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]Liberação de acesso sistema periodicamente.

    Compartilhe

    MMousinho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 02/08/2016

    [Resolvido]Liberação de acesso sistema periodicamente.

    Mensagem  MMousinho em Sab 15 Jul 2017, 00:56

    Senhores Boa noite.

    Tenho um pequeno sistema em Access e quero disponibilizar para um cliente, porém por um tempo limitado, podendo ser liberado novamente.

    Exemplo:

    Libero por 30 dias e dependendo por mais 30 e assim sucessivamente.

    Gostaria que ao abrir o Formulário Inicio após a data estipulada para uso, ele escrevesse uma mensagem de "Sistema Bloquado, ligue para (11) 1111-1111.".

    Sou novo em access e ainda estou aprendendo a desenvolver...existe esta possibilidade?
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1695
    Registrado : 11/11/2009

    Re: [Resolvido]Liberação de acesso sistema periodicamente.

    Mensagem  Dilson em Sab 15 Jul 2017, 01:17

    Esta aqui essa preciosidade. Uma das colaborações de Avelino Sampaio que potencializou à todos a locação de software. O meu muito obrigado ao Avelino (copie e cole no navegador):
    usandoaccess.com.br/tutoriais/video-sistema-shareware-com-libercao-online.asp

    MMousinho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 02/08/2016

    Re: [Resolvido]Liberação de acesso sistema periodicamente.

    Mensagem  MMousinho em Sab 15 Jul 2017, 01:34

    Resolvi man.

    Mesmo assim Obrigado.

    Segue meu código.

    Private Sub btn_logar_Click()

    On Error GoTo deu_erro

    If DateValue("13/7/2017") >= Now() Then
    DoCmd.OpenForm "BARRA DE PROGRESSO"
    Else
    MsgBox "A data de validade expirou!"
    DoCmd.Close
    End If

    Set wshell = CreateObject("Wscript.Shell")
    wshell.PopUp "Acessando dados no Servidor...Aguarde...", 4, "Conectando com Servidor", 5

    Dim Status As Long
    Dim max As Long
    max = 10000

    SysCmd acSysCmdInitMeter, "Consultando Banco de Dados...", max

    For Status = 0 To max
    SysCmd acSysCmdUpdateMeter, Status

    If Status Mod 1 = 0 Then
    DoEvents
    End If
    Next Status




    Dim NOMEUSU As String
    Dim SENUSU As String

    NOMEUSU = UCase(Nz(Me.txt_usuario.Value, ""))
    SENUSU = UCase(Nz(Me.txt_senha.Value, ""))

    If IsEmpty(NOMEUSU) Or IsEmpty(SENUSU) Then
    MsgBox "Preencha os Campos..", vbOKOnly + vbCritical, "Impossível Acessar!!"

    Else
    If ExisteUsuario(NOMEUSU, SENUSU) Then

    DoCmd.Close
    DoCmd.OpenForm "INICIO"
    MsgBox "Bem Vindo Ao SisLojasMM", vbOKOnly, "Bem Vindo"




    Else
    NumInteiro = NumInteiro + 1
    If NumInteiro <= 2 Then
    MsgBox "Usuário e Senhas Incorretos..", vbOKOnly + vbCritical, "Tente Novamente!!"
    Me.txt_usuario.Value = ""
    Me.txt_senha.Value = ""
    Me.txt_usuario.SetFocus
    Else
    MsgBox "Você excedeu o numero de tentativas..", vbOKOnly + vbCritical, "Sair do Sistema!!"
    DoCmd.Quit

    End If
    End If

    End If
    Exit Sub
    deu_erro:
    MsgBox Err.Description

    End Sub

      Data/hora atual: Seg 25 Set 2017, 10:45