[Resolvido]Verificar se um campo data já contem um valor e exibir mensagem.

Saudações!

Estou tentando adaptar aquele código que o amigo Piloto me passou para uma outra rotina. Seria verificar se uma tabela tb_guia_assistencia_medica já existe uma data preenchida no campo dt_baxia, caso existe o sistema apresenta uma mensagem, se não existir move o foco para outro campo. Acontece que utilizei o is notnull e também o is null mas e "" mas o sistema sempre deixa passar mesmo que já exista uma data lançada. Qual o critério de comparação que devo usar para realmente identificar que têm algo lançado no campo e apresentar a mensagem?
Destaquei em vermelho a parte do código que estou tendo problemas.


Private Sub Combinação209_AfterUpdate()
On Error Resume Next
Dim rs As DAO.Recordset
Set rs = Me.Recordset.Clone
rs.FindFirst "[nr_guia] = " & Str(Nz(Me![Combinação209], 1))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

dt_emissao.visible = True
Guia_Baixada.visible = True
Titulo.visible = True
dt_baixa.visible = True
ValorProcedimento.visible = True
Tipo_Guia.visible = True

'---------------------------------------------------------------------------------------------------------------------------------

'On Error GoTo trataerro

Dim strsql As String

strsql = "Select * From tb_guia_assistencia_medica WHERE Titutlo = '" & Me.Combinação209.Column(1) & "'"
Set rs = CurrentDb.OpenRecordset(strsql)
rs.MoveFirst: rs.MoveLast
Do While Not rs.EOF

‘Verifica se o campo dt_baixa têm uma data lançada
If dt_baixa Is Null Then
dt_baixa.SetFocus

‘caso já tenha apresenta a mensagem
Else
MsgBox " Esta guia já foi baixada! " & rs!dt_baixa

Exit Sub

End If
rs.MoveNext
Loop
'Cancela a ação
DoCmd.CancelEvent
Exit Sub
End Sub

A sintaxe correta é IsNull(Me.NomeDoCampo)

Obrigado criquio a orientação resolveu!
Williams.

Grato pelo retorno. O fórum agradece.