Compartir a través de

Propiedad Form.DatasheetFontWeight (Access)

  • Artículo

Utilice la propiedad DatasheetFontWeight para especificar el ancho de línea de la fuente utilizada para mostrar e imprimir caracteres para los nombres de campo y los datos en la vista Hoja de datos. Valor Entero de lectura y escritura.

Sintaxis

expresión. DatasheetFontWeight

expresión Variable que representa un objeto Form.

Comentarios

La propiedad DatasheetFontWeight se aplica a todos los campos en la vista Hoja de datos y a los controles de formularios cuando el formulario está en vista Hoja de datos.

Estas propiedades sólo están disponibles en Visual Basic en una base de datos de Microsoft Access (.mdb).

En Visual Basic, la propiedad DatasheetFontWeight puede tomar los siguientes valores enteros.

Configuración Descripción
100 Delgado
200 Extra-fino
300 Fino
400 (Valor predeterminado) Normal
500 Mediano
600 Semi-negrita
700 Negrita
800 Extra-negrita
900 Intenso

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
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.