Propiedad Form. DatasheetForeColor (Access)Form.DatasheetForeColor property (Access)

Puede utilizar 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.You can use the DatasheetForeColor property in Visual Basic to specify or determine the color of all text in a table, query, or form in Datasheet view within an Access database. Long de lectura y escritura.Read/write Long.

SintaxisSyntax

expresión. DatasheetForeColorexpression.DatasheetForeColor

expresión Variable que representa un objeto Form.expression A variable that represents a Form object.

ObservacionesRemarks

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.Setting the DatasheetForeColor property for a table or query won't affect this property setting for a form that uses the table or query as its source of data.

La tabla siguiente contiene las propiedades que no se encuentran en la colección Properties de DAO hasta que las establezca mediante la barra de herramientas formato (hoja de datos), o puede agregarlas a una base de datos de Access mediante el método CreateProperty y anexarla a la colección Properties de DAO.The following table contains the properties that don't exist in the DAO Properties collection until you set them by using the Formatting (Datasheet) toolbar, or you can add them in an Access database by using the CreateProperty method and append it to the DAO Properties collection.

DatasheetBackColorDatasheetBackColor FuenteDeHojaDeDatosSubrayada *DatasheetFontUnderline *
DatasheetCellsEffectDatasheetCellsEffect Tomar *DatasheetFontWeight *
DatasheetFontHeight *DatasheetFontHeight * DatasheetForeColor *DatasheetForeColor *
FuenteDeHojaDeDatosEnCursiva *DatasheetFontItalic * DatasheetGridlinesBehaviorDatasheetGridlinesBehavior
DatasheetFontName *DatasheetFontName * DatasheetGridlinesColorDatasheetGridlinesColor

Nota

Cuando se agregan o se establecen las propiedades marcadas con un asterisco, Access la agrega automáticamente a la colección Properties .When you add or set any property listed with an asterisk, Access automatically adds it to the Properties collection.

EjemploExample

En el siguiente ejemplo, se usa el procedimiento SetTableProperty para establecer el color de fuente de una tabla como azul oscuro y el color de fondo en gris claro.The following example uses the SetTableProperty procedure to set a table's font color to dark blue and its background color to light gray. 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.If a "Property not found" error occurs when the property is set, the CreateProperty method is used to add the property to the object's Properties collection.

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 comentariosSupport and feedback

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación?Have questions or feedback about Office VBA or this documentation? 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.