Access - Recorer todos los campos de una tabla

 
Vista:

Recorer todos los campos de una tabla

Publicado por jomismo (45 intervenciones) el 17/01/2005 13:12:14
bien mi pregunta es la siguiente como recorro todos los campos de una tabla mediante el editor de visual basic de access

me explico

deseo ke compare un campo con todos los campos de una tabla y los coincidentes los agrege algo asi

for x=0 to numeromaximodecamposdelabase

'tiene que realizar esta consulta e ir agragando datos si coinciden
palabra=palabra & "," & dlookup("entradads","tmpsinonimos","[entradaor]=" & entrada)

next x

mas o menos seria asi en visual basic pero en access como recorro los campos?o como se el numero maximo de campos?

gracias XD
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Recorrer todos los campos de una tabla mediante el Editor de Visual Basic

Publicado por Alejandro (4142 intervenciones) el 23/05/2023 00:58:44
Para recorrer todos los campos de una tabla en Access utilizando el Editor de Visual Basic, puedes utilizar la colección `Fields` de un objeto `Recordset`. Aquí tienes un ejemplo de cómo hacerlo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim campo As DAO.Field
 
' Establecer la referencia a la base de datos actual
Set db = CurrentDb()
 
' Abrir un recordset con la tabla deseada
Set rs = db.OpenRecordset("NombreDeLaTabla")
 
' Recorrer los campos de la tabla
For Each campo In rs.Fields
    ' Aquí puedes realizar las operaciones que necesites con cada campo
    Debug.Print campo.Name ' Imprimir el nombre del campo en la ventana de Immediate
 
    ' Ejemplo de uso: agregar datos si coinciden
    ' palabra = palabra & "," & DLookup("entradads", "tmpsinonimos", "[entradaor] = " & entrada)
Next campo
 
' Cerrar el recordset
rs.Close
Set rs = Nothing
Set db = Nothing

En este ejemplo, se utiliza el objeto `Recordset` para abrir un recordset basado en la tabla deseada. Luego, se utiliza un bucle `For Each` para recorrer cada campo de la colección `Fields` del recordset. Dentro del bucle, puedes realizar las operaciones que necesites con cada campo.

En el ejemplo, se utiliza `Debug.Print` para imprimir el nombre del campo en la ventana de Immediate del Editor de Visual Basic. Puedes ajustar esta línea de código según tus necesidades.

Es importante tener en cuenta que este enfoque recorre los campos de la tabla, pero no accede a los datos de los registros individuales. Si necesitas acceder a los valores de los campos en cada registro, deberás utilizar un bucle adicional para recorrer los registros del recordset.

Espero que esto te ayude a recorrer todos los campos de una tabla en Access. ¡Buena suerte con tu proyecto!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar