Propriété Form.DatasheetForeColor (Access)

Article
04/07/2023

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.