Access - Disminuir campo

Tengo un campo llamado acta dentro de un formulario.
Este me llama a la funcion ActaConsecutivo

Function ActaConsecutivo() As Double
' Extrae consecutivo para numero de Acta de la tabla ACTA

Dim BD As Database
Dim Consulta As QueryDef
Dim Respuesta As Double

Con = DLookup("[ACTA]", "ACTA")
Set BD = CurrentDb()
Texto = "UPDATE ACTA " & _
"SET [ACTA] = " & Str(Con + 1)
Set Consulta = BD.CreateQueryDef("", Texto)
Consulta.Execute
Consulta.Close

ActaConsecutivo = Con + 1
End Function

Que lo que hace es tomar el valor e incrementarlo en 1.

Este formulario tiene un boton de asignacion y uno de salida

Como hago para que si salen y no asignan reste 1 al campo acta

Yo utilizaría otro planteamiento: Pondría en la propiedad valor predeterminado del campo correspondiente del formulario algo así:

= 1 + DLookup("[ACTA]"; "ACTA")

De esa manera, al estar en la propiedad Valor Predeterminado, sólo se guarda el valor si se guarda el registro.

Saludos
José Bengoechea Ibaceta

Muchas gracias por tu colaboracion, pero al escribirlo asi en el campo me genera un error de sintaxis

Bueno el primer error ya quedo superado

Ahora en el campó lo que me saca es #¡NOMBRE? y por lo tanto no modifica ni almacena nada

No me había dado cuenta de que Acta parece un campo tipo texto. Entonces, prueba así:

= str(1 + val( DLookup("[ACTA]"; "ACTA") ))

Saludos
José Bengoechea Ibaceta

El campo es numerico, pero me funciona con este ultimo.

Si hace lo que tu me dices en el numero del acta pero no lo almacena en la tabla, es decir en la tabla sigue teniendo el numero anterior.