Conocer cómo utilizar Visual Basic en Access 2007 le puede dar una gran flexibilidad en el desarrollo de aplicaciones de bases de datos . Access 2007 le ofrece la posibilidad de mejorar su desarrollo que le da la capacidad de escribir código de Visual Basic para las formas y los controles que ha creado. Visual Basic es un lenguaje de programación creado por Microsoft y es fácil de usar. Usted puede programar con facilidad en la creación de informes de Visual Basic en una base de datos o realizar tareas manuales repetitivas. Instrucciones
1

Haga clic en la pestaña " Crear" en Access y seleccione " Diseño de formularios ". El programa creará un nuevo formulario. Seleccione el control "Button " en el panel " Controles " y mueva el ratón sobre el nuevo formulario. Haga clic izquierdo y crear el nuevo botón. Agregue un control " Cuadro de lista " a la forma de la misma manera que ha añadido el botón.

2 Haga clic en el cuadro de lista y seleccione "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 . "
3

Haga clic en en el nuevo botón y seleccione " Propiedades". En la " Hoja de propiedades ", haga clic en la ficha "Evento " y seleccione el menú desplegable en " El Click" y seleccione " [ Procedimiento de evento ] . " . Haga clic en los puntos suspensivos ( ... ) y se abrirá una nueva ventana de Microsoft Visual Basic
4

Escriba lo siguiente :

Dim dbs como base de datos

Dim Como primer Recordset

Dim X As Integer

strSQL As String Dim

LastFirst dévil como secuencia

para declarar variables que va a utilizar .

5

Tipo:

Set dbs = CurrentDb

para establecer la base de datos actual

Tipo: .

strSQL = " CREATE TABLE Tabla1 ( TEXTO nombre ( 25 ) , TEXTO Apellidos ( 25 )); ".

DoCmd.RunSQL ( strSQL )

para crear una nueva tabla en la base de datos llamada " Tabla1 "

6

Tipo:

strSQL = "INSERT INTO tabla1 ( [ Nombre] , [ Apellidos] ) "

strSQL = strSQL & " VALUES ( 'John ', ' Smith ' ) ; ".

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

para insertar la primera fila de datos
7

Tipo :

strSQL = "INSERT INTO tabla1 ( [ Nombre] , [ Apellidos] ) "

strSQL = strSQL & " VALUES ( ' Jaime ', ' Avelar '); "
< . p > DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

para insertar una segunda fila de datos
8

Tipo:

set rst = dbs.OpenRecordset ( " Tabla1" )

para establecer el conjunto de registros

Tipo: .

rst.MoveFirst

para X = 0 Para rst.RecordCount - 1

LastFirst = Trim ( . rst.Fields ( " Apellido" ) Value) & "" & Trim ( rst.Fields ( . " Nombre" ) Value)

List1.AddItem LastFirst

rst.MoveNext

Siguiente X

para recorrer los registros que acaba de crear y los muestra en el cuadro de lista en el formulario.
Página 9

Tipo:

MsgBox " has mostrado todos los registros en la Tabla 1 al cuadro de lista con éxito " , vbInformation

para mostrar un mensaje . Cambiar ventanas a Access 2007 y haga clic en "Ver" para ejecutar el formulario . Haga clic en el botón " Command0 " y aparecerá el control de cuadro de lista que muestra los nombres .