1
Inicio Microsoft Office Access 2007 , seleccione "Base de datos en blanco ", y luego haga clic en " Crear".
2
Seleccione la pestaña "Crear " y seleccionar " Diseño de formularios "para crear un nuevo formulario. Haga clic en " botón" en los " controles ", luego haga clic izquierdo del formulario y arrastre para crear un nuevo botón .
3
Haga clic en " Command0 " y seleccionar " Propiedades". Haga clic en la ficha " Evento " y seleccione " [ Procedimiento de evento ]" junto a " On Click. " Haga clic en los puntos suspensivos ( ... ) para abrir la ventana " Microsoft Visual Basic " . Pulse la tecla "Ctrl " y "A" y luego en " Eliminar " para eliminar el código existente.
4
Copia y pega el siguiente código en el módulo. Este código se creará una nueva tabla con un tipo de datos de campo "Fecha" y añadir la fecha de hoy a la misma.
Opción
Compare Database
Private Sub Command0_Click ()
TodayDate Dim As String
TodayDate = Ahora
sqlstr = " CREATE TABLE dateTable ( TodaysDate fecha) ; "
DoCmd.RunSQL ( sqlstr )
sqlstr = " INSERT INTO dateTable ( [ TodaysDate ] ) "
sqlstr = sqlstr &" VALUES ( '"& ( TodayDate ) &" '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr )
End Sub
5
Cerrar la ventana " Microsoft Visual Basic " y haga clic en " Form1 ". Seleccione " Vista formulario . " Haga clic en " Command0 " para ejecutar el código.