Macro que executa a determinada data

Bom dia,

eu sei que já fiz isto há alguns anos atrás, e agora não me recordo.
Eu tenho uma macro e queria que ela executasse, após abrir o formulário inicial e detectasse a data, ou seja, que ela fosse executada apenas após 01/08/2022.
Conseguem me ajudar? Obrigada!

Olá Ana,

Seja bem-vinda ao fórum.
Para que possamos te auxiliar da melhor forma, compartilhe uma copia dos seu banco de dados para análise e solução do problema.

É isso
Att
Alexandre Fim

O banco de dados é enorme...

preciso apenas que, ao abrir o banco de dados (e já tenho numa macro autoexec que o faz) ela volte a fechar automaticamente a partir de dia 1 de agosto de 2022. Ou seja, depois, se não se alterar essa macro, sempre que quiserem abrir o banco de dados têm que o "enganar"  colocando no relógio do Windows, uma data anterior à que eu defini.

Não me recordo como já fiz isto. E eu sei que é simples...

Obrigada!

Já consegui... Bastante simples:

na macro em vista de estrutura coloca-se na "condição" Data()>#01/08/2022# ; na "ação" Executar comando e nos "argumentos" coloca-se Sair

Olá Ana,

Fiz um pequeno exemplo para tua necessidade.

1 - criei uma tabela onde consta a data de vigência do sistema:


2- Criei um módulo com a função "fncVerificaData", que faz a verificação da data vigente:

Código:


'-- Alexandre Fim - Função que verifica a data vigencia do sistema
Public Function fncVerificaData()
Dim vDataVig As Date

    vDataVig = DLookup("data_vigencia", "TB_DADOS", "id_dados = 1")
    

    If DateDiff("d", Format(Date, "dd/mm/yyyy"), Format(vDataVig, "dd/mm/yyyy")) > 0 Then
        MsgBox "Sistema desabilitado para uso.", vbExclamation, "Mensagem"
        Application.Quit
        Exit Function
    End If


End Function


3 - A macro "autoexec", executa a função acima:



Desta forma, você pode aplicar os procedimentos acima ao teu sistema.

Segue exemplo anexo.

É isso.
Att,
FIM

Bom dia
Se ficou resolvido, marque o botão "Resolvido" que se encontra na zona inferior direita do fórum
Leia e siga as regras do fórum, de forma a mantermo-mo-lo de forma mais organizada