1
Haga clic en " Herramientas de base de datos " y haga clic en "Visual Basic " para abrir el editor de Microsoft Visual Basic . Haga clic en el menú " Insertar" y haga clic en " módulos" para añadir un nuevo módulo de código . Crear una nueva subprocedimiento añadiendo el siguiente código: Private Sub
populateField ()
2
Crear las variables que va a utilizar para crear una nueva tabla y rellenar un campo :
Dim dbs como base de datos
rst As Recordset
rowCntr As Integer
fNames Dim ( 10 ) As String
Set dbs = CurrentDb
3
Rellenar la matriz de cadenas con los datos :
fNames
( 0 ) = " John "
fNames ( 1 ) = " Kitzia "
fNames
( 2 ) = " adaly "
fNames
( 3 ) = " Oscar "
fNames
( 4 ) = " Emilio "
fNames ( 5 ) = " Carlos "
fNames
( 6 ) = " Sylvia "
fNames
( 7 ) = " Sebastián "
fNames
( 8 ) = " Luis"
< p> fNames ( 9 ) = " Joe "
4
Ejecutar una sentencia SQL para crear una nueva tabla en la base de datos con un campo de texto :
sqlstr = " CREATE TABLE myNewTable ( TEXTO Nombre ( 50 )); "
DoCmd.RunSQL ( sqlstr )
5
Abra la nueva tabla utilizando un conjunto de registros :
Set rst = dbs.OpenRecordset ( " myNewTable ")
6
Crear un bucle para rellenar el campo " Nombre" de la tabla :
para rowCntr = 0 a 9
primera . AddNew
rst.Fields ( 0 ) . Valor = fNames ( rowCntr )
rst.Update
Siguiente rowCntr
7
Cierre el conjunto de registros y terminar el subprocedimiento :
rst.Close
End Sub
8
Press "F5 " para ejecutar el procedimiento. Cambie de nuevo a Microsoft Access y haga doble clic en " myNewTable " para ver el campo poblada.