Propiedad Form.DatasheetFontHeight (Access)

Utilice la propiedad DatasheetFontHeight para especificar el tamaño del punto de fuente usado para mostrar e imprimir los nombres de campo y los datos en la vista Hoja de datos. Valor Entero de lectura y escritura.

Sintaxis

expresión. DatasheetFontHeight

expresión Variable que representa un objeto Form.

Comentarios

Esta propiedad sólo está disponible en una base de datos de Microsoft Access (.MDB).

Para la propiedad DatasheetFontHeight , el tamaño de fuente que especifique debe ser válido para la fuente especificada por la propiedad DatasheetFontName . Por ejemplo, MS Sans Serif está disponible sólo en puntos de tamaños de 8, 10, 12, 14, 18 y 24.

La tabla siguiente contiene las propiedades que no existen en la colección Propiedades de DAO hasta que las establezca mediante la barra de herramientas Formato (hoja de datos), o bien puede agregarlas a una base de datos de Access (.mdb) mediante el método CreateProperty y anexarla a la colección Propiedades de DAO .

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

Nota:

[!NOTA] Al agregar o establecer cualquier propiedad marcada con un asterisco, Microsoft Access agregará automáticamente todas las propiedades marcadas con asterisco a la colección Properties de la base de datos.

Ejemplo:

En el ejemplo siguiente se establece la fuente en MS Serif, el tamaño de fuente en 10 puntos y el peso de fuente en medio (500) en la vista Hoja de datos de la tabla Products .

Sub SetDatasheetFont 
 
 Dim dbs As Object, objProducts As Object 
 Set dbs = CurrentDb 
 Const DB_Text As Long = 10 
 Const DB_Integer As Long = 3 
 Set objProducts = dbs!Products 
 
 SetTableProperty objProducts, "DatasheetFontName", DB_Text, "MS Serif" 
 SetTableProperty objProducts, "DatasheetFontHeight", DB_Integer, 10 
 SetTableProperty objProducts, "DatasheetFontWeight", DB_Integer, 500 
 
End Sub 

Sub SetTableProperty(objTableObj As Object, strPropertyName As String, _ 
 intPropertyType As Integer, varPropertyValue As Variant) 
 ' Set Microsoft Access-defined table property without causing 
 ' nonrecoverable run-time error. 
 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 
 On Error GoTo 0 
 MsgBox "Couldn't set property '" & strPropertyName _ 
 & "' on table '" & objTableObj.Name & "'", 48, "SetTableProperty" 
 Else 
 On Error GoTo 0 
 Set prpProperty = objTableObj.CreateProperty(strPropertyName, _ 
 intPropertyType, varPropertyValue) 
 objTableObj.Properties.Append prpProperty 
 End If 
 End If 
 objTableObj.Properties.Refresh 
End Sub

En el ejemplo siguiente se hacen los mismos cambios que en el ejemplo anterior en la vista Hoja de datos del formulario Productos abierto.

Forms!Products.DatasheetFontName = "MS Serif" 
Forms!Products.DatasheetFontHeight = 10 
Forms!Products.DatasheetFontWeight = 500

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.