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