Свойство Form.DatasheetFontUnderline (Access)
Используйте свойство DatasheetFontUnderline , чтобы указать подчеркнутый внешний вид для имен полей и данных в представлении таблицы. Для чтения и записи, Boolean.
Синтаксис
expression. DatasheetFontUnderline
выражение: переменная, представляющая объект Form.
Замечания
Свойство DatasheetFontUnderline применяется ко всем полям в представлении таблицы и к элементам управления формы, когда форма находится в режиме таблицы.
Это свойство доступно только в Visual Basic в базе данных Microsoft Access.
В следующей таблице содержатся свойства, которые не существуют в коллекции свойств DAO , пока вы не зададите их с помощью панели инструментов Форматирование (таблица) или вы можете добавить их в базу данных Access с помощью метода CreateProperty и добавить его в коллекцию свойств DAO.
| Свойства | Свойства продолжены |
|---|---|
| DatasheetFontItalic * | DatasheetForeColor * |
| DatasheetFontHeight * | DatasheetBackColor |
| DatasheetFontName * | DatasheetGridlinesColor |
| DatasheetFontUnderline * | DatasheetGridlinesBehavior |
| DatasheetFontWeight * | DatasheetCellsEffect |
Примечание.
При добавлении или установке любого свойства, указанного звездочкой, Microsoft Access автоматически добавляет все свойства, перечисленные звездочкой, в коллекцию Properties базы данных.
Пример
В следующем примере данные и имена полей отображаются в представлении таблицы формы Products курсивом и подчеркнутой.
Forms![Products].DatasheetFontItalic = True
Forms![Products].DatasheetFontUnderline = True
В следующем примере данные и имена полей отображаются в представлении таблицы Products курсивом и подчеркнутой. Чтобы задать свойства DatasheetFontItalic и DatasheetFontUnderline , в примере используется процедура SetTableProperty , которая находится в стандартном модуле базы данных.
Dim dbs As Object, objProducts As Object
Const DB_Boolean As Long = 1
Set dbs = CurrentDb
Set objProducts = dbs![Products]
SetTableProperty objProducts, "DatasheetFontItalic", DB_Boolean, True
SetTableProperty objProducts, "DatasheetFontUnderline", DB_Boolean, True
Sub SetTableProperty(objTableObj As Object, strPropertyName As String, _
intPropertyType As Integer, varPropertyValue As Variant)
' Set Microsoft Access-defined table property without causing
' nonrecoverable run-time error.
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
On Error GoTo 0
MsgBox "Couldn't set property '" & strPropertyName _
& "' on table '" & objTableObj.Name & "'", 48, "SetTableProperty"
Else
On Error GoTo 0
Set prpProperty = objTableObj.CreateProperty(strPropertyName, _
intPropertyType, varPropertyValue)
objTableObj.Properties.Append prpProperty
End If
End If
objTableObj.Properties.Refresh
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.