Form.DatasheetFontUnderline プロパティ (Access)

DatasheetFontUnderline プロパティを使用して、データシート ビューのフィールド名とデータの下線付き外観を指定します。 読み取り/書き込みが可能な Boolean です。

構文

式。DatasheetFontUnderline

expressionForm オブジェクトを表す変数です。

注釈

DatasheetFontUnderline プロパティは、データシート ビューのすべてのフィールドに適用されます。フォームが [データシート] ビューで開かれている場合は、フォーム コントロールに適用されます。

このプロパティは、Microsoft Access データベース内の Visual Basic でのみ使用できます。

次の表には、書式設定 (データシート) ツール バーを使用して設定するまで DAO プロパティ コレクションに存在しないプロパティが含まれています。または、CreateProperty メソッドを使用して Access データベースに追加し、DAO プロパティ コレクションに追加できます。

プロパティ	プロパティの続き
DatasheetFontItalic *	DatasheetForeColor *
DatasheetFontHeight *	DatasheetBackColor
DatasheetFontName *	DatasheetGridlinesColor
DatasheetFontUnderline *	DatasheetGridlinesBehavior
DatasheetFontWeight *	DatasheetCellsEffect

注:

この表のアスタリスク付きのプロパティのいずれかを設定すると、そのプロパティはデータベースの 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 のサポートおよびフィードバックを参照してください。