Form.DatasheetFontUnderline 属性 (Access)

使用 DatasheetFontUnderline 属性为数据表视图中的字段名称和数据指定带下划线的外观。 读/写 Boolean。

语法

表达式。DatasheetFontUnderline

expression：表示 Form 对象的变量。

备注

DatasheetFontUnderline 属性应用于数据表视图中的所有字段和窗体控件窗体位于数据表视图中。

此属性仅在 Microsoft Access 数据库中的 Visual Basic 中 可用。

下表包含 DAO 属性 集合中不存在的属性，直到使用 格式设置 (数据表) 工具栏，或者可以使用 CreateProperty 方法将其添加到 Access 数据库中，并将其追加到 DAO 属性 集合。

属性	属性继续
DatasheetFontItalic *	DatasheetForeColor *
DatasheetFontHeight *	DatasheetBackColor
DatasheetFontName *	DatasheetGridlinesColor
DatasheetFontUnderline *	DatasheetGridlinesBehavior
DatasheetFontWeight *	DatasheetCellsEffect

注意

[!注释] 当您添加或设置任何属性列出带有一个星号时，Microsoft Access 将自动添加带有星号的数据库 属性 集合中列出的所有属性。

示例

以下示例将 “产品 ”窗体的数据表视图中的数据和字段名称显示为斜体和带下划线。

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

以下示例将 Products 表的数据表视图中的数据和字段名称显示为斜体和下划线。 若要设置 DatasheetFontItalic 和 DatasheetFontUnderline 属性，该示例使用数据库标准模块中的 SetTableProperty 过程。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。