La aplicación de acceso será más fácil de usar si usted autopopulate campos en una tabla cuando se sabe que los datos que va en ellos. Esto se puede lograr utilizando Visual Basic para Aplicaciones. Usted puede utilizar el objeto Recordset para abrir la tabla de base de datos y rellenar cualquier campo de la tabla . El método AddNew se utiliza para crear un nuevo registro en el objeto Recordset y el método Update guarda todos los cambios realizados en el registro . Instrucciones
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 " < br > 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.