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.
expresión. DatasheetFontUnderline
expresión Variable que representa un objeto Form.
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.
Propiedades | Propiedades continuadas |
---|---|
DatasheetFontItalic * | Hoja de datosForeColor * |
DatasheetFontHeight * | DatasheetBackColor |
DatasheetFontName * | DatasheetGridlinesColor |
DatasheetFontUnderline * | DatasheetGridlinesBehavior |
DatasheetFontWeight * | DatasheetCellsEffect |
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.
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
¿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.