[Resolvido]Finalizar todos os Front end aberto em horário programado.

Bom dia / boa tarde / boa noite.

Prezados, gostaria de coletar, saber e conhecer a opinião de vocês a respeito do enunciado no tópico.

Qual o melhor caminho para isso ?

1- em cada front end ter uma rotina, que ao chegar em determinado horário o front end mesmo se encerra ?

ou

2- uma rotina para escolher qual front end escolher para fechar ?


Motivo...as 20h00 de segunda a sexta eu rodo o Cobian para fazer o BKP do sistema. E sempre olho o Log de eventos do mesmo.
E percebo que em certo dias, ele não está fazendo...tem alguém esquecendo o sistema logado ainda no servidor. E isso impede de realizar o BKP.

Então, gostaria que opinassem qual o melhor caminho a ser seguido.

Abraços a todos.

Tópico movido de "Módulo e VBA".

Silvio, penso que ter um contador nos front-ends que cheque a hora para saber se fecha ou não pode acabar afetando o desempenho do seu sistema.

Minha dica seria ter um script no agendador de tarefas para forçar o fechamento dos programas que desejas.

Concordo plenamente que essa tarefa não deve ser feita dentro dos bancos, teria de ter um timer a correr e prejudicar o desempenho.

O que tenho feito desde à muitos anos é;

No agendedor de tarefas da máquina, agendar para correr o VBScript.

Anexo aqui dois exemplos de VBScript a funcionarem, pode editar o vbs com o notepad++ ou simplesmente abrir com o notepad normal.
Um valida a hora e o outro apenas encerra o banco quando for chamado.

Bom dia / Boa tarde / Boa noite.

JPaulo e Damasceno, grato por opinarem.

Sim, de fato ter um VBS faz com que fique mais simplificada a tarefa de encerrar o sistema em questão e menos pesado os Front End sem o acréscimo de mais uma rotina.

Vou testar o VBS do JPaulo aqui no meu computador.

Apenas uma pergunta JPaulo, o VBS aceita AM-Pm ou formato do mesmo é 24 horas, exempo.....20:00 ?

Grato.

É CurrentTime>=#20:00:01#, não necessita do AM/PM.

Mas se você usar o agendedor de tarefas da máquina, não necessita de invocar a hora no VBS.

Bom dia / boa tarde / boa noite.

Colegas segue o que eu fiz....

No agendador de tarefas do Windows, nas estações, caso alguém esqueça o micro ligado

Código:

Dim CurrentTime
Dim objShell
CurrentTime = Time()


Set objShell = WScript.CreateObject("WScript.Shell")
    objShell.Run "C:\WINDOWS\system32\shutdown.exe -s -t 0 -f"
End If

'mensagem de erro   
If Err.Number <> 0 Then
    'error handling:
    'WScript.Echo Err.Number & " Srce: " & Err.Source & " Desc: " &  Err.Description
    Err.Clear
   WScript.Quit 0
End If

WScript.Quit 0

Os micros serão desligados.

No servidor, onde está o sistema e o Cobian, colocado no agendador de tarefas

Código:

Dim CurrentTime
Dim accessApp
'desenvolvido por JPaulo para o maximoaccess
'obtem a hora atual
 CurrentTime = Time()


If CurrentTime>=#20:00:01# Then

'invocar qual o banco a ser encerrado
  set accessApp = GetObject("C:\SisRepre\SisRepre.accdb")
'fecha o banco
accessApp.quit
set accessApp = nothing
WScript.Quit 0
    Else
      'não faz nada
End If
   
If Err.Number <> 0 Then
    'error handling:
    'WScript.Echo Err.Number & " Srce: " & Err.Source & " Desc: " &  Err.Description
    Err.Clear
   WScript.Quit 0
End If

WScript.Quit 0

Fecha o sistema no servidor e o Cobian faz o BKP

Grato, gratidão a todos que participaram e me direcionaram na melhor pratica.

Abraços.

Obrigado pelo retorno, o fórum agradece.