Поделиться через

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

  • Статья

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

Синтаксис

expression. DatasheetFontWeight

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

Замечания

Свойство DatasheetFontWeight применяется ко всем полям в представлении таблицы и к элементам управления формы, когда форма находится в режиме таблицы.

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

В Visual Basic параметр свойства DatasheetFontWeight использует следующие целочисленные значения.

Setting Описание
100 Тонкий
200 Дополнительный свет
300 Легкие
400 Нормальный размер (по умолчанию)
500 Средняя
600 Полужирный
700 Полужирный
800 Дополнительный полужирный
900 Тяжелые

В следующей таблице содержатся свойства, которые не существуют в коллекции свойств DAO , пока вы не зададите их с помощью панели инструментов Форматирование (таблица) или вы можете добавить их в базу данных Access с помощью метода 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 и обратная связь.