Titulo de un campo en tabla de access , no el nombre

Lya
10 de Julio del 2004
Estoy usando un recordset del cual quiero obtener el titulo que tiene en la tabla de access , no el nombre ya probe con rs.fields(1).name pero me trae el nombre, quise poner rs.fields(1).caption y me marca error , hay alguna otra forma de obtener lo que quiero

semperfimxl
10 de Julio del 2004
Necesitas usar la propiedad "Caption" que esta guardada en la coleccion Properties del campo que deseas (sea en TableDef o en RecordSet) ...

Esta propiedad "Caption" existira en la coleccion siempre y cuando al campo le haya sido alimentado un Titulo en la vista diseño de la tabla en Access...

El siguiente codigo puede darte una mejor idea de como usar esta propiedad...

Function TituloDelCampo( oCampo as Field ) AS String
DIM cTitulo AS String
DIM oProp AS Property

cTitulo = oCampo.Name

For Each oProp IN oCampo.Properties
If UCase(oProp.Name) = "CAPTION" Then
cTitulo = oProp.Value
Exit For
End If
Next oProp

TituloDelCampo = cTitulo

End Function

semperfimxl
10 de Julio del 2004
Ejemplo para llamar a la funcion anterior ...

DIM oCampo as Field

For Each oCampo IN Recordset.Fields
msgbox "El Titulo De " & oCampo.Name & " Es > " & _
TituloDelCampo(oCampo) & "<"
Next