1
Open Access y crear una nueva base de datos con la tecla " Ctrl " + "N. " Haga clic en "Base de datos en blanco ", y luego pulse " Alt " + "F11 " para entrar en el entorno de desarrollo integrado VBA o IDE. Aquí vamos a crear macros que muestran las operaciones de bases de datos comunes de creación de una tabla y la inserción y de extracción de datos de una tabla .
2
clic en el comando " Módulo " del menú Insertar para abrir una nueva ventana para la introducción de el código de la macro. Pega el siguiente subrutina en la ventana . Esta subrutina crea una definición de la consulta con la llamada a la función " CreateQueryDef " . La consulta " create table ", el código define utiliza la misma sintaxis SQL disponible en cuadrícula de diseño de acceso . La declaración " dbase.QueryDefs ( 1 ) . Ejecutar " se ejecuta la consulta de creación de tablas .
Public Sub crearTabla ()
QDEF As DAO.QueryDef
Dim dbase Como DAO.Database
s As String Dim
Set dbase = CurrentDb
s = " crear Kidsbooks tablas ( texto bookname ( 50 ) , texto de Autor ( 50 ) ) "
Set QDEF = dbase.CreateQueryDef ( " qCreateTable " , s )
dbase.QueryDefs
( 1 ) . Ejecutar
End Sub
3
clic una declaración en la subrutina , a continuación, pulse la tecla "F5 " para ejecutar " crearTabla . " Pulse la tecla " Alt " + "F11 " para volver a la interfaz de usuario de acceso estándar.
4
Cierre y vuelva a abrir el panel de navegación , haga clic en los iconos de flecha de la barra de título . El panel mostrará la tabla Kidsbooks la subrutina creada .
5
Pulse " Alt " + "F11 " para volver a la subrutina en el IDE. Pegue la nueva subrutina siguiente en la subrutina crearTabla . Los addTableRow sub inserta una fila de datos en la tabla de su programa crearTabla hicieron . Este nuevo programa funciona mediante la apertura de un objeto RecordSet y llamar al método AddNew del objeto.
Public Sub addTableRow ()
Dim dbase Como DAO.Database
primer As DAO.Recordset
Set dbase = CurrentDb
Set rst = dbase.OpenRecordset ( " Kidsbooks " )
rst.AddNew
primera ! bookname = " el mago de Oz "
primera ! Autor =" Frank Baum "
rst.Update
End Sub
6
Ejecute el nuevo programa como lo hizo la anterior . Volver a Access , a continuación, cierre la tabla Kidsbooks , haga clic en su ficha y haciendo clic en "Cerrar". Haga doble clic en " Kidsbooks " en el panel de navegación para volver a abrir la mesa y ver la nueva entrada de libreta de su programa agregaron.
7
Pegar, en el IDE , el nuevo programa siguiente a continuación de los dos anteriores . Este programa mostrará todos los datos contenidos en la tabla Kidsbooks . Este programa abre un objeto RecordSet , al igual que el programa anterior. Esta vez , sin embargo , se llama la función MoveNext . Esta función mueve un índice interno a través de cada una de las filas de la tabla Kidsbooks .
Public Sub showData ()
Dim dbase Como DAO.Database
primer As DAO. Recordset
Set dbase = CurrentDb
Set rst = dbase.OpenRecordset ( " Kidsbooks " )
s As String Dim
Do While Not rst.EOF
s = " título del libro :" & rst [ BookName ] & " Autor : ". ! y primera [ Autor ]
MsgBox ( s )
rst.MoveNext !
Loop
rst.Close
dbase.Close
End Sub
8
Ejecute el programa se ejecutó el otros dos. El programa mostrará un cuadro de mensaje que muestra la entrada del "Mago de Oz" .