Cómo acceder a la programación de macros

Macros para el acceso de aplicaciones de bases de datos son programas que automatizan tareas como la búsqueda de registros o cerrar ventanas. Los usuarios de acceso 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 el acceso se especifica el objeto que desea llevar a cabo, por ejemplo, eliminar registros que cumplen determinados criterios. La creación de macros de acceso le permite realizar tareas de gestión de datos de su equipo de trabajo más rápido y con menos errores, comparado 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", a continuación, pulse "Alt" + "F11" para entrar en el entorno de desarrollo integrado de VBA, o IDE. Aquí vamos a crear macros que demuestran las operaciones de base de datos común de crear una tabla e insertar y recuperar datos de una tabla.

2 Haga clic en el comando "Módulo" del menú Insertar para hacer una nueva ventana para introducir el código de la macro. Pega el siguiente subrutina en la ventana. Esta subrutina crea una definición de consulta con la llamada a la función "CreateQueryDef". La consulta "crear la tabla" código define utiliza la misma sintaxis SQL disponible en cuadrícula de diseño de acceso. Los "dbase.QueryDefs (1) .Execute" Statement ejecuta la consulta de creación de tablas.

Public Sub createTable ()

Dim QDEF Como DAO.QueryDef

dBase tenue Como DAO.Database

s Dim como secuencia

Conjunto de dbase = CurrentDb

s = "crear KidsBooks mesa (texto bookname (50), texto Autor (50))"

Establecer QDEF = dbase.CreateQueryDef ( "qCreateTable", s)

dbase.QueryDefs (1) .Execute

End Sub

3 Haga clic en un comunicado, en el subprograma, a continuación, pulse la tecla "F5" para ejecutar "createTable." Pulse la tecla "Alt" + "F11" para volver a la interfaz de usuario de acceso estándar.

4 Cerrar y volver 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 su subrutina creado.

5 Pulse la tecla "Alt" + "F11" para volver a la subrutina en el IDE. Pega el siguiente nuevo subprograma en el marco del subprograma createTable. El sub addTableRow inserta una fila de datos en la tabla de su programa createTable hizo. Este nuevo programa funciona mediante la apertura de un objeto de conjunto de registros y llamar al método AddNew de ese objeto.

Public Sub addTableRow ()

dBase tenue Como DAO.Database

Dim primera medida DAO.Recordset

Conjunto de dbase = CurrentDb

Establecer primera dbase.OpenRecordset = ( "KidsBooks")

rst.AddNew

primero! bookname = "El mago de Oz"

primero! Autor = "Frank Baum"

rst.Update

End Sub

6 Ejecutar 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 abrir de nuevo la mesa y ver la nueva entrada de la libreta añadió su programa.

7 Pegar, en el IDE, el siguiente nuevo programa por debajo de los dos anteriores. Este programa mostrará todos los datos contenidos en la tabla KidsBooks. Este programa se abre un objeto RecordSet, al igual que el programa anterior. Esta vez, sin embargo, la función se llama MoveNext. Esta función mueve un índice interno a través de cada una de las filas de la tabla KidsBooks.

Public Sub showData ()

dBase tenue Como DAO.Database

Dim primera medida DAO.Recordset

Conjunto de dbase = CurrentDb

Establecer primera dbase.OpenRecordset = ( "KidsBooks")

s Dim como secuencia

Aunque no hacer rst.EOF

s = "Título del libro:" Y en primer lugar [BookName] & "Autor:".!! Y en primer lugar [Autor]

MsgBox (s)

rst.MoveNext

Lazo

rst.Close

dbase.Close

End Sub

8 Ejecutar el programa como se ejecutó los otros dos. El programa mostrará un cuadro de mensaje que muestra la entrada "mago de Oz".