全部显示

DatasheetFontItalic 属性

使用 DatasheetFontItalic 属性可以指定在“数据表”视图中字段名称和数据是否显示为倾斜。Boolean 型，可读/写。

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

DatasheetFontItalic 属性应用于“数据表”视图中的所有字段，以及“数据表”视图中的窗体的控件。

该属性仅在 Microsoft Access 数据库 (.mdb) 中使用 Visual Basic 时才可用。

在 Visual Basic 中，DatasheetFontItalic 属性使用以下设置：

也可以在“数据表”视图中单击“格式”菜单上的“字体”，在“字体”对话框中设置该属性。

下列表中包含了在 ADO Properties 集合中不存在的属性，除非使用了“格式（数据表）”工具栏来设置它们，或者使用 CreateProperty 可以在 Access 数据库中添加这些属性并将其追加到 DAO Properties 集合中。

示例

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

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

下一个示例在“数据表”视图中将“产品”表的数据和字段名称显示为倾斜和带下划线。

为设置 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