Compartilhar via


Propriedade Form.DatasheetForeColor (Access)

Use a propriedade DatasheetForeColor no Visual Basic para especificar ou determinar a cor de todo o texto em uma tabela, consulta ou formulário na exibição Datasheet em um banco de dados access. Long de leitura/gravação.

Sintaxe

expressão. DatasheetForeColor

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

Comentários

A definição da propriedade DatasheetForeColor para uma tabela ou consulta não afetará a configuração dessa propriedade para um formulário que usa a tabela ou consulta como fonte de dados.

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
DatasheetBackColor DatasheetFontUnderline *
DatasheetCellsEffect DatasheetFontWeight *
DatasheetFontHeight * DatasheetForeColor *
DatasheetFontItalic * DatasheetGridlinesBehavior
DatasheetFontName * DatasheetGridlinesColor

Observação

Quando você adiciona ou define qualquer propriedade listada com um asterisco, o Access adiciona-a automaticamente à coleção Propriedades .

Exemplo

O exemplo a seguir usa o procedimento SetTableProperty para definir a cor da fonte de uma tabela como azul escuro e sua cor de fundo como cinza claro. Se um erro "Propriedade não encontrada" ocorre quando a propriedade estiver definida, o método CreateProperty é usado para adicionar a propriedade à coleção Properties do objeto.

Dim dbs As Object, objProducts As Object 
Const lngForeColor As Long = 8388608 ' Dark blue. 
Const lngBackColor As Long = 12632256 ' Light gray. 
Const DB_Long As Long = 4 
Set dbs = CurrentDb 
Set objProducts = dbs!Products 
SetTableProperty objProducts, "DatasheetBackColor", DB_Long, lngBackColor 
SetTableProperty objProducts, "DatasheetForeColor", DB_Long, lngForeColor 
 
Sub SetTableProperty(objTableObj As Object, strPropertyName As String, _ 
 intPropertyType As Integer, varPropertyValue As Variant) 
 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 
 ' Error is unknown. 
 MsgBox "Couldn't set property '" & strPropertyName _ 
 & "' on table '" & tdfTableObj.Name & "'", vbExclamation, Err.Description 
 Err.Clear 
 Else 
 ' Error is "Property not found", so add it to collection. 
 Set prpProperty = objTableObj.CreateProperty(strPropertyName, _ 
 intPropertyType, varPropertyValue) 
 objTableObj.Properties.Append prpProperty 
 Err.Clear 
 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.