Form.DatasheetBackColor-Eigenschaft (Access)

Verwenden Sie die DatasheetBackColor-Eigenschaft in Visual Basic , um die Hintergrundfarbe einer gesamten Tabelle, Abfrage oder eines Formulars in der Datenblattansicht innerhalb einer Microsoft Access-Datenbank anzugeben oder zu bestimmen. Long mit Lese-/Schreibzugriff.

Syntax

Ausdruck. DatasheetBackColor

expression Eine Variable, die ein Form-Objekt darstellt.

HinwBemerkungeneise

Die folgenden Einstellungsinformationen gelten für Microsoft Access-Datenbank- und Access-Projekte (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.

Die folgende Tabelle enthält die Eigenschaften, die in der DAO Properties-Auflistung erst vorhanden sind, wenn Sie sie mithilfe der Symbolleiste Formatierung (Datenblatt) 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.

Beispiel

Im folgenden Beispiel wird die SetTableProperty-Prozedur verwendet, um die Schriftfarbe einer Tabelle auf dunkelblau und die Hintergrundfarbe auf hellgrau festzulegen. Wenn beim Festlegen der Eigenschaft der Fehler "Eigenschaft nicht gefunden" auftritt, wird die CreateProperty-Methode verwendet, um die Eigenschaft der Properties-Auflistung des Objekts hinzuzufügen.

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 Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.