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 .