Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Mit der DatasheetBackColor-Eigenschaft in Visual Basic können Sie die Hintergrundfarbe einer ganzen Tabelle, Abfrage oder eines Formulars in der Datenblattansicht einer Microsoft Access-Datenbank angeben oder bestimmen. Long mit Lese-/Schreibzugriff.
Syntax
Ausdruck verwendet werden. DatasheetBackColor
expression Eine Variable, die ein Form-Objekt darstellt.
Hinweise
Die folgenden Einstellungsinformationen gelten sowohl für die Microsoft Access-Datenbank als auch für 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 dann vorhanden sind, wenn Sie sie mit der Formatierungssymbolleiste (Datenblatt) festlegen oder sie mit der CreateProperty-Methode in einer Access-Datenbank hinzufügen und an die DAO-Properties-Auflistung anfügen können.
Hinweis
Wenn Sie eine Eigenschaft mit einem Sternchen hinzufügen oder festlegen, fügt Access sie automatisch der Properties-Auflistung hinzu.
| Eigenschaft | Eigenschaft |
|---|---|
| DatasheetBackColor | DatenblattFontUnderline * |
| DatasheetCellsEffect | DatasheetFontWeight * |
| DatenblattFontHeight * | DatasheetForeColor * |
| DatenblattFontItalic * | DatasheetGridlinesBehavior |
| DatasheetFontName * | DatasheetGridlinesColor |
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 ein Fehler "Eigenschaft nicht gefunden" auftritt, wird die CreateProperty-Methode verwendet, um die Eigenschaft zur 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.