[Resolvido]Formulários

Olá gente!!! Será que alguém pode me ajudar...

Eu tenho um formulario chamado menu e outro agenda. E no formulário agenda tenho dois campos chamados data e compromisso. Porém eu preciso colocar uma caixa de mensagem no menu me avisando que na data atual tenho compromisso se acaso eu tiver, haja visto que no formulário agenda já contempla dessa caixa de mensagem. Já tentei colocando a caixa de compromisso no menu e inseri um evento que faz piscar uma caixa de mensagem se acaso tiver, no entanto, ela fica piscando direto por não atualizar a data do forms agenda com a data do forms menu.
Alguém pode me dá uma luz... Utilizo Access 2003.

Grata!!!

Olá norbs... Agradeço sua gentileza...
O formulário "menu" e a cabeça de tudo. É por ele que tenho acesso a consultas, cadastros, relatórios etc... No entanto, o foms agenda encontra-se fechada. Seria possível se coincidir algum compromisso do dia no forms agenda, a caixa de mensagem no forms "menu" ativasse mesmo estando fechada??

Olá

É possível, sim! Podemos usar a função DCount para contar as datas na tabela Agenda que coincidam com a data atual, e então exibir a mensagem na caixa de texto.

No evento Load do form Menu, coloque o código:

Private Sub Form_Load()
If Nz(DCount("[NomeDoCampoDataNaTabAgenda]", "[NomeDaTabAgenda]", "[NomeDoCampoDataNaTabAgenda]=Date"), 0) > 0 Then
Me.NomeDaTextBoxNoFormMenu = "Existem compromissos agendados para hoje!"
End If
End Sub

Dá pra melhorar, avisando quantos compromissos são:

Private Sub Form_Load()
Dim Contagem As Integer
Contagem = Nz(DCount("[NomeDoCampoDataNaTabAgenda]", "[NomeDaTabAgenda]", "[NomeDoCampoDataNaTabAgenda]=Date") ,0)
If Contagem = 0 Then
Me.NomeDaTextBoxNoFormMenu = "Não há compromissos agendados para hoje. Ainda bem!"
ElseIf Contagem > 0 Then
Me.NomeDaTextBoxNoFormMenu = "Há " & Contagem & " compromisso(s) agendado(s) para hoje! Ufa!"
End If
End Sub

Não testei, mas acho que é isso.

Olá norbs!!! Muito obrigado pela colaboração...

Funcionou certinho... Valeuuuuu...