Sistema de Alarme - PopUp

[fernando soares]

Pessoal,

Gostaria de saber se alguém sabe como posso fazer um sistema de alarme?

Exemplo:

Tenho um formulário onde registo minhas atividades do dia a dia e nesse formulário tenho um campo onde coloco a data de início dessa atividade e tambem tenho um campo "Yes/No" onde eu gostaria de quanto eu ticasse esse campo ele me abrisse um PopUp no dia da atividade com 5 minutos de antecedencia para me lembrar dessa atividade.

É possível?

Abraços,

Fernando

[Humm]

dá. você tem que criar um codigo no evento NO TIMER de algum form que fique sempre aberto.

você pode setar o intervalo de tempo de checagem no campo que vem logo abaixo do NO TIMER que se chama INTERVALO DO CRONOMETRO

eu aconselho você a setar de minuto em minuto usando o valor 60000 para não deixar seu sistema lento.

sua tabela deve ter pelo menos um campo DATA(00/00/0000), um campo HORA (00:00), um campo ATIVAR_ALARME(sim/não) e um campo AVISADO(sim/não)

então crie uma consulta para lhe retornar apenas os registros que estiverem setados como marcados para alarme. ex:

campo [data] com criterio = data()

campo [hora] com criterio = Entre Tempo()+#00:07:00# E Tempo()+#00:03:00# assim você tem uma margem de erro

campo [ATIVAR_ALARME] use criterio = Sim

campo [AVISADO] use criterio = Não

agora você escolhe se vai chamar os alarmes por msgbox com dlookups ou se vai criar um form pra exibir os alarmes.

abraços

[fernando soares]

dá. você tem que criar um codigo no evento NO TIMER de algum form que fique sempre aberto.

você pode setar o intervalo de tempo de checagem no campo que vem logo abaixo do NO TIMER que se chama INTERVALO DO CRONOMETRO

eu aconselho você a setar de minuto em minuto usando o valor 60000 para não deixar seu sistema lento.

sua tabela deve ter pelo menos um campo DATA(00/00/0000), um campo HORA (00:00), um campo ATIVAR_ALARME(sim/não) e um campo AVISADO(sim/não)

então crie uma consulta para lhe retornar apenas os registros que estiverem setados como marcados para alarme. ex:

campo [data] com criterio = data()

campo [hora] com criterio = Entre Tempo()+#00:07:00# E Tempo()+#00:03:00# assim você tem uma margem de erro

campo [ATIVAR_ALARME] use criterio = Sim

campo [AVISADO] use criterio = Não

agora você escolhe se vai chamar os alarmes por msgbox com dlookups ou se vai criar um form pra exibir os alarmes.

abraços

valeu pela ajuda...mais não estou conseguindo.

1 - qual o código que eu devo colocar dentro do evento Timer?

2 - Veja na figura como ficou minha query ( essa função "Entre Tempo" você sabe como é ela em ingles?)

http://img205.imageshack.us/img205/4074/79290099.jpg

3 - depois eu crio um Form e chamo essa query dentro desse form?

Valeu

Editado Agosto 17, 2010 por fernando soares

[Humm]

em ingles

campo [data] com criterio = date()

campo [hora] com criterio = between Time()+#00:07:00# AND Time()+#00:03:00#

campo [ATIVAR_ALARME] use criterio = True

campo [AVISADO] use criterio = False

[fernando soares]

beleza..já criei a querie comm esses critérios....e agora que código que coloco dentro do evento Timer?

eu quero que quando tiver alguma atividade a vencer ou vencida que abra um form e me mostre o ID dessa atividade...

Editado Agosto 17, 2010 por fernando soares

[Humm]

então cara.. a consulta so vai mostrar os eventos q tem mesmo.

agora no codigo você coloca algo assim:

'se houver algum registro na consulta, vai abrir o form de minuto em minuto
    If Not IsNull(DLookup("[data]", "consulta_alarme")) Then
        DoCmd.OpenForm "form_ALARMES", acFormDS         
    End If

[fernando soares]

então cara.. a consulta so vai mostrar os eventos q tem mesmo.

agora no codigo você coloca algo assim:

'se houver algum registro na consulta, vai abrir o form de minuto em minuto
    If Not IsNull(DLookup("[data]", "consulta_alarme")) Then
        DoCmd.OpenForm "form_ALARMES", acFormDS         
    End If

beleza consegui fazer....só que só consegui trazer o resultado na querie se eu tirar essa condição da hora que você colocou de "between Time()+#00:07:00# AND Time()+#00:03:00#"

não entendi direito essa condição...mais se eu coloco ela não aparece nenhum registro na querie...porque será?

[Humm]

esse criterio diz o seguinte:

a consulta busca a hora cadastrada

então o criterio diz:

se a hora estiver entre (hora atual + 3min) e (hora atual + 7min)

ou seja. se a hora cadastrada par alarme for 9:00.. o alarme ocorrerá entre 8:43 até 8:47 que é a margem dos 5 minutos de antecedencia.

senao pode ocorrer do minuto atual não bater exatamente com o minuto cadastrado.

mas ao invés disse use:

< Time()+#00:06:00#

assim ele so considera o que vem 6 minutos antes da hora do alarme. por isso tem q ter um outro codigo pra desativar o alarme que é apresentado, senao a cada minuto, todos os alarmes que já venceram vao sempre aparecer

porem, pensando melhor você pode ter 2 campos de hora. um para dizer a hora do compromisso e outro pra dizer a hora do alarme. nesse caso use:

< time()

Editado Agosto 17, 2010 por Humm