Access VBA教程:DatasheetFontItalic属性

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

expression.DatasheetFontItalic

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

说明

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

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

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

设置 说明
True 文字是倾斜的。
False (默认)文字不是倾斜的。

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

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

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

DatasheetFontItalic* DatasheetForeColor*
DatasheetFontHeight* DatasheetBackColor
DatasheetFontName* DatasheetGridlinesColor
DatasheetFontUnderline* DatasheetGridlinesBehavior
DatasheetFontWeight* DatasheetCellsEffect

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

VBA示例

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


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

上页:Access VBA教程:DatasheetFontHeight属性 下页:Access VBA教程:DatasheetFontName属性

Access VBA教程:DatasheetFontItalic属性

Access VBA教程:DatasheetFontName属性 Access VBA教程:DatasheetFontUnderline属性
Access VBA教程:DatasheetFontWeight属性 Access VBA教程:DatasheetForeColor属性
Access VBA教程:DatasheetGridlinesBehavior属性 Access VBA教程:DatasheetGridlinesColor属性
Access VBA教程:DataType属性 Access VBA教程:DateCreated属性
Access VBA教程:DateGrouping属性 Access VBA教程:DateModified属性
Access VBA教程:DBEngine属性 Access VBA教程:DecimalPlaces属性
Access VBA教程:Default属性 Access VBA教程:DefaultSize属性
Access VBA教程:DefaultValue属性 Access VBA教程:DefaultView属性
Access VBA教程:DefaultWebOptions属性 Access VBA教程:Description属性
Access VBA教程:DestConnectStr、DestinationDB、DestinationTable属性 Access VBA教程:DeviceName属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号