15/04/2008, 05:01
|
 | | | Fecha de Ingreso: agosto-2007
Mensajes: 1.338
Antigüedad: 17 años, 4 meses Puntos: 18 | |
| Re: fechas
Vamos a ver si antes de hecr la aisgnacion los datos son correctos:
Esto es lo que tu has puesto:
Private Sub Años_AfterUpdate()
Me.fecha = DateSerial(Me.dia, Me.Meses, Me.Años)
End Sub
Y esto lo que te puse yo.
Me.CuadroTextoFecha = DateSerial(Me.CmbAño, Me.CmbMes, Me.CmbDia)
El año primero y el dia al final. Prueba a ver si asi funciona.
un saludo |