[Resolvido]Evento em calendario

Pretendia que ao inserir um registo no Memo (txtNotas):

1.º verificasse na tabela EVENTOS se tem algo escrito no campo EventoNotas onde EventoData = campo TxtData no form_Inicial.

2.º se SIM: (MsgBox)pergunta se pretendo actualizar/editar o campo EventoNotas onde EventoData = campo TxtData no form_Inicial.

3.º Se NÂO: (MsgBox)pergunta se desejo inserir novo evento no campo EventoNotas onde EventoData = campo TxtData no form_Inicial.

Realizei o procedimento mas, por algo que eu não consigo descobrir, não faz nenhuma das opções acima descritas...

junto ficheiro em MSAcess2007.
Deste já um obrigado se me puderem dar uma mão.

Bom dia
Parece que o problema estava no complicar
Assim resolvi desta maneira no botão click alterei para

Private Sub btnDados_Click()
Dim db As DAO.Database
Dim tblEventos As DAO.Recordset
Dim checkvalor As Variant

Set db = CurrentDb
checkvalor = DLookup("EventoData", "EVENTOS", "EventoData = #" & Me.txtData & "#")

If IsNull(checkvalor) Then
'Insere os dados na tabela EVENTOS
Set tblEventos = db.OpenRecordset("EVENTOS") 'Abre a tabela EVENTOS para inserir o registo
tblEventos.AddNew
tblEventos!EventoData = Me.txtData
tblEventos!EventoNotas = Me.txtNotas
tblEventos.Update 'envia os dados para a tabela
tblEventos.Close 'Limpa os dados e fecha o recordset
Set db = Nothing
Else
If MsgBox("Confirma alteração do evento?", vbYesNo + vbQuestion, "Actualizar Evento!") = vbYes Then 'Pede confirmação para actualizar.
Call CurrentDb.Execute _
("UPDATE EVENTOS SET EventoNotas = '" & Me.txtNotas & "' WHERE EventoData = #" & Me.txtData & "#", dbSeeChanges)

End If

End If

Me.Recalc

End Sub

cumprimentos a todos