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.