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.