Propiedad Form. DatasheetFontItalic (Access)Form.DatasheetFontItalic property (Access)

Puede usar la propiedad FuenteDeHojaDeDatosEnCursiva (DatasheetFontItalic) para especificar una apariencia en cursiva de los nombres de campo y los datos en la vista Hoja de datos.You can use the DatasheetFontItalic property to specify an italicized appearance for field names and data in Datasheet view. Boolean de lectura y escritura.Read/write Boolean.

SintaxisSyntax

expresión. FuenteDeHojaDeDatosEnCursiva (DatasheetFontItalic )expression.DatasheetFontItalic

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

ComentariosRemarks

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

Esta propiedad sólo está disponible en Visual Basic dentro de una base de datos de Microsoft Access.This property is only available in Visual Basic within a Microsoft Access database.

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 muestran los datos y los nombres de los campos en la vista Hoja de datos del formulario productos en cursiva y subrayados.The following example displays the data and field names in Datasheet view of the Products form as italic and underlined.

Forms![Products].DatasheetFontItalic = True 
Forms![Products].DatasheetFontUnderline = True

El siguiente ejemplo muestra los datos y los nombres de los campos en la vista **** hoja de datos de la tabla Products en cursiva y subrayados.The following example displays the data and field names in Datasheet view of the Products table as italic and underlined. Para establecer las propiedades DatasheetFontItalic y DatasheetFontUnderline el ejemplo usa el procedimiento SetTableProperty , que está en el módulo estándar de base de datos.To set the DatasheetFontItalic and DatasheetFontUnderline properties, the example uses the SetTableProperty procedure, which is in the database's standard module.

Dim dbs As Object, objProducts As Object 
Const DB_Boolean As Long = 1 
Set dbs = CurrentDb 
Set objProducts = dbs![Products] 
SetTableProperty objProducts, "DatasheetFontItalic", DB_Boolean, True 
SetTableProperty objProducts, "DatasheetFontUnderline", DB_Boolean, True 
 
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

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.