Propriedade Form.DatasheetBackColor (Access)

Utilize a propriedade DatasheetBackColor no Visual Basic para especificar ou determinar a cor de fundo de uma tabela, consulta ou formulário inteiro na vista folha de dados numa base 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 seguintes informações de definição aplicam-se à base 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 seguinte contém as propriedades que não existem na coleção Propriedades do DAO até as definir através da barra de ferramentas Formatação (Folha de Dados) ou pode adicioná-las numa base de dados do Access com o método CreateProperty e anexá-la à coleção Propriedades do DAO.

Exemplo

O exemplo seguinte utiliza o procedimento SetTableProperty para definir a cor do tipo de letra de uma tabela como azul escuro e a respetiva cor de fundo como cinzento 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.