Form.DatasheetBackColor プロパティ (Access)
Visual Basic の DatasheetBackColor プロパティを使用して、Microsoft Access データベース内のデータシート ビューでテーブル、クエリ、またはフォーム全体の背景色を指定または決定します。 読み取り/書き込みが可能な Long です。
構文
式。DatasheetBackColor
expressionForm オブジェクトを表す変数です。
注釈
次の設定情報は、Microsoft Access データベースと Access プロジェクト (.adp) の両方に適用されます。
テーブルまたはクエリに対する DatasheetBackColor プロパティの設定値は、そのテーブルまたはクエリがデータ ソースとして使われるフォームのこのプロパティの設定値には反映されません。
次の表には、書式設定 (データシート) ツール バーを使用して設定するまで DAO プロパティ コレクションに存在しないプロパティが含まれています。または、CreateProperty メソッドを使用して Access データベースに追加し、DAO プロパティ コレクションに追加できます。
注:
アスタリスクを持つプロパティを追加または設定すると、そのプロパティが Properties コレクションに自動的に追加されます。
| プロパティ | プロパティ |
|---|---|
| DatasheetBackColor | DatasheetFontUnderline * |
| DatasheetCellsEffect | DatasheetFontWeight * |
| DatasheetFontHeight * | DatasheetForeColor * |
| DatasheetFontItalic * | DatasheetGridlinesBehavior |
| DatasheetFontName * | DatasheetGridlinesColor |
例
次の例では 、SetTableProperty プロシージャを使用して、テーブルのフォントの色を濃い青色に、背景色を淡い灰色に設定します。 プロパティが設定されているときに "Property not found" エラーが発生した場合は、 CreateProperty メソッドを使用して、プロパティをオブジェクトの Properties コレクションに追加します。
Dim dbs As Object, objProducts As Object
Const lngForeColor As Long = 8388608 ' Dark blue.
Const lngBackColor As Long = 12632256 ' Light gray.
Const DB_Long As Long = 4
Set dbs = CurrentDb
Set objProducts = dbs!Products
SetTableProperty objProducts, "DatasheetBackColor", DB_Long, lngBackColor
SetTableProperty objProducts, "DatasheetForeColor", DB_Long, lngForeColor
Sub SetTableProperty(objTableObj As Object, strPropertyName As String, _
intPropertyType As Integer, varPropertyValue As Variant)
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
' Error is unknown.
MsgBox "Couldn't set property '" & strPropertyName _
& "' on table '" & tdfTableObj.Name & "'", vbExclamation, Err.Description
Err.Clear
Else
' Error is "Property not found", so add it to collection.
Set prpProperty = objTableObj.CreateProperty(strPropertyName, _
intPropertyType, varPropertyValue)
objTableObj.Properties.Append prpProperty
Err.Clear
End If
End If
objTableObj.Properties.Refresh
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。