Access - Fecha existente

Hola tengo un formulario que agrega la fecha en una tabla, lo que puse en el evento antes de actualizar fue


Lo que quiero que haga es que si la fecha esta emita un mensaje ya se ha cargado la fecha, sino ejecuta una consulta de anexar que toma la fecha del cuadro de texto y la agrega.
Pero me da error.

Podran decirme en que me estoy equivocando?
El campo fecha de la tabla tiene formato fecha.
Gracias.

Dimensionas una variable (dia As Variant) a la que no se le asigna valor y sin embargo se toma como ¿referente en un IF ?

Que la consulta abierta en modo edicion cumpla su cometido, dependera entre otros, de la SQL que intente ejecutar (y que se desconoce)

sin entrar a valorar nada más veo que pudiera existir un problema de sintaxis

"[Fecha]=#" & format(Me.FechaTxt.Value, "MM/DD/YYYY") ) & "#")) Then

si el campo de la tabla es date la fecha se pone entre #fecha# y despues el formato americano de fecha mes/dia/año

POR SI A ALGUIEN LE SIRVE .
CUAL USAR ? LO QUE MEJOR CONVENGA .
PERO ES BUENO SABER OTRAS ALTERNATIVAS

Funciones agregadas de dominio, DCont (DCount) , Dbúsq (Dlookup) ,Dprim ,Dsum, (Dfirst) y Dúltimo (Dlast)mDMín (Dmin) y Dmáx

se usan para sacar datos sencillos de las tablas

otra forma aunque en principio parece mas extensa pero tiene muchas mas aplicaciones y se pueden hacer muchas mas cosas es mediante ado y el lenguaje de busqueda estructurado SQL
---------------------------------
otra forma de buscar los datos con ADO



NOTA : PARA recorres el recordset
rs.move first - ir al primero
rs.move.last - ir al ultimo
rs.move.next - ir al siguiiente
rs.move.previous - ir al anterior

los datos estaran en
fecha1= RS.Fields("Fecha").Value
dato1= RS.Fields("otrodato1).Value
dato2= RS.Fields("otrodato2).Value

otra forma y el el orden en que se ponen en SELECT
fecha1= RS.Fields(0).Value
dato1= RS.Fields1).Value
dato2= RS.Fields(2).Value
--------------
con este procedimiento (SELECT)se pueden hacer multiples y complejas consultas , incluso agrupadas,
además podemos insertar datos con INSERT , borrar con DELETE , CREATE, TABLE crea tablas . UPDATE actualiza datos
http://www.1keydata.com/es/sql/sql-select.php


http://www.lawebdelprogramador.com/cursos/archivos/ManualPracticoSQL.pdf

Si todo consiste en conocer otros metodos (y a veces mejores), para las fechas propongo este metodo que funciona en cualquier configuracion regional:
En base a esto:
"[Fecha]=#" & format(Me.FechaTxt.Value, "MM/DD/YYYY") ) & "#")) Then

Esto:
Si se parte de un texto (clasica toma de datos independiente):
[Fecha]= " & CDbl(CDate(Me.FechaTxt)) Then

Y si el campo ya es una 'fecha Access'
[Fecha]= " & CDbl(Me.FechaTxt) Then