Executar ação ao trocar dia

Galera bom dia!

Existe algum código em VBA para que execute ou troque uma variável assim que trocar o dia?



Por exemplo:

* Tenho uma variável x com o valor "False" no dia 11/09/2013;

* Tenho um botão que ao clicar sobre ele a variável x fique com o valor "True" ainda no dia 11/09/2013;

* Quando eu abrir o banco de dados em outro dia, como por exemplo 12/09/2013 e variável volta ao valor padrão para "False"

Obrigado!

Boa tarde.

Insira uma caixa de texto de nome DataAtual com o valor padrao =Data()

No seu form no evento Ao Carregar colo que o seguinte codigo:

Código:



If Me.DataAtual > Me.NomeDaCaixaData Then
    Me.Variavel = False
else
End If



Espero que ajude.

Fala Kelvin!!!!

Cara, desculpe minha ignorância, mas qual seria a aplicação dessa variável????

Pelo que entendi a variável será true sempre....
Quando você fechar o access, ela vai perder a referencia, até ser usada novamente....

Entendi muito errado????

Desde já agradeço....

Abraço a todos!!!!

Bom dia CrisMaleta,

No verdade, toda vez que você abrir o access ele voltaria para os valores padrões, por isso que preciso de um código +- assim.

hoje é dia 13/09/2013, então o código verificaria na tabela x se existe algum registro referente ao dia 13/09/2013, caso exista execute uma ação, caso não, execute outra.

A única parte que estou com problema é o código de como checar todos os registros de uma tabela.

Bom dia Cláudio Machado, esse comando acho que não me atende muito bem, porque não tenho nenhuma caixa de texto para setar um valor.

Precisaria de um código que quando abrir o formulário, ele faça a leitura de uma tabela x e procure o valor y, caso encontre me retorna uma ação, caso não, outra!

Obrigado mesmo assim! Tenha um bom dia!

Fala Kelvin....

Cara...
Da forma que você está propondo, não tem outra forma, a não ser, trabalhar com registro em tabela.... por isso a opção do Claudio não é viável!!!!
Você está trabalhando com tabelas vinculadas ou desvinculadas????

Partindo do princípio que são vinculadas e indo direto ao ponto, você pode usar assim......

dim inExisteRegistro as integer

'Verifica se existe algum registro na tabela, levando em consideração a data atual.
inExisteRegistro = nz(dcount("NomeDeUmCampoChave", "NomeDaTabela", "NomeDoCampoComData = " & date()),0)
'Decide qual ação tomar, caso exista registro na tabela.
if inExisteRegistro = 0 then
'Executa o código quando não existe registro do dia atual.
else
'Executa o código quando existe registro do dia atual.
end if


Em tempo.....
Você já possui algum código referente a sua dúvida???
Poderia facilitar na ajuda!!!!

Testa lá e vê se matamos o pepino!!!!

Desde já agradeço....

Abraço a todos!!!!!!!

Ficava melhor com um exemplo do que você quer, não entendi muito bem... Mas se é o que entendi, é só voce criar um recordset (SELECT *campoDaTabela* from tabelaX where *campodaTabela* = valorY) ai faz um "if recordset.RecordCount > 0" (ou seja, se existir um valor) executa sua acao, "else" executa sua outra acao. isso tudo no evento fom_load do seu formulário... Se não entender, edito o código assim que puder, agora estou meio corrido aqui rsrs..

Bom adia a todos.
Bem a explicação do Kevin não foi bem detalhada, por isso postei este exemplo de código, ele utiliza nomes sem citar o código, o ideal seria postar uma do sistema ou exemplo pra gente poder ajudar ou ser mais especifico.