Formulário PopUp despertador - Executar Evento Hora Programada

Boa tarde

Senhores, Como estão?

Tenho uma duvida e possível criar um formulário popup despertador que desperte todos os dias uteis da semana das 18H do dia as 6H do dia seguinte e finais de semana e feriados das 00H as 23H pesquisei na internet e não consegui achar exemplos queria saber se e possível, gostaria de saber se alguém já efetuo alguns trabalho parecido.

obrigado

Olá Lindomar, Bem-Vindo ao fórum.
Sim, é possível.
Não encontrou, mas aqui no forum tem os dois temas abordados várias vezes.
Efetue uma busca, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Procure por:
Agenda
Alarme
Dias úteis

Terá o necessario para resolver.
Qualquer coisa estamos cá!
Abraço

Bom dia

Não consigo acessar os exemplos no DropBox, alguem pode meajudar

Obrigado

Att

Ito

Olá Lindomar,
Vou mostrar o "caminho das pedras".
Fiz pequeno exemplo, não está a controlar feriados.
Para isso, tem que ajustar com função para calcular feriados do seu País.
No fórum existe exemplos para Portugal e Brasil (não se esqueça da "Busca")

Código usado no exemplo:

Código:

Option Compare Database
'ahteixeira 2017 para MaximoAccess
Dim sHora As String

Private Sub Form_Load()
    Me.TimerInterval = 60000 ' 1 minuto
End Sub

Private Sub Form_Timer()
    'atribuir hora de minuto a minuto à variável
    sHora = Format(Time(), "hh:mm")
    
    'verifica dia da semana
    If Weekday(Date) > 1 And Weekday(Date) < 7 Then     'segunda a sexta
        If sHora = "06:00" Then MsgBox "Hora programada 06:00 - para fazer ...", vbInformation, ""
        If sHora = "18:00" Then MsgBox "Hora programada 18:00 - para fazer ...", vbInformation, ""
    Else     'sabado e domingo
        If sHora = "00:00" Then MsgBox "Hora programada 00:00 - para fazer ...", vbInformation, ""
        If sHora = "23:00" Then MsgBox "Hora programada 23:00 - para fazer ...", vbInformation, ""
    End If
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Me.TimerInterval = 0
End Sub


Abraço