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.