Form. DatasheetBackColor-Eigenschaft (Access)Form.DatasheetBackColor property (Access)

Sie können die DatasheetBackColor -Eigenschaft in Visual Basic verwenden, um die Hintergrundfarbe einer gesamten Tabelle, Abfrage oder eines Formulars in der Datenblattansicht innerhalb einer Microsoft Access-Datenbank anzugeben oder zu bestimmen.You can use the DatasheetBackColor property in Visual Basic to specify or determine the background color of an entire table, query, or form in Datasheet view within a Microsoft Access database. Long mit Lese-/Schreibzugriff.Read/write Long.

SyntaxSyntax

Ausdruck. DatasheetBackColorexpression.DatasheetBackColor

expression Eine Variable, die ein Form-Objekt darstellt.expression A variable that represents a Form object.

HinweiseRemarks

Die folgenden Einstellungsinformationen gelten sowohl für Microsoft Access-Datenbank-als auch für Access-Projekte (ADP).The following setting information applies to both Microsoft Access database and Access projects (.adp).

Wenn Sie die DatasheetBackColor-Eigenschaft einer Tabelle oder einer Abfrage festlegen, hat dies keine Auswirkungen auf die Einstellung der Eigenschaft eines Formulars, für das die Tabelle oder Abfrage als Datenquelle verwendet wird.Setting the DatasheetBackColor property for a table or query won't affect this property setting for a form that uses the table or query as its source of data.

Die folgende Tabelle enthält die Eigenschaften, die in der DAO- Eigenschaften Sammlung erst vorhanden sind, wenn Sie Sie mithilfe der Symbolleiste Format (Datasheet) festgelegt haben, oder Sie können Sie mithilfe der CreateProperty -Methode in einer Access-Datenbank hinzufügen. und an die DAO Properties -Auflistung anfügen.The following table contains the properties that don't exist in the DAO Properties collection until you set them by using the Formatting (Datasheet) toolbar, or you can add them in an Access database by using the CreateProperty method and append it to the DAO Properties collection.

DatasheetBackColorDatasheetBackColor DatasheetFontUnderline *DatasheetFontUnderline *
DatasheetCellsEffectDatasheetCellsEffect DatasheetFontWeight *DatasheetFontWeight *
DatasheetFontHeight *DatasheetFontHeight * DatasheetForeColor *DatasheetForeColor *
DatasheetFontItalic *DatasheetFontItalic * DatasheetGridlinesBehaviorDatasheetGridlinesBehavior
DatasheetFontName *DatasheetFontName * DatasheetGridlinesColorDatasheetGridlinesColor

Hinweis

Wenn Sie eine Eigenschaft hinzufügen oder festlegen, die mit einem Sternchen gekennzeichnet ist, wird Sie von Access der Properties -Auflistung automatisch hinzugefügt.When you add or set any property listed with an asterisk, Access automatically adds it to the Properties collection.

BeispielExample

Im folgenden Beispiel wird die **** SetTableProperty-Prozedur verwendet, um die Schriftfarbe einer Tabelle auf dunkelblau und die Hintergrundfarbe hellgrau festzulegen.The following example uses the SetTableProperty procedure to set a table's font color to dark blue and its background color to light gray. Wenn ein Fehler "Eigenschaft nicht gefunden" auftritt, wenn die Eigenschaft festgelegt ist **** , wird die CreateProperty-Methode verwendet, um die Eigenschaft zur Properties -Auflistung des Objekts hinzuzufügen.If a "Property not found" error occurs when the property is set, the CreateProperty method is used to add the property to the object's Properties collection.

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

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.