[Resolvido]Verificar, automaticamente, os compromissos agendados para o dia

Pessoal, preciso realizar o seguinte procedimento:

Ao abrir o meu sistema quero verificar se existe algum compromisso agendado para o dia, caso positivo deverá ser aberto formulário apresentando o(s) compromisso(s).

Nome da consulta onde verifico se há compromisso(s): conCompromissoDiário
Nome do campo da consulta que indica as datas agendadas: AppointmentDate
Nome do formulário que deve ser aberto se houver compromisso(s) no dia: frmCompromissoDiário

Estou tentando assim:

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("conCompromissoDiário", dbOpenDynaset)

rs.FindFirst "[AppointmentDate]='" & Date
If rs.NoMatch Then
MsgBox "Alerta: Não há compromisso(s) marcado(s) para hoje.", vbCritical, "Atenção!"

Else

MsgBox " Verifique o(s) compromisso(s) marcado(s) para hoje. ", vbCritical, "Atenção"
DoCmd.OpenForm "frmCompromissoDiário", acNormal

End If

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

Ao executar o procedimento está dando erro de sintaxe. Vocês podem me ajudar?

Boa tarde,

O erro provavelmente está no trecho destacado:

rs.FindFirst "[AppointmentDate]='" & Date

Para campos tipo Data você deve utilizar tralhas (#) ao invés de apóstrofe ('), estes só são utilizados caso o campo seja de texto. Tente colocar:

rs.FindFirst "[AppointmentDate]=#" & Date

Porém eu ainda optaria pelo mais simples e que diminuiria consideravelmente as linhas de código:

Código:

If DCount("AppointmentDate", "conCompromissoDiário", "AppointmentDate = #" & Date & "#") > 0 then
    'Procedimento se houverem compromissos
Else
    'Procedimento caso não hajam compromissos
End if

Abraço.

Boa tarde, Cassio.

Utilizei as tralhas no meu código e continuou apresentando erro de sintaxe. Porém, resolvi o problema com a sua sugestão de código.

Obrigado pela ajuda.

Valeu!!!

Ops! Já ia esquecendo de indicar o tópico como resolvido.

Boa tarde,

O fórum agradece o retorno.

Abraço.