Leer en inglés

Compartir a través de


Propiedad Form.DatasheetFontUnderline (Access)

Utilice la propiedad DatasheetFontUnderline para especificar una apariencia subrayada para los nombres de campo y los datos en la vista Hoja de datos. Boolean de lectura y escritura.

Sintaxis

expresión. DatasheetFontUnderline

expresión Variable que representa un objeto Form.

Comentarios

La propiedad DatasheetFontUnderline se aplica a todos los campos en la vista Hoja de datos y a los controles de formularios cuando el formulario está en vista Hoja de datos.

Esta propiedad solo está disponible en Visual Basic dentro de una base de datos de Microsoft Access.

La tabla siguiente contiene las propiedades que no existen en la colección Propiedades de DAO hasta que se establecen mediante la barra de herramientas Formato (hoja de datos), o bien puede agregarlas a una base de datos de Access mediante el método CreateProperty y anexarlas a la colección Propiedades de DAO.

Nota

[!NOTA] Al agregar o establecer cualquier propiedad marcada con un asterisco, Microsoft Access agregará automáticamente todas las propiedades marcadas con asterisco a la colección Properties de la base de datos.

Ejemplo:

En el ejemplo siguiente se muestran los datos y los nombres de campo en la vista Hoja de datos del formulario Productos en cursiva y subrayado.

Forms![Products].DatasheetFontItalic = True 
Forms![Products].DatasheetFontUnderline = True

En el ejemplo siguiente se muestran los datos y los nombres de campo en la vista Hoja de datos de la tabla Productos en cursiva y subrayado. Para establecer las propiedades DatasheetFontItalic y DatasheetFontUnderline , en el ejemplo se usa el procedimiento SetTableProperty , que se encuentra en el módulo estándar de la base de datos.

Dim dbs As Object, objProducts As Object 
Const DB_Boolean As Long = 1 
Set dbs = CurrentDb 
Set objProducts = dbs![Products] 
SetTableProperty objProducts, "DatasheetFontItalic", DB_Boolean, True 
SetTableProperty objProducts, "DatasheetFontUnderline", DB_Boolean, True 
 
Sub SetTableProperty(objTableObj As Object, strPropertyName As String, _ 
 intPropertyType As Integer, varPropertyValue As Variant) 
 ' Set Microsoft Access-defined table property without causing 
 ' nonrecoverable run-time error. 
 Const conErrPropertyNotFound = 3270 
 Dim prpProperty As Variant 
 On Error Resume Next ' Don't trap errors. 
 objTableObj.Properties(strPropertyName) = varPropertyValue 
 If Err <> 0 Then ' Error occurred when value set. 
 If Err <> conErrPropertyNotFound Then 
 On Error GoTo 0 
 MsgBox "Couldn't set property '" & strPropertyName _ 
 & "' on table '" & objTableObj.Name & "'", 48, "SetTableProperty" 
 Else 
 On Error GoTo 0 
 Set prpProperty = objTableObj.CreateProperty(strPropertyName, _ 
 intPropertyType, varPropertyValue) 
 objTableObj.Properties.Append prpProperty 
 End If 
 End If 
 objTableObj.Properties.Refresh 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.