Propriété Form.DatasheetFontHeight (Access)
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 .
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour