Form.DatasheetForeColor プロパティ (Access)
Visual Basic の DatasheetForeColor プロパティを使用して、Access データベース内のデータシート ビュー内のテーブル、クエリ、またはフォーム内のすべてのテキストの色を指定または決定します。 読み取り/書き込みが可能な Long です。
構文
式。DatasheetForeColor
expressionForm オブジェクトを表す変数です。
注釈
テーブルまたはクエリに対する DatasheetForeColor プロパティの設定値は、そのテーブルまたはクエリがデータ ソースとして使われるフォームのこのプロパティの設定値には反映されません。
次の表には、書式設定 (データシート) ツール バーを使用して設定するまで DAO プロパティ コレクションに存在しないプロパティが含まれています。または、CreateProperty メソッドを使用して Access データベースに追加し、DAO プロパティ コレクションに追加できます。
| プロパティ | プロパティの続き |
|---|---|
| DatasheetBackColor | DatasheetFontUnderline * |
| DatasheetCellsEffect | DatasheetFontWeight * |
| DatasheetFontHeight * | DatasheetForeColor * |
| DatasheetFontItalic * | DatasheetGridlinesBehavior |
| DatasheetFontName * | DatasheetGridlinesColor |
注:
アスタリスクが付いたプロパティを追加または設定すると、そのプロパティが Properties コレクションに自動的に追加されます。
例
次の例では 、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 のサポートおよびフィードバックを参照してください。