[Resolvido]Formulário verificar registro em tabela

Bom dia Pessoal!
Faz pouco tempo que comecei a usar o Access e desde então sigo suas orientações, então decidi fazer parte deste excelente fórum.
Me desculpem se a pergunta que faço já foi respondida, pois não consegui encontrar utilizando a Busca. Inseri no meu BD (para a empresa que trabalho) a opção de mensagens entre os usuários: Criei uma tabela com os campos data/remente/destinatário/assunto/mensagem/Lido. Tenho dois formulários, um para ler as mensagens e outro para escrever. Quando o usuário escreve uma mensagem o campo Lido será igual a 0. Depois que o destinatário ler a mensagem o campo Lido será igual a 1.
Até ai tudo bem pessoal. A minha dúvida é esta: Tenho um formulário principal que é aberto logo que a pessoa faz seu login. Eu gostaria que este formulário verificasse os registros da tabela de mensagens, para que se o usuário atual tiver alguma mensagem não lida (campo Lido da tabela = 0) apareça uma mensagem: "voce possui nova mesagem!" Não estou conseguindo fazer essa verificação. Espero ter sido claro pessoal. Obrigado desde já pela atenção.

Olá, seja bem vindo ao fórum!

Supondo que você tenha um campo no formulário com o nome do usuário, pode tentar assim, no evento "Ao carregar" ou outro que melhor convier:

Código:

If DCount("*", "NomeDaTabela", "CampoUsuárioDaTabela='" & Me.CampoUsuárioDoForm & '" And CampoLidoDaTabela=0") > 1 Then
    MsgBox "Mensagens não lidas", vbInformation, "Atenção"
End If

Vos experimentar já falo se consegui

Acho que fiz alguma alteração errada. Olhe por gentileza como ficou, aparece a mensagem: era esperado uma expressão e focaliza a segunda aspas simples.
Recado: Tabela de recados
Destinatário: Campo da tabela com o nome do destinatário
Usuário: Campo do formulário principal que mostra o usuário atual


If DCount("*", "Recado", "Destinatário='" & Me.Usuário & '" And Lido=0") > 1 Then

Obrigado mais uma vez! nota10!

criquio.......Muito Obrigado Cara!!! NEm acredito que funcionou, eu consegui acertar aqui com sua dica, parabéns cara, bem bolado.
Ficou assim o código:

Private Sub Form_Load()
Intx = DCount("*", "Recado", "[Destinatário] = '" & Me.Usuário & "' And [Lido] = 0")
If Intx > 0 Then
If Intx = 1 Then
MsgBox "Você Possui 1 Mensagem", vbInformation, "MDI_Recados"
Else: MsgBox "Você Possui " & Intx & " Mensagens", vbInformation, "MDI_Recados"
End If
End If
End Sub

Eu ainda não tinha usado a função DCount, você nem imagina como isso abriu minha mente para fazer outras funções, Muito obrigado!