Propriedade Form.DatasheetBackColor (Access)

Use a propriedade DatasheetBackColor no Visual Basic para especificar ou determinar a cor em segundo plano de uma tabela inteira, consulta ou formulário na exibição Datasheet em um banco de dados do Microsoft Access. Long de leitura/gravação.

Sintaxe

expressão. DatasheetBackColor

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

Comentários

As informações de configuração a seguir se aplicam ao banco de dados do Microsoft Access e aos projetos do Access (.adp).

A definição da propriedade DatasheetBackColor 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.

Observação

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

propriedade	propriedade
DatasheetBackColor	DatasheetFontUnderline *
DatasheetCellsEffect	DatasheetFontWeight *
DatasheetFontHeight *	DatasheetForeColor *
DatasheetFontItalic *	DatasheetGridlinesBehavior
DatasheetFontName *	DatasheetGridlinesColor

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.