Macros de aplicación de base de datos de acceso son programas que automatizan tareas como la búsqueda de registros o cerrar ventanas. Acceso usuarios pueden desarrollar estos programas utilizando el Visual Basic para Aplicaciones o VBA , entorno de desarrollo. Un paso clave en la creación de macros para Access es especificar el objeto que desea lograr, por ejemplo, eliminar los registros que cumplan ciertos criterios. Creación de macros de acceso le permite realizar tareas de gestión de los datos de su equipo de trabajo más rápido y con menos errores que con los métodos manuales. Instrucciones
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" .