Свойство Form.DatasheetFontHeight (Access)
Используйте свойство DatasheetFontHeight , чтобы указать размер точки шрифта, используемый для отображения и печати имен полей и данных в режиме таблицы. Для чтения и записи, Integer.
Синтаксис
expression. DatasheetFontHeight
выражение: переменная, представляющая объект Form.
Замечания
Это свойство доступно только в базе данных Microsoft Access.
Для свойства DatasheetFontHeight указанный размер шрифта должен быть допустимым для шрифта, указанного свойством DatasheetFontName . Например, ms sans serif доступен только в размерах 8, 10, 12, 14, 18 и 24 точек.
В следующей таблице содержатся свойства, которые не существуют в коллекции СВОЙСТВ DAO, пока вы не зададите их с помощью панели инструментов Форматирование (таблица) или вы можете добавить их в базу данных Access (MDB) с помощью метода CreateProperty и добавить его в коллекцию свойств DAO .
Примечание.
При добавлении или установке любого свойства, указанного звездочкой, Microsoft Access автоматически добавляет все свойства, перечисленные звездочкой, в коллекцию Properties базы данных.
Пример
В следующем примере шрифту присваивается значение MS Serif, размер шрифта — 10 пунктов, а вес шрифта — средний (500) в представлении таблицы Products .
Sub SetDatasheetFont
Dim dbs As Object, objProducts As Object
Set dbs = CurrentDb
Const DB_Text As Long = 10
Const DB_Integer As Long = 3
Set objProducts = dbs!Products
SetTableProperty objProducts, "DatasheetFontName", DB_Text, "MS Serif"
SetTableProperty objProducts, "DatasheetFontHeight", DB_Integer, 10
SetTableProperty objProducts, "DatasheetFontWeight", DB_Integer, 500
End Sub
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
В следующем примере внесены те же изменения, что и в предыдущем примере в режиме таблицы открытой формы Products .
Forms!Products.DatasheetFontName = "MS Serif"
Forms!Products.DatasheetFontHeight = 10
Forms!Products.DatasheetFontWeight = 500
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.