Свойство Form.DatasheetForeColor (Access)
Используйте свойство DatasheetForeColor в Visual Basic, чтобы указать или определить цвет всего текста в таблице, запросе или форме в режиме таблицы в базе данных Access. Для чтения и записи, Long.
Синтаксис
expression. DatasheetForeColor
выражение: переменная, представляющая объект Form.
Замечания
Задание свойства DatasheetForeColor для таблицы или запроса не повлияет на этот параметр свойства для формы, которая использует таблицу или запрос в качестве источника данных.
В следующей таблице содержатся свойства, которые не существуют в коллекции свойств DAO , пока вы не зададите их с помощью панели инструментов Форматирование (таблица) или вы можете добавить их в базу данных Access с помощью метода CreateProperty и добавить его в коллекцию свойств DAO.
| Свойства | Свойства продолжены |
|---|---|
| DatasheetBackColor | DatasheetFontUnderline * |
| DatasheetCellsEffect | DatasheetFontWeight * |
| DatasheetFontHeight * | DatasheetForeColor * |
| DatasheetFontItalic * | DatasheetGridlinesBehavior |
| DatasheetFontName * | DatasheetGridlinesColor |
Примечание.
При добавлении или установке любого свойства, указанного звездочкой, Access автоматически добавляет его в коллекцию Properties .
Пример
В следующем примере используется процедура 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 и обратная связь.