[Resolvido]Fechar em horário específico

Boa tarde!
Estou aqui mais uma vez pedindo ajuda a esta excelente equipe.

Criei um sistema no access onde houve a necessidade de que este fechasse após alguns minutos.
Hoje há a necessidade que ele feche num horário específico. Funciona em rede, pois muitos usuários o acessam.

usei o código abaixo para fechar em 20 minutos. Gostei, mas há como adaptar para fechar em determinada hora?
Procurei algo, mas não consegui achar.

Desde já agradeço a todos!

CÓDIGO PARA MINUTOS.
1) Abrir um formulário no modo estrutura.

2) Criar um rótulo neste formulário e nomear como Tempo_Ocioso

3) No Procedimento dos Eventos OnMouseMove (AoMoverMouse) da seção detalhe do formulário e OnKeyPress (Ao Pressionar Tecla) do formulário definir o seguinte código:

Tempo_Ocioso.Caption = "00:00:00"

Ao ocorrer os eventos acima zera o valor do tempo ocioso e a contagem começa novamente.

4) Localize e altere a propriedade TimerInterval (IntervaloDoCronômetro) do formulário para o valor: 1000. O que equivale a 1 segundo.

5) No Evento Timer (No Cronômetro) do formulário defina o código:

Private Sub Form_Timer()
Static LinHor As Integer
Static LinMin As Integer
Static LinSeg As Integer

If Trim(Tempo_Ocioso.Caption) = "00:00:00" Then
LinHor = 0
LinMin = 0
LinSeg = 0
End If

LinSeg = LinSeg + 1
If LinSeg = 60 Then
LinSeg = 0
LinMin = LinMin + 1
If LinMin = 60 Then
LinMin = 0
LinHor = LinHor + 1
If LinHor = 24 Then
LinHor = 0
End If
End If
End If

Tempo_Ocioso.Caption = Format(LinHor, "00") & ":" & _
Format(LinMin, "00") & ":" & _
Format(LinSeg, "00")

If Tempo_Ocioso.Caption = "00:20:00" Then
DoCmd.Quit acQuitSaveAll
End If
End Sub

Insira uma caixa de texto em modo oculto, no seu formulario principal, dê-lhe o nome de txtTempo;

No evento VBA do cronómetro do seu form;

Private Sub Form_Timer()
    Dim IntTempo
    On Error Resume Next
    IntTempo = "16:02:01"
    
    Me.txtTempo.Value = Time()
    If Me.txtTempo.Value = IntTempo Then DoCmd.Quit acQuitSaveAll
End Sub

Tem de ter o Intervalo do cronómetro = 1000

Olá JPaulo!

Apaguei tudo e inseri o novo código, mas está dando Erro de Compilação: Método ou membro de dados não encontrado

O trecho: .Value =
da linha: Me.txtTempo.Value=Time()
está grifado.

Você inseriu uma caixa de texto desvinculada no seu formulario ?

Deu-lhe o nome de txtTempo ?

Estava como Rótulo. Já apaguei e inseri a caixa de texto não acoplada.
Fiz o teste novamente. Não deu erro mas o sistema não fechou. continuou aberto.

Hummmmm;

Mostre-me o código.

Private Sub Form_Timer()
Dim IntTempo
On Error Resume Next
IntTempo = "14:43:00"
Me.txtTempo.Value = Time()
If Me.txtTempo.Value >= IntTempo Then DoCmd.Quit acQuitSaveAll
End Sub

Faça desse jeito com a caixa de texto visivel e veja se o tempo aparece lá e se está a contar corretamente.

Sim. conta corretamente

Se conta corretamente tem de funfar.

Acompanhe com o relógio do seu Computador e teste novamente.

Delete o On Error Resume Next, para ver se devolve algum erro.

nada. não devolveu erro após deletar esta linha.

Não pode ser....

Teste ae;

também não funcionou o que vc enviou.

a versão que uso é Windows 7, access 2007.

Faça assim que funfa;

Private Sub Form_Timer()
    Dim IntTempo
    On Error Resume Next
    IntTempo = #6:10:00 PM#
    Me.txtTempo.Value = Time()
    If Me.txtTempo.Value >= IntTempo Then DoCmd.Quit acQuitSaveAll
End Sub

Ultimo exemplo foi alterado.

Muito bom J Paulo!

Funcionou sem problemas.

Muito grato e bom dia de trabalho a todos nós!

Obrigado pelo retorno o forum agradece.