Partager via


Propriété Form.DatasheetFontUnderline (Access)

Utilisez la propriété DatasheetFontUnderline pour spécifier une apparence soulignée pour les noms de champs et les données en mode Feuille de données. Boolean (en lecture/écriture).

Syntaxe

expression. Feuille de donnéesFontUnderline

expressionVariable qui représente un objetForm.

Remarques

La propriété DatasheetFontUnderline 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.

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

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 affiche les noms des données et des champs en mode Feuille de données du formulaire Produits en italique et soulignés.

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

L’exemple suivant affiche les noms des données et des champs en mode Feuille de données de la table Products en italique et soulignés. Pour définir les propriétés DatasheetFontItalic et DatasheetFontUnderline , l’exemple utilise la procédure SetTableProperty , qui se trouve dans le module standard de la base de données.

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

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.