DatasheetFontItalic 属性

expandtri全部显示

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

expression.DatasheetFontItalic

expression     必需。返回“应用于”列表中的一个对象的表达式。

说明

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

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

在 Visual Basic 中,DatasheetFontItalic 属性使用以下设置:

设置

说明

True

文字是倾斜的。

False

(默认)文字不是倾斜的。

 

注释  您可以通过在“格式(数据表)”工具栏上单击“倾斜”来设置该属性。

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

下表列出了 DAO Properties 集合中的部分属性。这些属性在用户使用“格式(数据表)”工具栏对其进行设置,或使用 CreateProperty 方法将这些属性添加到 Access 数据库 (.mdb) 并将其追加到 DAO Properties 集合中之前不存在。

DatasheetFontItalic *

DatasheetForeColor*

DatasheetFontHeight*

DatasheetBackColor

DatasheetFontName*

DatasheetGridlinesColor

DatasheetFontUnderline*

DatasheetGridlinesBehavior

DatasheetFontWeight*

DatasheetCellsEffect

 

注释  当添加或设置任何带有星号的属性时,Microsoft Access 自动将所有带星号的属性添加到数据库的 Properties 集合中。

示例

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

Forms![Products].DatasheetFontItalic = True

Forms![Products].DatasheetFontUnderline = True

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

为设置 DatasheetFontItalicDatasheetFontUnderline 属性,该示例使用数据库标准模块中的 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