Access) (Form.DatasheetFontUnderline 屬性
使用 DatasheetFontUnderline 屬性可在 [資料工作表檢視] 中指定功能變數名稱和資料的加底線外觀。 可讀寫的 Boolean。
語法
運算式。DatasheetFontUnderline
expression 代表 Form 物件的變數。
註解
當表單處於資料工作表檢視 DatasheetFontUnderline 屬性可套用於 [資料工作表檢視中的全部欄位和表單控制項。
此屬性僅適用于 Microsoft Access 資料庫內的 Visual Basic 。
下表包含 DAO Properties 集合中不存在的屬性，直到您使用 [格式化] (資料工作表) 工具列加以設定，或者您可以使用 CreateProperty 方法將它們加入 Access 資料庫中，並將它附加至 DAO Properties 集合。
| 屬性 | 屬性繼續 |
|---|---|
| DatasheetFontItalic * | DatasheetForeColor * |
| DatasheetFontHeight * | DatasheetBackColor |
| DatasheetFontName * | DatasheetGridlinesColor |
| DatasheetFontUnderline * | DatasheetGridlinesBehavior |
| DatasheetFontWeight * | DatasheetCellsEffect |
注意事項
[!注意事項] 當您新增或設定任何加有星號的屬性時，Microsoft Access 會自動新增所有加有星號至資料庫的 Properties 集合的屬性。
範例
下列範例會將 Products 表單之 [資料工作表檢視] 中的資料和功能變數名稱顯示為斜體和底線。
Forms![Products].DatasheetFontItalic = True
Forms![Products].DatasheetFontUnderline = True
下列範例會在 Products 資料表的資料工作表檢視中，將資料和功能變數名稱顯示為斜體和底線。 若要設定 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
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。