Access - Suma Dias a una fecha

Hola gente..necesito su ayuda!

-Yo tengo una fecha base 15/01/08.
A esta fecha en un informe necesitaria generar otras fechas en donde el dia siempre sea el 10 y el mes y el año (si es necesario) cambien.
Es para poner una fecha de vencimiento.
Por ejemplo ...un cliente me compra un producto en cuotas el dia 15/01/08.
yo necesito imprimir cupones en donde figuren distintas fechas con vencimientos distintos.
los vencimiento son siempre los dias 10 de cada mes.
Entonces...
Cupon 1 ---- Fecha Venc. 10/02/08
Cupon 2 ---- Fecha Venc. 10/03/08
Cupon 3 ---- Fecha venc. 10/04/08
Etc

Como veran solo necesito que cambie el mes apartir de la fecha que compro(15/01/01).

Desde ya muchas Gracias.-
Facu.-

Hola Facundo:
No se sí habrá alguna función de fecha que valga para esto, sí alguien no te da otra forma de hacerlo, utiliza esto:

Dim Mes As Integer, Año As Integer

Mes = Month(CampoFecha)
Año = Year(CampoFecha)

Select Case Mes
Case 1 To 9, 12
If Mes = 12 Then Mes = 0: Año = Año + 1
Cupon1 = CDate("10/" & Mes + 1 & "/" & Año)
Cupon2 = CDate("10/" & Mes + 2 & "/" & Año)
Cupon3 = CDate("10/" & Mes + 3 & "/" & Año)
Case 10
Cupon1 = CDate("10/" & Mes + 1 & "/" & Año)
Cupon2 = CDate("10/" & Mes + 2 & "/" & Año)
Cupon3 = CDate("10/" & 1 & "/" & Año + 1)
Case 11
Cupon1 = CDate("10/" & Mes + 1 & "/" & Año)
Cupon2 = CDate("10/" & 1 & "/" & Año + 1)
Cupon3 = CDate("10/" & 2 & "/" & Año + 1)
End Select

Un Saludo

Para esto viene al pelo la función Dateserial:

Cupon1 = dateserial (Year(FechaCompra, Month(FechaCompra + 1, 10)

La gracia es es que no sólo pemite introducir los valores, de los parámetros, sino también operaciones. Por ejemplo, al poner Month(FechaCompra) +1, si es necesario, cambia el valore del año.

Saludos.
José Bengoechea Ibaceta

Jose..!!o alguien!!

Esta formula la tendria que copiar en el origen de control de Textbox? puede ser que falte algun parentesis?

= dateserial (Year(FechaCompra, Month(FechaCompra + 1, 10)

desde ya muchas gracias.-

Cupon1 = dateserial (Year(FechaCompra, Month(FechaCompra + 1, 10)))