Propriété Form.DatasheetFontHeight (Access)

Article
04/07/2023

Utilisez la propriété DatasheetFontHeight pour spécifier la taille de point de police utilisée pour afficher et imprimer les noms de champs et les données en mode Feuille de données. Entier en lecture/écriture.

Syntaxe

expression. Feuille de donnéesFontHeight

expressionVariable qui représente un objetForm.

Remarques

Cette propriété est disponible uniquement dans une base de données Microsoft Access.

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 . Par exemple, MS Sans Serif est disponible qu'en 8, 10, 12, 14, 18 et 24 points.

Le tableau suivant contient les propriétés qui n’existent pas dans la collection DAO Properties tant que vous ne les définissez pas à l’aide de la barre d’outils Mise en forme (feuille de données), ou que vous pouvez les ajouter dans une base de données Access (.mdb) à l’aide de la méthode CreateProperty et l’ajouter à la collection DAO Properties .

Propriétés	Propriétés continuées
Feuille de donnéesFontItalic *	DatasheetForeColor *
Feuille de donnéesFontHeight *	DatasheetBackColor
DatasheetFontName *	DatasheetGridlinesColor
Feuille de donnéesFontUnderline *	DatasheetGridlinesBehavior
Feuille de donnéesFontWeight *	DatasheetCellsEffect

Remarque

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

Exemple

L’exemple suivant définit la police sur MS Serif, la taille de police sur 10 points et l’épaisseur de police sur moyenne (500) en mode Feuille de données de la table 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

L’exemple suivant apporte les mêmes modifications que l’exemple précédent en mode Feuille de données du formulaire Produits ouvert.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette 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.