Criar caixa de mensagem com critério de data e campos em branco

Boa tarde.
Tenho um sistema de Chamados e gostaria de inserir uma caixa de mensagem toda vez que o usuário entrar e existir chamados com a caixa de opção (aquela que a gente marca um V) "nao_lida" desmarcada e de 15 dias atrás (campo de data "abertura_data").
Criei a tabela com o campo "Descrição" que é o pedido do chamado e é digitado pelo usuário em sua própria máquina através da rede, e o campo "Observações" que é usado pelo responsável que irá resolver o chamado. Ambos os campos estão na mesma tabela, portanto, não existe relacionamento (é um-pra-um). Ao ler o chamado, o responsável marca a caixinha "Lida".

Trabalhando em rede, o usuário lança o chamado e o responsável o lê no monitor e escreve uma observação e marca a caixinha "Lida".

Tentei esse código mas deu erro:

Private Sub Form_Open(Cancel As Integer)
If Me.Frm_MenuPrincipal!SubFrm_ChamadosTempoReal!nao_lida = "não" Then
msgbox "Existem chamados para ler ou analisar.", vbExclamation, "Aviso de Chamados não lidos"

End If
End Sub

Obrigado!

Tudo bom Julianovv?

Faça isso com uma tabela no servidor vinculada aos FrontEnds.

E nos mesmos FrontEnds coloque um form que insira uma nova mensagem nessa tabela.

Nos mesmos FrontEnds use Recordset no evento ao Abrir do Form Abertura contando se há mensagens para o usuário atual e se sim, abre-se o form Mensagem para o usuário fazer o que você descreveu.

Não aconselho fazer a verificação no Timer, vai atrapalahar o desempenho.

Oi Leandro, não consegui criar o código. O que fiz para não perder muito tempo foi criar um subformulário com uma consulta que me retornasse um aviso sobre a quantidade de chamados não lidos.
Resolveu mas não é o que procuro.
Segue uma imagem de como ficou.
Obrigado!

Acho que o problema no seu código, é que você está tentando ler os registros de um subFormulário, mas ele deve estar retornando apenas o primeiro registro.
Como você já criou um consulta que retorna se existem chamados "em aberto", você pode simplesmente verificar se existe algum registro nesta.

Private Sub Form_Open(Cancel As Integer)
If dCount("[nome_campo]","[nome_sua_consulta]") >0 Then
Msgbox "Existem chamados para ler ou analisar.", vbExclamation, "Aviso de Chamados não lidos"
End If
End Sub

Quando se trata de uma rotina que será repetida muitas vezes, não bom usar funções de domínio.
Julianovv, vamos ver seu projeto de perto, pode ser?
Mas antes quero saber, seu BD tem controle de usuários?
Amanhã não estarei "online", mas quinta-feira estamos na área.

Bom dia Leandro, desculpa não ter respondido antes. Essa questão consegui resolver não da forma que eu gostaria. Inseri uma expressão no formulário indicando quantos chamados ainda não foram lidos. Usei como base o campo de observações que o responsável digita o texto. Se estiver vazio, não foi lido.

="SÃO" & " " & (SeImed(Soma([Obs1])>0;(Soma([Obs1])) & " " & " CHAMADOS NÃO LIDOS.";""))

Desta forma, a quantidade de chamados não lidos é exibido no formulário na forma de uma mensagem.

Obrigado pelas dicas.