Propriété Form.DatasheetForeColor (Access)
Utilisez la propriété DatasheetForeColor en Visual Basic pour spécifier ou déterminer la couleur de tout le texte d’une table, d’une requête ou d’un formulaire en mode Feuille de données dans une base de données Access. Long (en lecture/écriture).
Syntaxe
expression. DatasheetForeColor
expressionVariable qui représente un objetForm.
Remarques
Définition de la propriété DatasheetForeColor pour une table ou une requête n'affecte pas le paramétrage de cette propriété pour un formulaire qui utilise la table ou la requête en tant que source de données.
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 |
|---|---|
| DatasheetBackColor | Feuille de donnéesFontUnderline * |
| DatasheetCellsEffect | Feuille de donnéesFontWeight * |
| Feuille de donnéesFontHeight * | DatasheetForeColor * |
| Feuille de donnéesFontItalic * | DatasheetGridlinesBehavior |
| DatasheetFontName * | DatasheetGridlinesColor |
Remarque
Lorsque vous ajoutez ou définissez une propriété répertoriée avec un astérisque, Access l’ajoute automatiquement à la collection Properties .
Exemple
L’exemple suivant utilise la procédure SetTableProperty pour définir la couleur de police d’un tableau sur le bleu foncé et sa couleur d’arrière-plan sur le gris clair. Si une erreur « Propriété introuvable » se produit lorsque la propriété est définie, la méthode CreateProperty est utilisée pour ajouter la propriété à la collection Properties de l'objet.
Dim dbs As Object, objProducts As Object
Const lngForeColor As Long = 8388608 ' Dark blue.
Const lngBackColor As Long = 12632256 ' Light gray.
Const DB_Long As Long = 4
Set dbs = CurrentDb
Set objProducts = dbs!Products
SetTableProperty objProducts, "DatasheetBackColor", DB_Long, lngBackColor
SetTableProperty objProducts, "DatasheetForeColor", DB_Long, lngForeColor
Sub SetTableProperty(objTableObj As Object, strPropertyName As String, _
intPropertyType As Integer, varPropertyValue As Variant)
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
' Error is unknown.
MsgBox "Couldn't set property '" & strPropertyName _
& "' on table '" & tdfTableObj.Name & "'", vbExclamation, Err.Description
Err.Clear
Else
' Error is "Property not found", so add it to collection.
Set prpProperty = objTableObj.CreateProperty(strPropertyName, _
intPropertyType, varPropertyValue)
objTableObj.Properties.Append prpProperty
Err.Clear
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.