Свойство Form.DatasheetBackColor (Access)

Статья
04/07/2023

Используйте свойство DatasheetBackColor в Visual Basic , чтобы указать или определить цвет фона всей таблицы, запроса или формы в режиме таблицы в базе данных Microsoft Access. Для чтения и записи, Long.

Синтаксис

expression. DatasheetBackColor

выражение: переменная, представляющая объект Form.

Замечания

Следующие сведения о параметрах относятся как к базе данных Microsoft Access, так и к проектам Access (ADP).

Задание свойства DatasheetBackColor для таблицы или запроса не повлияет на этот параметр свойства для формы, которая использует таблицу или запрос в качестве источника данных.

В следующей таблице содержатся свойства, которые не существуют в коллекции свойств DAO , пока вы не зададите их с помощью панели инструментов Форматирование (таблица) или вы можете добавить их в базу данных Access с помощью метода CreateProperty и добавить его в коллекцию свойств DAO.

Примечание.

Когда вы добавляете или задаете любое свойство со звездочкой, Access автоматически добавляет его в коллекцию Properties .

свойство	свойство
DatasheetBackColor	DatasheetFontUnderline *
DatasheetCellsEffect	DatasheetFontWeight *
DatasheetFontHeight *	DatasheetForeColor *
DatasheetFontItalic *	DatasheetGridlinesBehavior
DatasheetFontName *	DatasheetGridlinesColor

Пример

В следующем примере используется процедура SetTableProperty , чтобы задать темно-синий цвет шрифта таблицы, а цвет фона — светло-серый. Если при установке свойства возникает ошибка "Свойство не найдено", метод CreateProperty используется для добавления свойства в коллекцию Свойств объекта.

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 и обратная связь.