全部显示

使用 DatasheetFontHeight 属性可以指定“数据表”视图中显示和打印字段名称和数据的字体的磅值大小。Integer 型，可读／写。

expression.DatasheetFontHeight

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

说明

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

可以通过从“格式（数据表）”工具栏上的“字号”框中选择字体大小来设置该属性。

 

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

对于 DatasheetFontHeight 属性，所指定的字号必须对由 DatasheetFontName 属性所指定的字体有效。例如，MS Sans Serif 字体有效的字号只有 8、10、12、14、18 和 24 磅。

可以通过在“工具”菜单上单击“选项”，使用“选项”对话框的“数据表”选项卡中“默认字体”下的设置，设置默认的 DatasheetFontHeight 属性。

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

 

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

示例

以下示例将“产品”表在“数据表”视图的字体设置为 MS Serif，字号设置为 10 磅，字体粗细设置为中等 (500)。

为设置这些属性，该示例使用 SetTableProperty 过程，这一过程在 DatasheetFontItalic 和 DatasheetFontUnderline 属性示例中显示。

Dim dbs As Object, objProducts As Object

Set dbs = CurrentDb

Const DB_Text As Long = 10

Const DB_Integer As Long = 3

Set objProducts = dbs!Products

SetTableProperty objProducts, "DatasheetFontName", DB_Text, "MS Serif"

SetTableProperty objProducts, "DatasheetFontHeight", DB_Integer, 10

SetTableProperty objProducts, "DatasheetFontWeight", DB_Integer, 500

下一示例对“数据表”视图中打开的“产品”窗体进行与上例相同的更改。

Forms!Products.DatasheetFontName = "MS Serif"

Forms!Products.DatasheetFontHeight = 10

Forms!Products.DatasheetFontWeight = 500