Propiedad Form.DatasheetBackColor (Access)

Use la propiedad DatasheetBackColor en Visual Basic para especificar o determinar el color de fondo de toda una tabla, consulta o formulario en la vista Hoja de datos dentro de una base de datos de Microsoft Access. Long de lectura y escritura.

Sintaxis

expresión. DatasheetBackColor

expresión Variable que representa un objeto Form.

Comentarios

La siguiente información de configuración se aplica tanto a la base de datos de Microsoft Access como a los proyectos de Access (.adp).

Establece la propiedad DatasheetBackColor de 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.

Nota:

Al agregar o establecer cualquier propiedad con un asterisco, Access la agrega automáticamente a la colección Properties .

propiedad	propiedad
DatasheetBackColor	DatasheetFontUnderline *
DatasheetCellsEffect	DatasheetFontWeight *
DatasheetFontHeight *	Hoja de datosForeColor *
DatasheetFontItalic *	DatasheetGridlinesBehavior
DatasheetFontName *	DatasheetGridlinesColor

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.