Access - Fechas

Saludos ...
mi problema es el siguiente estoy realizaodo una aplicaciòn en donde en un formaularo que maneja el tratamiento de unos pacientes lleva el contro de las fechas se hace de dos formas 1º seleccionando un mes desde un cuadro combinado o de selecciòn, 2º tipiandola con el formato de fecha cortrta. "00/00/0000" . pero ahora requiero que al yo seleccionar el una fecha del cuadro combinado del mes en la cuadro de texto de fecha corta se me actulize el mes que seleccione pero con fecha ultimo de cada mes.ocea que selecione Enero por ejemplo se actualize 31/01/2002.. AYUDA POR FAVOR Y GRACIAS DE ANTE MANO

Facil Compañero

Function LastDayOfMonth(ByVal nMonth As Integer) As Date

Dim nDay(1 To 12) As Integer
Dim nI As Integer

If nMonth < 1 Or nMonth > 12 Then Exit Function

For nI = 1 To 12
Select Case nI
Case 1, 3, 5, 7, 8, 10, 12
nDay(nI) = 31
Case 2
nDay(nI) = 28
If (Year(Date) Mod 4) = 0 Then
nDay(nI) = 29
End If
Case 4, 6, 9, 11
nDay(nI) = 30
End Select
Next
LastDayOfMonth = CDate(nDay(nMonth) & "-" & nMonth & "-" & Year(Date))
End Function

la implementarias asi

ME.FECHA_CORTA = LastDayOfMonth(Me.MES_SELECCIONADO)

Espero que te sirva
Saludos