Access - FUNCION;URGE GRACIAS

HOLA A TODOS, REALIZO LA SGTE. FUNCION PARA CALCULAR CUANDO VENCE LOS CHEQUES A PAGAR DE UNA FACTURA POR EJEMPLO
FECHA_VENCIMIENTO=CANTIDA DIAS + FECHA EMISION(TRAE LA FECHA DE EMISION DEL F.PRINCIPAL).
LA IDEA QUE EL CLIENTE INGRESE LA CANTIDAD DE DIAS Y SE SUME CON LA FECHA EMSION Y SALGA LA FECHA VENCIMIENTO DEL CHEQUE
OCUPO ESTA FUNCION
Function FVencimiento(cant_dia as integer, femision as date) as date
dim fecha as date
fecha = cant_dia + fecha_emision
FVencimiento=fecha
end function

El problema que tengo al sumar me salen fecha que no coinciden con lo sumado por ejemplo
fvencimiento = cantidad dias (9) + femsion 01-01-01
debiera salor FVencimineto = 10-01-01 y me salen otra fecha que nada que ver, ¿ Que podria estar pasando? Gracias por la Ayuda de antemano ECA

Ya revisaste que valor contiene fecha de emision, al momento de hacer
la operación ? a lo mejor la esta perdiendo o no tiene ningun valor, o podrias
tratar utilizando la funcion DateSerial()

Saludos

Gracia, tengo una opcion CHEQUE al presionar se abre este formulario y la fecha emsion la extrae automatico del F.Principal yo solo digito la cantidad de dia , no sera que al extraer automatico la fecha de emision del otro formulario no esta sumando, Gracias por tu ayuda

Puede ser, pero el error que tienes es porque, posiblemente no te esta extrayendo la
fecha del formulario principal, o posiblemente la operación la esta realizando en el
evento que no debe ser, te aconsejo que vayas al codigo y que le aplique unos
"brake points" al mismo, para así poder determinar que valor tiene que variable o
función a un tiempo determinado.

Saludos

Tienes una función llamada
DateAdd(interval, number, date)

Permite sumar/restar (sumando negativos), días, meses y años a una fechas.
Búscala en la ayuda.

Gracias por su cooperacion, pero me podrian mandar algun ejemplo como hacerlo, realmente no se que hacer.ECA GRacias de Antemano

function FechaVto(FechaEmision as date,dias as integer) as date
FechaVto=dateserial(year(FechaEmision),mounth(FechaVto),day(FechaVto)+dias)
end function