Access - Duda absurda URGE

Tengo un problema, aunque es más un despiste.

Tengo un formulario para introducir datos. El primer dato es un campo indexado y no duplicado.

Al introducir el dato, necesito que me indique si ya existe o no.
En la actualidad me deja rellenar todos los datos, pero al validar, me indica que no puede ser dado que ya existe ese dato.
Saludos

La tabla se llama PETICIONES. Tiene un campo clave autonumérico, y un campo llamado PETICION.

Este campo (PETICION) es el que introduzco y me debe indicar si existe. Si existe, me debe dar los datos, y si no existe, me debe dejar introducir datos.

Saludos y gracias

Hola
Para hacer lo que quieres es necesario que en el evento before_update del campo PETICION, añadas un codigo que te permite buscar si ese registros existe. Te doy un ejemplo sencillo
private sub CAMPOTXT_PETICION_beforeUpdate(Cancel as boolean)
dim sql as string
dim R as recordset
'Si el campo es numerico. Para cadena de caracteres debes
'colocarlo entre comillas simples
sql="SELECT PETICION FROM PETICIONES WHERE PETICION=" & CAMPOTXT_PETICION
'CAMPOTXT_PETICION es el control TEXTBOX del formulario

set R = dbengine(0)(0).openrecordset(sql,dbopensnapshot)
if not(R.bof and R.eof) then
'El regitro exsiste
Cancel=true 'Cancela la actualizacion del campo y
'obliga al usuario a cambiarlo
else
'El regitro no existe
end if

end sub

Hola
Existe otra posibilidad en la misma direccion:
dim sql as string
dim R as recordset
sql="SELECT PETICION FROM PETICIONES WHERE PETICION=' " & Me!CAMPOTXT & " ' "
(doy por supuesto que si es campo texto)
Me: es el formulario activo
set R=Currentdb.openrecordset(sql)
If R.RecordCount > 0 ' existe el campo con ese valor
Me.Undo
end if
Victoria

Al introducir tu instrucción en Afterupdate, me dice que después del IF falta un then o goto.

Perdona mi ignorancia.

Saludos

Victoria Tu intención es buena, pero el código tienes algunas falencias que te explicaré.
1. Si como resultado de la consulta, no hay registros, la llamada a la propiedad RecordCount, te genera automaticamente un error.
2. Un pequeño error que hace que no funcione tu código, te faltó el THEN:
If R.RecordCount > 0 THEN ' existe el campo con ese valor
Me.Undo
end if
3. Para que la propiedad recordCount tenga el valor adecuado, hay que moverse al utimo registro.
R.MoveLast
'Ahora si funciona adecuadamente el RecordCount
R.movefirst

Gracias por el interés, pero no me chuta.

Me dices que CAMPOTXT_PETICION es el control TEXTBOX del formulario. No tengo un campo que actualice la base, sino que trabajo sobre la base directamente siendo el campo PETICION.