El marcado del registro de una tabla de base de datos en Microsoft Access consiste en introducir una fecha elegida por el usuario en el registro. El usuario puede introducir la fecha con la mano o utilizar Visual Basic para aplicaciones para sellar automáticamente la fecha.
Instrucciones
1 Abra Microsoft Access y cree una base de datos de ejemplo 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" la partida de apoyo para exponer la "Eventos" icono de la tabla. Haga doble clic en el icono para abrir la tabla de eventos para la entrada de datos.
2 Introduzca dos filas de datos de ejemplo en la tabla de eventos utilizando el siguiente texto, que corresponde a los campos "Título", "Hora de inicio" y "Tiempo Final". No entrar en las comas, que muestran el lugar de presionar la tecla "Tab". No reemplace los campos> <fecha de hoy con las fechas de mañana y de.
Cortar la hierba, <fecha de hoy>, <fecha de mañana>
Pintar la casa, <fecha de hoy>, <fecha de mañana>
3 Comience la programación necesaria para estampar la hora de inicio de forma automática, creando primero un formulario en el que se ejecutará el programa: pulse "Crear> Formulario". Haga clic en la pestaña de la nueva forma "Evento" y seleccione "vista de diseño."
4 Pulse el botón "Habilitar contenido" botón en la barra de herramientas para permitir que las macros se ejecuten en esta base de datos.
5 Haga clic en el campo "Fecha Sello" y seleccionar "Propiedades", haga clic en la ficha "Evento" en la ventana "Hoja de propiedades". Haga clic en la flecha hacia abajo en la fila "En conseguida Focus" y seleccione "[Procedimiento de evento]." Haga clic en el botón con los puntos suspensivos, que se encuentra inmediatamente a la derecha de la flecha hacia abajo, para entrar en el entorno de Visual Basic desarrollo integrado (IDE).
6 Pegue el siguiente código de programa en la ventana de código del IDE:
Private Sub Start_Time_GotFocus ()
Dim x As Variant
Si (IsNull (Start_Time)) A continuación,
m = Month(Now())
d = Day(Now())
y = Year(Now())
x = m & "/" & d & "/" & y
Start_Time = x
Terminara si
End Sub
7 Volver a acceder pulsando "Alt-F11", a continuación, haga clic en la pestaña "Eventos" y seleccione "Vista formulario" para activar el formulario de entrada de datos.
8 Pestaña a través de todos los campos de cada registro de la muestra que ha introducido hasta que el "ID" campo muestra "(Nuevos)." Lengüeta hacia abajo a la "Hora de inicio" de campo y observar el efecto de la macro, que ha llenado en la Hora de inicio con la fecha actual.
9 Sello de fecha en el campo "Tiempo Final" por volver a entrar en el IDE y pegar el siguiente código debajo del código que ha introducido previamente:
Private Sub End_Time_GotFocus ()
"Cambiar el 1 en la siguiente declaración en el número deseado de días después de la fecha de inicio
tm = DateAdd ( "d", 1, Start_Time)
END_TIME = tm
End Sub
10 Vuelva a ejecutar el formulario, asegurándose de que el campo "Tiempo Final" muestra una fecha día después de que el campo "Hora de inicio".
Consejos y advertencias
- Ser consciente de la posibilidad de macros maliciosos que se ejecutan en bases de datos en el que se ha habilitado "contenido activo". Ejecutar el programa antivirus de dichas bases de datos antes de abrirlos en Access.