Cómo hasta la fecha del sello de un registro en Access

Estampación el registro de una tabla de base de datos en Microsoft Access supone introducir una fecha elegida por el usuario en el registro . El usuario puede introducir la fecha en la mano o con Visual Basic para Aplicaciones para estampar automáticamente la fecha . Cosas que necesitará
Microsoft Access
Ver Más instrucciones
1

Abra Microsoft Access y crear una base de datos de muestra haciendo clic en "Archivo > Nuevo> Plantillas de ejemplo > Eventos " y luego en el botón " Crear". Haga clic en el " Panel de navegación " en la parte izquierda de la pantalla, a continuación, los " objetos que apoyan " la partida para exponer la " Agenda " icono de la tabla . Haga doble clic en ese icono para abrir la tabla de eventos de entrada de datos.
2

Ingrese dos filas de datos de ejemplo en la tabla de eventos con el texto siguiente , que corresponde a los campos " Título ", " Hora de inicio "y" Tiempo final ". No entre las comas, que le muestran dónde pulse la tecla "Tab" . No reemplace los campos con hoy y fechas de mañana.

Cortar el césped, , Pintar la casa, ,
3

Comienza la programación necesaria para acabar con la hora de inicio de forma automática, creando primero un formulario en el que se ejecutará el programa : pulse " Crear> Form ". Haga clic en la ficha de la nueva forma "Event " y seleccione " Vista Diseño ".
4

Pulse el botón " Habilitar contenido " en la barra de herramientas para permitir la ejecución de macros en esta base de datos.
5

Haga clic en el campo " sello de la fecha" y seleccionar "Propiedades ", haga clic en la ficha "Evento " en la ventana " Hoja de propiedades " . Haga clic en la flecha hacia abajo en el "On Got Focus" fila y seleccione " [Procedimiento de evento] . " Haga clic en el botón con los puntos suspensivos , que se encuentra justo a la derecha de la flecha hacia abajo , para entrar en el entorno de desarrollo integrado de Visual Basic ( IDE).
6

Pega el siguiente código de programa en el código del IDE ventana:

Private Sub Start_Time_GotFocus () Dim x Como VariantIf ( IsNull ( Start_Time ) ) thenm = Mes ( Ahora ()) d = día ( Now ( ) ) y = Año ( Ahora ()) x = m & " /" & d & " /" & yStart_Time = xend IfEnd Sub
7

Volver al acceso con la tecla " alt - f11 ", a continuación, haga clic en la pestaña " Eventos " y seleccione " formulario View " para activar el formulario para la entrada de datos.
8

Tab a través de todos los campos de cada registro de la muestra que ha introducido hasta el" id "muestra de campo " ( Nuevo) . " Tab hasta el campo " Start time" y note el efecto de la macro, que ha llenado en la hora de inicio con la fecha actual .
9

Sello de fecha en el campo " Hora de finalización " de re - entrar en el IDE y pegar el siguiente código debajo del código que ha introducido previamente :

Private Sub End_Time_GotFocus () ' Cambia el 1 en la siguiente declaración en el número deseado de días después del comienzo datetm = DateAdd ("d " , 1 , Start_Time ) End_Time = tmEnd Sub
10

Vuelva a ejecutar el formulario , asegurándose de que el campo " hora de finalización " muestra una fecha un día después del campo " hora de inicio " .