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 agregar datos manualmente. 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 ofrecido por Microsoft . En unos pocos pasos, puede escribir código VBA para crear una tabla , agregar datos y mostrar su contenido a través de un control de cuadro de lista. Instrucciones
1

Abra Microsoft Office Access 2007 y, a continuación , seleccione "Base de datos en blanco . " Haga clic en " Crear".
2

clic en la pestaña "Crear " y seleccionar " Diseño de formularios " para crear un nuevo formulario . Seleccione el control "Button " 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 ficha "Datos" y seleccione la casilla desplegable de " Row Tipo Fuente " y seleccione " Lista de valores ".

4 Haga clic en el botón de nuevo y seleccionar " Propiedades". En " Hoja de propiedades " haga clic en la pestaña " Eventos" y seleccione el menú desplegable junto a " El Click" y seleccione " [ Procedimiento de evento ] . " Haga clic en los puntos suspensivos ( ... ) , una nueva ventana de Microsoft Visual Basic se abrirá donde usted va a escribir el código VBA
5

Copia y pega el siguiente código dentro de su " Private Sub Command1_Click ()". subrutina para crear una tabla , agregar dos registros de datos , 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

recordSt As Recordset

Dim x As Integer

stringSQL dévil como secuencia

strgVar dévil como secuencia

Set DBase = CurrentDb

stringSQL = " CREATE TABLA newtable ( TEXTO Nombre ( 25 ) , TEXTO Apellidos ( 25 )); "

DoCmd.RunSQL ( stringSQL )

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

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( stringSQL )
< p> stringSQL = " INSERT INTO newtable ( [ Nombre] , [ Apellidos] )"

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

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( stringSQL )

Set recordSt = DBase.OpenRecordset ( " newtable " )

recordSt.MoveFirst

Para X = 0 a recordSt.RecordCount - 1

strgVar = Trim ( . recordSt.Fields ( " Apellido" ) Value) & "" & Trim ( recordSt.Fields ( . " Nombre" ) Value)

List0 . AddItem strgVar

recordSt.MoveNext

Siguiente X