[Resolvido]Alertas em Formulários

Estou criando uma base de dados em access, para gerir alertas, entanto não estou a conseguir.
O objectivo é surgir um formulário ao iniciar o computador, de modo a conseguir isto fiz o seguinte:

Criei um formulário e em VBA criei o código

Private Sub Form_Open(Cancel As Integer)
If Me!Dia.Value <> Me!Hoje.Value Then
DoCmd.Quit
Exit Sub
End If
End Sub

Que esta a funcionar bem, o meu problema e quando num mês nã tenho nenhum alerta programado o access incia-se e mostra uma msn de erro, onde diz que a função introduzida não tem valor.


O meu objectivo é que o access inicie e mostre o alerta, depois será fecha manualmante, quando não existir alerta o base de dados abre e fecha automaticamente.

Olá Marco

Bem vindo ao Fórum.

Para entendermos melhor tua dúvida, precisamos que explique melhor, pois está um tanto confuso.
Mas talvez seja isso:
Acredito que o controle "Me!Dia" seja uma data programada para que tal alerta apareça e quando esse controle estiver em branco , essa mensagem não deve aparecer e o aplicativo abre normalmente.

Se for isso experimente:

Código:


Private Sub Form_Open(Cancel As Integer)

If Not IsNull(Me!Dia) or me!Dia <> "" then ' se o controle Dia for nulo ou vazio, abre o formulário normalmente.
  If me!Dia <> Me!Hoje Then
      DoCmd.Quit
      Exit Sub
  End If

End If
End Sub


Foi que entendi a principio, caso não seja isso, retorne.

Abraços

olá balem

E obrigado pela prontidão da resposta, já tentei dessa forma mas continua a dar erro, vou tentar explicar melhor o que pretendo e como fiz.

A minha base de dados deve alertar me de acordo com o periodo estabelecido, ou seja, em relação a uma data o alerta deve surgir ao fim de 2, 5 e 10 anos, para isso tenho um campo data e três campos para programar os alertas pois estas datas podem ser variaveis.

Para criar um alerta fiz um formulário com os campos que necessito, para abrir esse formulário apenas no dia pretendido determinei o dia de acordo com data lançada e o dia actual

Dia=dia([data])

Hoje=dia(agora())

Quando Dia=Hoje Abre o formulário se caso contrário fecha aplicação

Como não percebo muito de programação, o método que usei para abrir automaticamente a base dados foi colocar um atalho na arranque do computador, ai a base de dados abre sempre que este for ligado, objectivo desta condição e manter a base de dados aberta se o dia=hoje caso contrário fecha aplicação.

Agradeço desde já a atenção

Marco

Que erro está dando?

Qual a mensagem do erro?

Geralmente quando aparece alguém erro o Access mostra a mensagem de erro e se você clicar no botão depurar da mensagem, irá mostra a linha do código onde está o erro.
Poste o código usado com a linha onde está o erro selecinada.

Tua explicação ainda está um tanto confusa, ao menos para mim.
Lembrando que somente você conhece tua aplicação.
Você diz: "de acordo com o periodo estabelecido".
alerta deve surgir ao fim de 2, 5 e 10 anos

Em outro trecho:
manter a base de dados aberta se o dia=hoje caso contrário fecha aplicação.
O que é uma data fixa e não um período.

Por favor, explique melhor
No aguardo ...

O erro é o seguinte

A expressão introduzida não tem valor - RunTime error 2427

Referindo-se a esta expressão - If Me!Dia2.Value <> Me!Hoje.Value Then

Não sei se este é o método mais eficaz de criar um alerta, o que pretendo e que o formulário abra no dia programado, o facto de ter programado dia(do alerta)=hoje(data actual), é porque quando o dia do alerta for igual a 20 (20/03/2012) e o hoje (dia da data actual)=20 o alerta surgirá, este 20 corresponde a um periodo que vai desde as 00:00 até as 23:59 do dia 20.

Obrigado

Marco


Anexe parte do teu aplicativo, o formulário e a tabela em questão somente, para nos verificarmos.

Aguardado...

Em anexo a base de dados


Ao clicar no foimulário a base de dados fecha, terá que abrir em extrutura
o erro ocorre no alerta1

em anexo

Olá Balem


Conseguiste perceber o Aplicativo

Sim Marco

Consegui e estou tentando entender teu aplicativo.

Digo antecipadamente que o problema não está no código postado e sim
na consulta da origem de registro do formulário, pois a mesma não está retornando algum registro, por isso o erro no código.
Estou analisando para dizer mais.

Tambem acho que o problema é da consulta, como não existe registos para mostrar ocorreo erro, se verificares a consulta podes ver que filtrei propositadamente o mês para poder simular um mês sem registos.

Marco

Por favor, explique tua consulta, me diga exatamente o que deseja que ela retorne.
Acredito que tem alguns campos que talvez não sejam necessários.

Abraços

Bom dia

Balem

Apenas necessito do [código da obra];[Data Oficial Rec Provisoria];[prazo L G1] e ([Data Oficial Rec Provisoria]+[prazo L G1])

O objectivo é que o alerta mostre os referidos dados quando o data ([Data Oficial Rec Provisoria]+[prazo L G1])for igual a actual.

Existem mais dois campos que coloquei, de modo a conseguir fazer o filtro pois não encontrei solução melhor, voU tentar explicar os campos, criei o campo [mês]e filtrei igual ao actual, porque como a expressão que utilizei apenas mostra o dia= hoje, todos os meses têm os dias de 1 a 31, se nãocoloca-se o mes actual, apareceria o diAS por exemplo 2 de todos os meses.

O mesmo se sucede com o campo ano.

Obrigado

Olá Marco

Aqui está teu aplicativo modificado, espero que seja isso que esteja precisando.

Mudei a consulta do formulário, que agora são 2 consultas, uma dentro da outra.

A primeira consulta retorna as datas de prazo assim como o mês e ano para o preenchimento dos controles do teu formulário.
Como eu não posso colocar um critério em um campo que ainda não existe, como o prazo definitivo,tive que fazer uma outra consulta somente para filtrar os resultados para o mês e ano exibido no formulário.
Este campo da consulta:
Previsão rec definitiva: SomData("yyyy";[Prazo L G1];[Data Oficial Rec Provisoria])
retorna o prazo G1 + anos que irá resultar na soma de anos, permanecendo o dia e mês mudando somente o ano
Você pode usar o seguinte no lugar, caso queira:

Previsão rec definitiva: SomData("yyyy";[Prazo L G1]*365;[Data Oficial Rec Provisoria])

Deixo a teu critério.

Abraços

Desde já muito Obrigado

Vou analisar depois digo algo

Obrigado

Olá Balem

Já análisei e esta bom assim

Muito Obrigado

Que bom que acertamos

Valeu pelo retorno.

Boa sorte !!