Propriedade Form.DatasheetFontHeight (Access)
Use a propriedade DatasheetFontHeight para especificar o tamanho do ponto de fonte usado para exibir e imprimir nomes de campo e dados na exibição Datasheet. número inteiro de leitura/gravação.
Sintaxe
expressão. DatasheetFontHeight
expressão Uma variável que representa um objeto Form.
Comentários
Essa propriedade está disponível apenas em um banco de dados do Microsoft Access.
Para a propriedade DatasheetFontHeight , o tamanho da fonte especificado deve ser válido para a fonte especificada pela propriedade DatasheetFontName . Por exemplo, o MS Sans Serif está disponível somente em pontos de tamanhos 8, 10, 12, 14, 18 e 24.
A tabela a seguir contém as propriedades que não existem na coleção Propriedades DAO até que você as defina usando a barra de ferramentas Formatação (Folha de Dados) ou você pode adicioná-las em um banco de dados access (.mdb) usando o método CreateProperty e anexá-la à coleção Propriedades DAO .
| Propriedades | Propriedades continuadas |
|---|---|
| DatasheetFontItalic * | DatasheetForeColor * |
| DatasheetFontHeight * | DatasheetBackColor |
| DatasheetFontName * | DatasheetGridlinesColor |
| DatasheetFontUnderline * | DatasheetGridlinesBehavior |
| DatasheetFontWeight * | DatasheetCellsEffect |
Observação
[!OBSERVAçãO] Quando você adiciona ou define qualquer propriedade listada com um asterisco, o Microsoft Access adiciona automaticamente todas as propriedades listadas com asterisco à coleção Properties do banco de dados.
Exemplo
O exemplo a seguir define a fonte como MS Serif, o tamanho da fonte como 10 pontos e o peso da fonte como médio (500) na exibição Datasheet da tabela Produtos .
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
O exemplo a seguir faz as mesmas alterações que o exemplo anterior na exibição Datasheet do formulário open Products .
Forms!Products.DatasheetFontName = "MS Serif"
Forms!Products.DatasheetFontHeight = 10
Forms!Products.DatasheetFontWeight = 500
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.