Propiedad Form.DatasheetForeColor (Access)
Use la propiedad DatasheetForeColor en Visual Basic para especificar o determinar el color de todo el texto de una tabla, consulta o formulario en la vista Hoja de datos dentro de una base de datos de Access. Long de lectura y escritura.
Sintaxis
expresión. Hoja de datosForeColor
expresión Variable que representa un objeto Form.
Comentarios
Al establecer la propiedad DatasheetForeColor para una tabla o consulta, ello no afectará a este valor de propiedad en un formulario que utilice la tabla o consulta como origen de datos.
La tabla siguiente contiene las propiedades que no existen en la colección Propiedades de DAO hasta que se establecen mediante la barra de herramientas Formato (hoja de datos), o bien puede agregarlas a una base de datos de Access mediante el método CreateProperty y anexarlas a la colección Propiedades de DAO.
| Propiedades | Propiedades continuadas |
|---|---|
| DatasheetBackColor | DatasheetFontUnderline * |
| DatasheetCellsEffect | DatasheetFontWeight * |
| DatasheetFontHeight * | Hoja de datosForeColor * |
| DatasheetFontItalic * | DatasheetGridlinesBehavior |
| DatasheetFontName * | DatasheetGridlinesColor |
Nota:
Al agregar o establecer cualquier propiedad enumerada con un asterisco, Access la agrega automáticamente a la colección Properties .
Ejemplo:
En el ejemplo siguiente se usa el procedimiento SetTableProperty para establecer el color de fuente de una tabla en azul oscuro y su color de fondo en gris claro. Si un error "No se encontró la propiedad" se produce cuando se establece la propiedad, se utiliza el método CreateProperty para agregar la propiedad a la colección Properties del 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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.