次の方法で共有


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