La programación en MS Access 2007

Saber programar en Microsoft Office Access 2007 puede ahorrar tiempo cuando se necesita para llevar a cabo tareas rutinarias como la creación de tablas y la adición de datos de forma manual. El acceso es un sistema de gestión de base de datos relacional de uso frecuente para las bases de datos locales más pequeños. Proporciona las herramientas para escribir Visual Basic para Aplicaciones (VBA) para automatizar los procesos manuales. VBA es un lenguaje de programación informática que ofrece Microsoft. En unos pocos pasos, se puede escribir código VBA para crear una tabla, agregar datos a la misma y mostrar su contenido a través de un control de cuadro de lista.

Instrucciones

1 Abra Microsoft Office Access 2007 y luego seleccione "Base de datos en blanco." Haga clic en "Crear".

2 Haga clic en la pestaña "Crear" y seleccionar "Diseño de formulario" para crear un nuevo formulario. Seleccione el control "botón" en el panel "Controles". Haga clic en el formulario y crear el nuevo botón mientras mantiene pulsado el botón izquierdo del ratón. Agregue un control "Cuadro de lista" a la forma de la misma manera que ha añadido el botón.

3 Haga clic en el control de cuadro de lista y seleccionar "Propiedades". En la "Hoja de propiedades", haga clic en la pestaña "Datos" y seleccione la casilla desplegable de "Tipo de origen de fila" y seleccione "Lista de valores".

4 Haga clic con el botón de nuevo y seleccione "Propiedades". En "Hoja de propiedades" en la pestaña "Eventos" y seleccione la casilla desplegable junto a "al hacer clic" y seleccionar "[Procedimiento de evento]." Haga clic en los puntos suspensivos (...); una nueva ventana de Visual Básico Microsoft abrirá en el que escribirá su código VBA.

5 Copiar y pegar el siguiente código dentro de su "Private Sub Command1_Click ()" subrutina para crear una tabla, agregar dos registros de datos, de bucle a través de los registros y mostrar los resultados en un control de cuadro de lista en su nueva forma.

Dim DBase Como Base de Datos

Dim recordSt Como conjunto de registros

Dim X As Integer

Dim como secuencia stringSQL

Dim como secuencia strgVar

Establecer DBase = CurrentDb

stringSQL = "CREATE TABLE newtable (TEXTO FirstName (25), Apellido TEXTO (25));"

DoCmd.RunSQL (stringSQL)

stringSQL = "INSERT INTO newtable ([Nombre], [Apellido])"

stringSQL = stringSQL y "VALUES ( 'John', 'Smith');"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (stringSQL)

stringSQL = "INSERT INTO newtable ([Nombre], [Apellido])"

stringSQL = stringSQL y "VALUES ( 'Jaime', 'Avelar');"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (stringSQL)

Establecer recordSt = DBase.OpenRecordset ( "newtable")

recordSt.MoveFirst

Para X = 0 Para recordSt.RecordCount - 1

strgVar = Trim(recordSt.Fields("LastName").Value) & " " & Trim(recordSt.Fields("FirstName").Value)

List0.AddItem strgVar

recordSt.MoveNext

Siguiente X