Propiedad Form. EspesorDeFuenteDeHojaDeDatos (Access)Form.DatasheetFontWeight property (Access)

Puede usar la propiedad EspesorDeFuenteDeHojaDeDatos (DatasheetFontWeight) para especificar el ancho de línea de la fuente utilizada para mostrar e imprimir los caracteres de los nombres de campo y datos en la vista Hoja de datos.You can use the DatasheetFontWeight property to specify the line width of the font used to display and print characters for field names and data in Datasheet view. Integer de lectura y escritura.Read/write Integer.

SintaxisSyntax

expresión. EspesorDeFuenteDeHojaDeDatos (DatasheetFontWeight )expression.DatasheetFontWeight

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

ComentariosRemarks

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.The DatasheetFontWeight property applies to all fields in Datasheet view and to form controls when the form is in Datasheet view.

Estas propiedades sólo están disponibles en Visual Basic en una base de datos de Microsoft Access (.mdb).These properties are only available in Visual Basic within a Microsoft Access database.

En Visual Basic, la propiedad DatasheetFontWeight puede tomar los siguientes valores enteros.In Visual Basic, the DatasheetFontWeight property setting uses the following Integer values.

ConfiguraciónSetting DescripciónDescription
100100 DelgadoThin
200200 Extra-finoExtra Light
300300 FinoLight
400400 (Valor predeterminado) Normal(Default) Normal
500500 MedianoMedium
600600 Semi-negritaSemi-bold
700700 NegritaBold
800800 Extra-negritaExtra Bold
900900 GruesoHeavy

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.

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

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.When you add or set any property listed with an asterisk, Microsoft Access automatically adds all the properties listed with an asterisk to the Properties collection of the database.

EjemploExample

En el siguiente ejemplo se establece la fuente en MS serif, el tamaño de fuente en 10 puntos y el espesor de fuente en media (500) en la vista **** hoja de información de la tabla Products.The following example sets the font to MS Serif, the font size to 10 points, and the font weight to medium (500) in Datasheet view of the Products table.

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 realizan los mismos cambios que en el ejemplo anterior de la vista Hoja de información del formulario productos abiertos.The following example makes the same changes as the preceding example in Datasheet view of the open Products form.

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

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.