Propriedade Form.DatasheetFontItalic (Access)

Use a propriedade DatasheetFontItalic para especificar uma aparência italicizada para nomes de campo e dados na exibição Datasheet. Boolean de leitura/gravação.

Sintaxe

expressão. DatasheetFontItalic

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

Comentários

A propriedade DatasheetFontItalic 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.

Essa propriedade só está disponível no Visual Basic em um banco de dados do Microsoft Access.

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 exibe os dados e os nomes de campo na exibição Datasheet do formulário Produtos como itálico e sublinhado.

Forms![Products].DatasheetFontItalic = True 
Forms![Products].DatasheetFontUnderline = True

O exemplo a seguir exibe os dados e os nomes de campo na exibição Datasheet da tabela Produtos como itálico e sublinhado. Para definir as propriedades DatasheetFontItalic e DatasheetFontUnderline , o exemplo usa o procedimento SetTableProperty , que está no módulo padrão do banco de dados.

Dim dbs As Object, objProducts As Object 
Const DB_Boolean As Long = 1 
Set dbs = CurrentDb 
Set objProducts = dbs![Products] 
SetTableProperty objProducts, "DatasheetFontItalic", DB_Boolean, True 
SetTableProperty objProducts, "DatasheetFontUnderline", DB_Boolean, True 
 
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

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.