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
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
DIM oCampo as Field
For Each oCampo IN Recordset.Fields
msgbox "El Titulo De " & oCampo.Name & " Es > " & _
TituloDelCampo(oCampo) & "<"
Next