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