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

Статья
04/07/2023

Используйте свойство DatasheetFontHeight , чтобы указать размер точки шрифта, используемый для отображения и печати имен полей и данных в режиме таблицы. Для чтения и записи, Integer.

Синтаксис

expression. DatasheetFontHeight

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

Замечания

Это свойство доступно только в базе данных Microsoft Access.

Для свойства DatasheetFontHeight указанный размер шрифта должен быть допустимым для шрифта, указанного свойством DatasheetFontName . Например, ms sans serif доступен только в размерах 8, 10, 12, 14, 18 и 24 точек.

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

Свойства	Свойства продолжены
DatasheetFontItalic *	DatasheetForeColor *
DatasheetFontHeight *	DatasheetBackColor
DatasheetFontName *	DatasheetGridlinesColor
DatasheetFontUnderline *	DatasheetGridlinesBehavior
DatasheetFontWeight *	DatasheetCellsEffect

Примечание.

При добавлении или установке любого свойства, указанного звездочкой, 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 и обратная связь.