Form.DatasheetForeColor プロパティ (Access)

Visual Basic の DatasheetForeColor プロパティを使用すると、Access データベース内のデータシート ビューのテーブル、クエリ、またはフォームのすべてのテキストの色を指定または決定できます。 読み取り/書き込みが可能な Long です。

構文

式。DatasheetForeColor

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

注釈

テーブルまたはクエリに対する DatasheetForeColor プロパティの設定値は、そのテーブルまたはクエリがデータ ソースとして使われるフォームのこのプロパティの設定値には反映されません。

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

例

次の例では、 SetTableProperty プロシージャを使用して、テーブルのフォントの色を濃い青に、背景色を薄い灰色に設定します。 プロパティの設定時に "プロパティが見つかりません" エラーが発生した場合は、 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 のサポートおよびフィードバックを参照してください。