La programación de Microsoft Access con Visual Basic

Microsoft Access es el programa de base de datos en la suite de Microsoft Office. Los desarrolladores personalizar esta suite escribiendo programas en su lenguaje de programación, Visual Basic para Aplicaciones (VBA). Programación de acceso implica el uso de VBA para crear y manipular objetos de base de datos, incluidos los informes, tablas, consultas y formularios de entrada de datos. Por ejemplo, VBA puede rellenar automáticamente el campo "género" en un formulario para introducir información suscriptor de la revista, cuando la persona que utiliza el formulario entra nombres comunes en el campo "nombre". Programación Access le da la posibilidad de realizar tareas de entrada de datos y recuperación más fácil para los usuarios de su equipo.

Instrucciones

1 El acceso abierto y pulse "Alt-F11" para entrar en el entorno de codificación (llamada la "IDE" para "entorno de desarrollo integrado") para el acceso.

2 Haga clic en punto "Módulo" del menú "Insertar" para crear una nueva ventana para introducir el código.

3 Pegar en la ventana de código el siguiente código de programa, que crea una tabla con VBA:

Sub makeATable ()

Dim db Como base de datos, la TD en TableDef, f Como Campo

Set db = CurrentDb

Establecer TBL = dbs.CreateTableDef ( "UserInfo")

Conjunto FLD = tbl.CreateField ( "Nombre", dbText)

f tbl.Fields.Append

tb dbs.TableDefs.Append

'dbs.TableDefs.Refresh

End Sub

4 Ejecutar el programa haciendo clic en cualquier declaración en ella y pulsando la tecla "F5".

5 Pulse la tecla "Alt-F11" para volver a la interfaz principal de acceso, a continuación, haga clic en el botón "<<" del panel de navegación, a continuación, en el botón ">>". Verás una nueva tabla creada por su programa. Más información sobre cómo crear tablas con VBA en la página de MSDN "Crear y eliminar tablas" página.

6 Escribe unas primeras nombres de las muestras de la nueva tabla para proporcionar datos para la consulta de VBA que creará a continuación.

7 Pulse la tecla "Alt-F11" para volver al entorno de codificación y pegar esta nueva sub-rutina debajo del primero que escribió:

Public Sub makeQuery ()

Dim db Como DAO.Database

qd tenue Como DAO.QueryDef

Dim str As String

Set db = CurrentDb

On Error GoTo DontDelete

db.QueryDefs.Delete "QUSER"

DontDelete:

str = "SELECT * FROM UserInfo;"

Conjunto qd = db.CreateQueryDef ( "QUSER", str)

End Sub

8 Ejecute el nuevo sub-rutina como lo hizo el primero, y luego volver a Access y buscar la nueva consulta el código creado. Se llama "QUSER."

9 Haga doble clic en "QUSER" para ejecutar la consulta. El acceso mostrará todos los nombres que ha entrado en la tabla "UserInfo".

10 Crear un informe haciendo clic en el elemento "UserInfo" en el panel de navegación, haga clic en "Informe" en la barra de herramientas. Que voy a escribir un programa VBA que filtra el informe para un valor específico que ha introducido en el paso 6.

11 Haga clic en la pestaña del nuevo informe y seleccione "vista de diseño." Haga clic en la flecha que apunta hacia abajo en el evento "On Load" de la pestaña de "eventos" del informe de la derecha pantalla. Esta acción se vuelve a la IDE de VBA.

12 Pegue el siguiente código en el IDE. Reemplazar el texto "<ENTER valor de una determinada fila>" con cualquier valor particular que ha introducido en el paso 6.

Private Sub Report_Load ()

Me.Filter = "firstName =" "<ENTER valor de una determinada fila>" ""

Me.FilterOn = True

End Sub

13 Ejecutar el informe con la tecla "Alt-F11" para volver a Access, haga clic en la pestaña del informe y seleccionando la opción "Ver informe". El acceso mostrará el informe, el cual mostrará sólo el registro que ha escrito para el filtro en el paso 12. Leer más sobre el uso de VBA con informes en la página Informes de acceso.