Form.DatasheetFontItalic プロパティ (Access)

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

構文

式。DatasheetFontItalic

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

注釈

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

このプロパティは、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 のサポートおよびフィードバックを参照してください。