Form.DatasheetFontWeight プロパティ (Access)

データシート ビューでフィールド名とデータの文字を表示および印刷するために使用するフォントの行幅を指定するには、 DatasheetFontWeight プロパティを使用します。 値の取得および設定が可能です。整数型 (Integer) の値を使用します。

構文

式。DatasheetFontWeight

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

注釈

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

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

Visual Basic で、 DatasheetFontWeight プロパティの設定値は、次の整数型 ( Integer ) の値のいずれかです。

Setting	説明
100	極細
200	細字
300	中細
400	普通 (既定値)
500	中字
600	中太
700	太字
800	極太
900	高負荷

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

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

注:

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