[Resolvido]Registro Data obrigatória em formulário

Boa tarde amigos do access, preciso de uma ajuda no desenvolvimento de receita / prescrição.
Preciso que ao clicar no botão vizualizar receita ele manda preencher a data obrigatória, não consegui com o código abaixo:

If IsNull (DataReceita) Or DataReceita.Value = "" Then
MsgBox "A data é obrigatória."
DataReceita.SetFocus
Exit Sub
End If

Ele vai  para o comando a seguir

DoCmd.openreport "Rlt_Receita, acNormal. . "Tbl_Receita.CódigoReceita=" & [Forms]![Fml_Paciente]![Fml_Receita]![CódigoReceita]

e manda depurar

srá pq a origem do formulário  ser uma consulta?
ou ja considera preenchido devido a mascara de entrada ou cor no campo?


https://www.dropbox.com/s/8vothn6vaxg2ulb/venceonco%20prescri%C3%A7%C3%A3o12.accdb?dl=0

Opa, boa tarde, tudo certo ?

Tente isto :

If IsNull(Forms!Fml_Paciente!Fml_Receita.Form![DataReceita]) Or Forms!Fml_Paciente!Fml_Receita.Form![DataReceita].Value = "" Then
MsgBox "A data é obrigatória."
Forms!Fml_Paciente!Fml_Receita.Form![DataReceita].SetFocus
Exit Sub
End If

Aproveitando apenas para deixar minha contribuição:

Código:



    With Form_Fml_Receita
        If IsNull(.DataReceita) Or Trim(.DataReceita) = Empty Then
            MsgBox "A Data da receita é obrigatória.", vbExclamation, "Aviso"
            Exit Sub
        End If
    End With




é isso

[]'s

FIM

Testei o cod. do Alexandre.
Show Alexandre Obrigado meu querido. show!!
Vou postar aqui, hoje a noite, o sistema renovado para quem desejar.