Access) (Form.DatasheetFontWeight 屬性

使用 DatasheetFontWeight 屬性可指定字型的行寬，用來顯示和列印資料工作表檢視中功能變數名稱和資料的字元。 可讀寫的 Integer。

語法

運算式。DatasheetFontWeight

expression 代表 Form 物件的變數。

註解

當表單處於資料工作表檢視 DatasheetFontWeight 屬性可套用於 [資料工作表檢視中的全部欄位和表單控制項。

這些屬性只有在 Microsoft Access 資料庫內的 Visual Basic 內才能使用。

在 Visual Basic 中， DatasheetFontWeight 屬性設定會使用下列 Integer 值。

設定	描述
100	細
200	特淡
300	淡
400	正常 (預設值)
500	中
600	半粗體
700	粗體
800	特粗體
900	大量

下表包含 DAO Properties 集合中不存在的屬性，直到您使用 [格式化] (資料工作表) 工具列加以設定，或者您可以使用 CreateProperty 方法將它們加入 Access 資料庫中，並將它附加至 DAO Properties 集合。

屬性	屬性繼續
DatasheetFontItalic *	DatasheetForeColor *
DatasheetFontHeight *	DatasheetBackColor
DatasheetFontName *	DatasheetGridlinesColor
DatasheetFontUnderline *	DatasheetGridlinesBehavior
DatasheetFontWeight *	DatasheetCellsEffect

注意事項

[!注意事項] 當您新增或設定任何加有星號的屬性時，Microsoft Access 會自動新增所有加有星號至資料庫的 Properties 集合的屬性。

範例

下列範例會在 Products 資料表的資料 工作表檢視中，將字型設定為 MS Serif、將字型大小設為 10 點，並將字型粗細設定為中 (500) 。

Sub SetDatasheetFont 
 
   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 
 
End Sub 
 
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

下列範例會 在開啟 的 Products 表單的 [資料工作表檢視] 中，進行與上述範例相同的變更。

Forms!Products.DatasheetFontName = "MS Serif" 
Forms!Products.DatasheetFontHeight = 10 
Forms!Products.DatasheetFontWeight = 500

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。