Propriedade Form.DatasheetFontWeight (Access)

Use a propriedade DatasheetFontWeight para especificar a largura da linha da fonte usada para exibir e imprimir caracteres para nomes de campo e dados na exibição Datasheet. número inteiro de leitura/gravação.

Sintaxe

expressão. DatasheetFontWeight

expressão Uma variável que representa um objeto Form.

Comentários

A propriedade DatasheetFontWeight se aplica a todos os campos no modo folha de dados e aos controles de formulário quando o formulário está no modo folha de dados.

Essas propriedades só estão disponíveis no Visual Basic, em um banco de dados do Microsoft Access.

No Visual Basic, a configuração da propriedade DatasheetFontWeight usa os seguintes valores inteiros.

Configuração	Descrição
100	Fina
200	Extraclara
300	Clara
400	(Padrão) Normal
500	Média
600	Seminegrito
700	Negrito
800	Extranegrito
900	Pesada

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 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.