Propriété Form.DatasheetBackColor (Access)
Utilisez la propriété DatasheetBackColor en Visual Basic pour spécifier ou déterminer la couleur d’arrière-plan d’une table, d’une requête ou d’un formulaire entier en mode Feuille de données dans une base de données Microsoft Access. Long (en lecture/écriture).
Syntaxe
expression. Feuille de donnéesBackColor
expressionVariable qui représente un objetForm.
Remarques
Les informations de paramètre suivantes s’appliquent à la base de données Microsoft Access et aux projets Access (.adp).
Définition de la propriété DatasheetBackColor 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 .
Remarque
Lorsque vous ajoutez ou définissez une propriété avec un astérisque, Access l’ajoute automatiquement à la collection Properties .
| propriété | propriété |
|---|---|
| DatasheetBackColor | Feuille de donnéesFontUnderline * |
| DatasheetCellsEffect | Feuille de donnéesFontWeight * |
| Feuille de donnéesFontHeight * | DatasheetForeColor * |
| Feuille de donnéesFontItalic * | DatasheetGridlinesBehavior |
| DatasheetFontName * | DatasheetGridlinesColor |
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.