MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Rotina de para Inserir uma CHAVE de liberação ao Acessar aplicação via Formulário SPLASH

    avatar
    CLSOUZA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 20/12/2015

    Rotina de para Inserir uma CHAVE de liberação ao Acessar aplicação via Formulário SPLASH Empty Rotina de para Inserir uma CHAVE de liberação ao Acessar aplicação via Formulário SPLASH

    Mensagem  CLSOUZA em 11/3/2020, 01:42

    Prezado Amigos do Fórum:

    gostaria de poder solicitar uma ajuda. Tenho um Sistema feito em Access 2010 no "Formulário Splash" tem o Código abaixo. Ele permite através de uma "Tabela chamada Validade", gerar uma "Data" limite para o uso de meu Sistema. Sendo assim posso controlar versões liberadas para teste. Contudo preciso criar uma forma de adaptar esse Código para poder inserir uma "CHAVE" a ser solicitada a cada 30 (trinta) dias. Permitindo que o usuário seja obrigado o colocar essa "chave" enviada por mim. Essa "Chave" poderia ser "Consultada em uma Tabela: CHAVES" dentro do Sistema ou criada dentro do VB no formulário. O problema que todas as vezes que enviasse a "Chave" do mês para o Usuário. Ela não fosse mais possível ser usada no(s) mês(es) seguinte(s) pelo mesmo.

    EVENTO: AO ABRIR / FORMULÁRIO: SPLASH / TABELA: VALIDADE

    CÓDIGO:
    Private Sub Form_Open(Cancel As Integer)
    Dim db As Database, t1 As Recordset
    Set db = CurrentDb
    Set t1 = db.OpenRecordset("validade", dbOpenDynaset)
    If t1.BOF = True Then
    t1.AddNew
    t1![Código] = 1
    t1![DataExp] = Date + 30 'Esta linha soma a data atual mais 30 dias
    t1.Update
    Else
    If t1![DataExp] < Date Then
    Beep
    MsgBox "O prazo de utilização deste aplicativo para avaliação se esgotou! Por favor ligue para o NOME DA EMPRESA - SUPORTEINFO: .", vbCritical
    Application.Quit acPrompt
    End If
    End If
    t1.Close
    End Sub



    Sendo assim teria que acrescentar dentro deste Código a rotina:

    01) Buscar a "TABELA: CHAVES". O número da "Chave" enviada no mês;
    02) Validar essa "Chave", dentro da "TABELA: CHAVES";
    03) Liberar o sistema para uso do usuário. E ao Validar a "Chave", bloquear seu uso futuro do Número usado;
    04) O Código deverá ter duas condições:
    a) Um MsgBox: "Seu Sistema irá Aspirar sua Chave em 05 dias". (antecedendo a Data de vencimento que buscaria como calculo a Data de instalação da ultima chave, contando 30 dias
    Frente);
    b) Uma segunda MsgBox: "Seu Sistema aspirou. entre com a chaves de validação". (Contando 05 dias após  o vencimento da Data limite.). O critério de saída seria travar a entrada do usuário ao Sistema. Obrigando o mesmo a contatar o "suporte do administrador". solicitar uma "Chave" válida para liberar o uso Sistema. Teria que ter um "Botão de Encerrar o Sistema/Fechar total a aplicação". Se aberta novamente voltaria a solicitar a "Chave" de validação.


    IMPORTANTE:
    Segue abaixo o modelo da "TABELACHAVE" e seu campos.

    CÓDIGO: (Campo Número automático/Access)
    DATA DE INSTALAÇÃO: (Campo Data abeviada)
    CHAVE: (Campo Texto pois as Chaves são de 15 dígitos, contando Números, Letras e Traço)
    VALIDADO: (campo SIM/NÃO a ser validado quando o Usuário insere a Chave IGUAL a constante no "Campo Chave")

    OBSERVAÇÕES: Nesta Tabela criamos as "Chaves" que serão consultada na rotina do código.



    Segue abaixo o modelo da "TABELACHAVEINSERIDA" e seu campos.

    CÓDIGO: (Campo Número automático/Access)
    CHAVEINSERIDA: (Campo Texto pois as Chaves são de 15 dígitos e destinado a ser inserido pelo Usuário)
    DATADEINSTALAÇÃODACHAVE: (Campo Data e hora)

    OBSERVAÇÕES: Esta Tabela vai ser inserida a "Chave" válida e fornecida ao Usuário. E deverá bater com a

    "Chave" constante na TABELACHAVES. se não bater o Sistema não abre o Formulário SPLASH, seguindo a sequência de abertura da Área de Trabalho do sistema.

    Bom! Fiz uma pequeno roteiro de meu problema. Espero que me ajudem mostrando um "norte" ou "luz" para essa rotina a ser inserida no Código acima.

    Um grande abraço a todos.
    CIVALDO SOUZA
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Rotina de para Inserir uma CHAVE de liberação ao Acessar aplicação via Formulário SPLASH Empty Re: Rotina de para Inserir uma CHAVE de liberação ao Acessar aplicação via Formulário SPLASH

    Mensagem  scandinavo em 12/3/2020, 13:30

    Tem como postar um exemplo do banco de dados.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2118
    Registrado : 22/11/2016

    Rotina de para Inserir uma CHAVE de liberação ao Acessar aplicação via Formulário SPLASH Empty Re: Rotina de para Inserir uma CHAVE de liberação ao Acessar aplicação via Formulário SPLASH

    Mensagem  DamascenoJr. em 13/3/2020, 01:23

    Civaldo, para um sistema que é liberado mensalmente é importante considerar uma forma de liberação online.

    Imagine a seguinte situação:
    1. O usuário do seu sistema liga o computador pela manhã para iniciar mais um dia de produção
    2. O sistema dele, criado por você, expirou
    3. Ao tentar contato com você, você pode estar viajando ou longe de um computador ou de férias
    4. O usuário perde o dia de produção e certamente não fica muito feliz

    veja o artigo do link abaixo sobre o tema (se não for assinante, cadastre-se como visitante)
    usandoaccess.com.br/tutoriais/video-sistema-shareware-com-libercao-online.asp?id=1


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Rotina de para Inserir uma CHAVE de liberação ao Acessar aplicação via Formulário SPLASH Empty Re: Rotina de para Inserir uma CHAVE de liberação ao Acessar aplicação via Formulário SPLASH

    Mensagem  scandinavo em 13/3/2020, 16:33

    Tenho uns exemplos aqui mas não é de minha autoria .
    veja se tem alguma coisa de útil para você.

    mas leve em consideração o que o Damaseno falou.
    Anexos
    Rotina de para Inserir uma CHAVE de liberação ao Acessar aplicação via Formulário SPLASH Attachmentchave de vencimento.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (864 Kb) Baixado 16 vez(es)
    avatar
    CLSOUZA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 20/12/2015

    Rotina de para Inserir uma CHAVE de liberação ao Acessar aplicação via Formulário SPLASH Empty Re: Rotina de para Inserir uma CHAVE de liberação ao Acessar aplicação via Formulário SPLASH

    Mensagem  CLSOUZA em 15/3/2020, 14:32

    Bom dia Prezados Amigos do Fórum!

    Em resposta ao Amigo "DamascenoJr", certamente seria uma ótima ideia. Porém muita gente que tenho foco estão fora da web com seu ponto de venda. Sendo assim uma rotina via internet seria uma opção válida, assim como a offline que preciso criar. Mais gostaria de agradecer sua luz para esse problema.

    Imagine a seguinte situação:
    1. O usuário do seu sistema liga o computador pela manhã para iniciar mais um dia de produção
    2. O sistema dele, criado por você, expirou
    3. Ao tentar contato com você, você pode estar viajando ou longe de um computador ou de férias
    4. O usuário perde o dia de produção e certamente não fica muito feliz

    Em resposta ao Prezado "scandinavo", vou dar uma olhada com carinho do exemplo enviado e reporto aqui novidades, se puder adaptar o modelo. E estou vendo com carinho a orientação do "DamascenoJr", pois acredito ser o futuro desta situação.

    Amigos sou agradecido pela ajuda e orientação. Isso torna inestimável a participação dentro do fórum. Logo retorno!

    Atenciosamente,
    CIVALDO

      Data/hora atual: 16/7/2020, 04:35