Form.DatasheetFontUnderline 屬性 (Access)

使用 DatasheetFontUnderline 屬性在 [資料工作表檢視] 中為欄位名稱和資料指定底線外觀。 可讀寫的 Boolean。

語法

運算式。DatasheetFontUnderline

expression 代表 Form 物件的變數。

註解

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

此屬性僅適用於 Microsoft Access 資料庫中的 Visual Basic 。

下表包含在您使用 [格式設定] ([資料) 工作表] 工具列進行設定之前不存在於 DAO 屬性集合中的屬性，或者您可以使用 CreateProperty 方法將其新增到 Access 資料庫中，並將其附加到 DAO 屬性集合中。

範例

下列範例會將 [產品 ] 表單 [資料工作表] 中的資料和欄位名稱顯示為斜體並加上底線。

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

支援和意見反應

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