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.