Propriété Form.DatasheetFontWeight (Access)

Article
04/07/2023

Utilisez la propriété DatasheetFontWeight pour spécifier la largeur de ligne de la police utilisée pour afficher et imprimer des caractères pour les noms de champs et les données en mode Feuille de données. Entier en lecture/écriture.

Syntaxe

expression. Feuille de donnéesFontWeight

expressionVariable qui représente un objetForm.

Remarques

La propriété DatasheetFontWeight s'applique à tous les champs en mode feuille de données et aux contrôles de formulaire lorsque celui-ci est en mode feuille de données.

Ces propriétés sont disponibles uniquement en Visual Basic dans une base de données Microsoft Access.

Dans Visual Basic, la propriété DatasheetFontWeight utilise les valeurs de type Integer suivantes.

Paramètre	Description
100	Fin
200	Très maigre
300	Maigre
400	(Par défaut) Standard
500	Moyen
600	Demi-gras
700	Gras
800	Très gras
900	Très actif

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 vous pouvez les ajouter à une base de données Access à 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.

Partager via