Propriété Form. DatasheetFontHeight (Access)Form.DatasheetFontHeight property (Access)

Vous pouvez utiliser la propriété DatasheetFontHeight pour spécifier la taille de point de police utilisée pour afficher et afficher les noms des champs print et les données de feuille de données.You can use the DatasheetFontHeight property to specify the font point size used to display and print field names and data in Datasheet view. En lecture/écriture entier.Read/write Integer.

SyntaxeSyntax

expression. DatasheetFontHeightexpression.DatasheetFontHeight

_expression_Variable qui représente un objet**Form**.expression A variable that represents a Form object.

RemarquesRemarks

Cette propriété est disponible uniquement dans une base de données Microsoft Access.This property is only available within a Microsoft Access database.

Pour la propriété DatasheetFontHeight , la taille de police que vous spécifiez doit être valide pour la police spécifiée par la propriété DatasheetFontName .For the DatasheetFontHeight property, the font size that you specify must be valid for the font specified by the DatasheetFontName property. Par exemple, MS Sans Serif est disponible qu'en 8, 10, 12, 14, 18 et 24 points.For example, MS Sans Serif is available only in sizes 8, 10, 12, 14, 18, and 24 points.

Le tableau suivant contient les propriétés qui n'existent pas dans la collection DAO Properties tant que vous ne les avez pas définies à l'aide de la barre d'outils mise en forme (feuille de données) ou vous pouvez les ajouter dans une base de données Access (. mdb) à l'aide de CreateProperty et l'ajouter à la collection DAO Properties .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 (.mdb) by using the CreateProperty method and append it to the DAO Properties collection.

DatasheetFontItalic *DatasheetFontItalic * DatasheetForeColor *DatasheetForeColor *
DatasheetFontHeight *DatasheetFontHeight * DatasheetBackColorDatasheetBackColor
DatasheetFontName *DatasheetFontName * DatasheetGridlinesColorDatasheetGridlinesColor
DatasheetFontUnderline *DatasheetFontUnderline * DatasheetGridlinesBehaviorDatasheetGridlinesBehavior
DatasheetFontWeight *DatasheetFontWeight * DatasheetCellsEffectDatasheetCellsEffect

Notes

[!REMARQUE] Lorsque vous ajoutez ou définissez une propriété accompagnée d'un astérisque, Microsoft Access ajoute automatiquement toutes les propriétés indiquées par un astérisque à la collection Properties de la base de données.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.

ExempleExample

L'exemple suivant définit la police à MS Serif, la taille de la police à 10 points et l'épaisseur de la police à moyen (500) dans le mode feuille de donnees de la table 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

L'exemple suivant effectue les mêmes modifications que l'exemple précédent en mode feuille de donnees du formulaire Products ouvert.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

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this documentation? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.