RE:insertar fecha automaticaticamente
1) Crea una Tabla : Tabla1 con los siguientes campos:
SwitchFecha Tipo : Sí/No
Fecha Tipo : Fecha/Hora
2) Crea un Formulario : Formulario1 con Asistente para Formularios basado en la Tabla1, pasa todos los campos y siguiente>>
3) Elige en ¿Que distribución desdea aplicar al formulario? la opción Hoja de Datos... y llega hasta el final. De esta manera haces un formulario que se ve como Tabla.
4) Luego pasa a Vista Diseño, ahí se ve como formulario, ahí se programa lo que tu quieres. Selecciona el control Sí/No que es del tipo casilla de verificación y despliega sus propiedades. (botón derecho del mouse)
5) En la propiedad de evento Después de actualizar, selecciona Procedimiento de Evento y genera el programa, clic en los (...), desde aquí pasas a Visual Basic y escribes lo siguiente :
Private Sub SwitchFecha _AfterUpdate()
If SwitchFecha.Value = 0 Then
Fecha.Value = Null
ElseIf SwitchFecha.Value = -1 Then
Fecha.Value = Date
End If
End Sub
Nota: Una casilla de verificación cuando esta en blanco vale 0, cuando está marcada vale -1
Si la casilla (SwitchFecha) es 0 entonces le asigno nulo a la Fecha, sino le asigno la fecha del ordenador (Date)
Un saludo