Cómo utilizar Access 2007 VBA para recorrer y check Campos

Conocer cómo utilizar Visual Basic para Aplicaciones ( VBA) al trabajar con Microsoft Access le puede ahorrar tiempo cuando se necesita mostrar el contenido de una tabla de base de datos. Usted puede recuperar el contenido de una tabla de base de datos utilizando un objeto RecordSet . De registros consisten en registros (filas ) y campos ( columnas) . Ellos le dan la flexibilidad para mostrar o manipular los datos de una tabla. A " Por Loop" se puede utilizar para recorrer todos los campos y registros de una tabla de base de datos. Cosas que necesitará Acceso a la base de datos Northwind

Ver Más instrucciones
1

poner en marcha la base de datos Northwind 2007 y haga clic en " Herramientas de base de datos . " Haga clic en " Visual Basic " para abrir la ventana de Microsoft Visual Basic . Haga clic en el menú "Insertar " y haga clic
2

Escriba lo siguiente para crear un nuevo procedimiento para ejecutar "Módulo ". :

StepThroughFields Private Sub ( ) guía

On Error GoTo Err_stepThroughFields :
3

Escriba el siguiente para crear variables utilizadas para leer la tabla Pedidos :

Dim dbs como base de datos

primer As Recordset

rcrdCnt Dim As Integer

fldCnt Dim As Integer
4

Escriba lo siguiente para definir la base de datos a utilizar :

Set dbs = CurrentDb
5

Escriba lo siguiente para abrir un nuevo conjunto de registros utilizando la tabla Pedidos :

Set rst = dbs.OpenRecordset ( " Orders" )
6

Escriba el siguiente para recorrer todos los campos de la tabla y mostrar el nombre :

para fldCnt = 0 para rst.Fields.Count - 1

Debug.Print rst.Fields ( fldCnt ) . nombre

Siguiente fldCnt
7

Escriba lo siguiente para recorrer todos los campos en cada fila de la tabla y ver su contenido :

rst.MoveFirst

Para rcrdCnt = 0 Para rst.RecordCount - 1

Para fldCnt = 0 Para rst.Fields.Count - . 1

Debug.Print rst.Fields ( fldCnt ) Valor

Siguiente fldCnt

rst.MoveNext

Siguiente rcrdCnt
8

Escriba lo siguiente para liberar las variables de la memoria :

rst.Close

dbs.Close
9

Escriba lo siguiente para terminar su proceso y capturar errores :

Exit_stepThroughFields :

Exit Sub

Err_stepThroughFields : Exit_stepThroughFields

MsgBox Err.Description

Reanudar ' :

End Sub

Press " F5 " para ejecutar el procedimiento de y la información de campo de visualización.