Fecha

[SuRpRiSe18]

estoy trabajando sobre access... y tengo un formulario con el evento afterupdate y en el evento iria el codigo el cual diria algo asi... (el codigo es lo q no me termina de salir)

dim contador as integer

contador =docunt("[Comisión]","Provisión","[Comisión]=Forms!Delegados![Comisión]")

If contador > 0 then
me.fecha=31/12/añoanterior
elseif contador = 0 then
me.fecha=date
end if

espero q te sirva..