Tecnología

Inicio

Cómo rellenar un campo en Access VB

Cómo rellenar un campo en Access VB


Su solicitud de acceso será más fácil de usar si Autopopulate campos de una tabla cuando se sabe que los datos que va en ellos. Esto se puede lograr utilizando Visual Basic para aplicaciones. Puede utilizar el objeto de conjunto de registros 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 de conjunto de registros y el método de actualización guarda 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ódulo" para añadir un nuevo módulo de código. Crear un nuevo subprocedimiento añadiendo el siguiente código:

Private Sub populateField ()

2 Crear las variables que va a utilizar para crear una nueva tabla y completar un campo:

DBS dévil como Base de Datos

Dim primera medida de registros

Dim rowCntr como número entero

fNames Dim (10) como secuencia

Set dbs = CurrentDb

3 Poblar la matriz de cadenas con los datos:

fNames (0) = "Juan"

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"

fNames (9) = "Joe"

4 Ejecutar una instrucción SQL para crear una nueva tabla en la base de datos con un campo de texto:

sqlstr = "CREATE MiNuevaTabla TABLE (FirstName TEXTO (50));"

DoCmd.RunSQL (sqlstr)

5 Abra la nueva tabla utilizando un conjunto de registros:

Establecer primera dbs.OpenRecordset = ( "MiNuevaTabla")

6 Crear un bucle FOR para rellenar el campo "Nombre" de la tabla:

Para rowCntr = 0 a 9

rst.AddNew

rst.Fields (0) .Value = fNames (rowCntr)

rst.Update

Siguiente rowCntr

7 Cerrar el conjunto de registros y terminar el subprocedimiento:

rst.Close

End Sub

8 Pulse la tecla "F5" para ejecutar el procedimiento. Cambie de nuevo a Microsoft Access y haga doble clic en "MiNuevaTabla" para ver el campo rellenado.