[Resolvido]Adaptar código data expiração.

Bom dia amigos,

Preciso de ajuda, gostaria de adaptar o código abaixo para que busque a data em uma caixa de texto em um formulário, segue código:


Dim Minhadata As String 'isto declara a variavel Minhadata
Dim Dia As String, Mes As String, Ano As String 'isto cria a variavel Dia, mes e ano
Dia = "02" 'isto especifica até que dia o programa irá funcionar
Mes = "01" 'isto especifica ate que mes o programa funcionará
Ano = "2013" 'e isto especifica até que ano
Minhadata = Dia & "/" & Mes & "/" & Ano

'converte para data
Dim dt As Date
dt = Minhadata

If Date > dt Then
MsgBox "Este programa expirou, contate o administrador", vbExclamation, "Atenção"
MsgBox "anderson_cgms@hotmail.com _ Celular - (67) 9142-5020", vbInformation, "Administrador"
DoCmd.Quit
End If

No aguardo, desde já agradeço.

Talvez assim:

Código:

If Date > Me.NomeDaCaixaDeTexto Then
    MsgBox "Este programa expirou, contate o administrador", vbExclamation, "Atenção"
    MsgBox "anderson_cgms@hotmail.com _ Celular - (67) 9142-5020", vbInformation, "Administrador"
    DoCmd.Quit
End If

Só essas linhas.

Olá criquio,

Eu esqueci de um detalhe este código esta em um botão "entrar" na inicialização do sistema e a data esta em um formulário "manutenção" que alimenta a tabela de mesmo nome, quando clico no botão o formulário manutenção não esta aberto.


Att,

Isso deve ficar no formulário inicial ou então em uma função pública em um módulo que deve ser chamada através de uma macro AutoExec. Não é possível capturar dados de um formulário fechado, até porque, se ele está fechado, não contem dados carregados.

Boa tarde
Criquio desculpe a intromissão.

O exemplo do Anderson é igual ao que eu uso.
Como o Mestre Criquio disse é aplicado no acontecimento " Ao Abrir "

Dim Minhadata As String 'isto declara a variavel Minhadata
Dim Dia As Date, Mes As Date, Ano As Date 'isto cria a variavel Dia, mes e ano
Dia = 4 'isto especifica até que dia o programa irá funcionar
Mes = 1 'isto especifica ate que mes o programa funcionará
Ano = 2013 'e isto especifica até que ano
Minhadata = Dia & "/" & Mes & "/" & Ano
'A partir de hoje dia 5 de janeiro de 2013 já não abre.

If Date > Minhadata Then
MsgBox "anderson_cgms@hotmail.com _ Celular - (67) 9142-5020", vbInformation, "Administrador"
DoCmd.Quit
End If

Bom dia,

criquio e Assis, este evento esta em um botão, tudo bem então, gostaria que ao invés de pegar a data que esta no evento VBA:

Dia = 4 'isto especifica até que dia o programa irá funcionar
Mes = 1 'isto especifica ate que mes o programa funcionará
Ano = 2013 'e isto especifica até que ano
Minhadata = Dia & "/" & Mes & "/" & Ano

ele busque a data do formulário ou da tabela "manutenção", o código funciona mais gostaria que busca se para evitar de ficar a abrir o VBA, quando da data vencida.

Att,

É só adaptar. O código que passei está para verificar em um campo do formulário.

Ok, mas como chamo no código VBA o campo "dataexpira" da uma tabela "manutenção"???

rsrsrs.

Att,

Pode utilizar a Função DLookup, ou por abertura de RecordSet, dê uma pesquisada aqui mesmo.

Boa tarde JPaulo,criquio e Assis.

Li sobre o DLookup, mas como sou leigo não estive muito satisfeito, rsrs, até tentei adaptar, mas não da erro e nem mostra nada. rsrsrs.

Li http://maximoaccess.forumeiros.com/t1533-funcao-dlookup-explicacao e http://maximoaccess.forumeiros.com/t6143-resolvidodica-funcao-dlookup-estilo-procv-do-excel.

Só gostaria que o evento ao invés de ter que escrever no VB a data ele busque na tabela manutenção, e não entendi onde o DLookup entra se ele é um filtrador, acho que é isso, alguma ajuda.

att,

anderson

poste o se exemplo

Com a permissão de todos aqui presente ao tópico, gostaria de dar uma sugestão.

Private Sub Form_Load()
If Date >= #12/15/2012# Then
'Mês/Dia/Ano
MsgBox "Prazo de Testes Terminado, entre em contato com o Desenvolvedor! ", vbCritical, "Ápice Informática"
DoCmd.Quit
End If

If Date <= #12/15/2012# Then
MsgBox " ESSA CÓPIA É VALIDA ATÉ 15/12/2012 !", vbInformation, "Ápice Informática"
End If

Eu uso esse código no primeiro formulário a ser carregado nos meus sistemas.

Boas Silvio, o código postado esta a funfar, mas gostaria de não precisar a preencher a data no VBA.

Segue bd anexo.


Att,

Meu caro, analise bem todas as dicas já postadas que você conseguirá adaptar. Nós queremos que você entenda como a coisa funciona. Analise bem que você consegue.

Anderson
Com a data que está na tabela "tblconfiguracao" no campo "Data_liberada".

Bom dia a todos,

criquio, tenha certeza que vou analisar sim, pois esta dica vai me ajudar em outras funções no sistema.

Assis, foi um tapa na mosca, rsrsrsrs.

a todos muito obrigado pela ajuda e tempo dispensado a minha pessoa.

Att,

Obrigado pelo retorno
O forum agradece.