Form.DatasheetFontHeight プロパティ (Access)
DatasheetFontHeight プロパティを使用して、データシート ビューでフィールド名とデータを表示および印刷するために使用するフォント ポイント サイズを指定します。 値の取得および設定が可能です。整数型 (Integer) の値を使用します。
構文
式。DatasheetFontHeight
expressionForm オブジェクトを表す変数です。
注釈
このプロパティは Microsoft Office Access データベースでのみ使用可能です。
DatasheetFontHeight プロパティの場合、指定するフォント サイズは DatasheetFontName プロパティで指定されたフォントに対して有効である必要があります。 たとえば、MS Sans Serif の場合は、8、10、12、14、18、および 24 ポイントのみが使用可能です。
次の表には、書式設定 (データシート) ツール バーを使用して設定するまで DAO プロパティ コレクションに存在しないプロパティが含まれています。または、CreateProperty メソッドを使用して Access データベース (.mdb) に追加し、DAO プロパティ コレクションに追加できます。
注:
この表のアスタリスク付きのプロパティのいずれかを設定すると、そのプロパティはデータベースの 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 のサポートおよびフィードバックを参照してください。