Les couleurs avec du code dans MS Access

Bonjour membres du forum !
Très content de revenir vous consulter !

Question:
Comment colorier les textes, les contrôles (étiquettes, zones de textes, bordures et fonds ), etc. avec du code dans Access 2013 ?
Cordialement.

Bonjour,
Soit en mode Création en sélectionnant les contrôles concernés et en utilisant le menu Format.
Soit en mode Création en sélectionnant les contrôles concernés et ne agissant sur les propriétés ad-hoc.
Soit via VBA en agissant sur les propriétés ad-hoc des contrôles concernés.
Cordialement,

Salut membres du forum !
Voici une idée de Code numérique ou alpha-numérique de chaque couleur que je recherche.
Exemple:
dans le code suivant, j'essaie de faire une variation de couleurs dans l'affichage d'une étiquette selon un critère:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Form_Current() If IsNull(Me.NiveauAr) And IsNull(Me.NiveauFr) Then Me.EtiquetteconfirmationInscription.Caption = "N'est pas inscrit(e) cette année au " & Me.Cours_Suivis.Column(1) Me.EtiquetteconfirmationInscription.BorderColor = vbRed End If If Not IsNull(Me.NiveauAr) And Not IsNull(Me.NiveauFr) Then Me.EtiquetteconfirmationInscription.Caption = "Est inscrit(e) cette année au " & Me.Cours_Suivis.Column(1) Me.EtiquetteconfirmationInscription.BorderColor = 32768 '2054402 'vbGreen End If End Sub

---

Donc, je voudrais créer une table dans laquelle je pourrais insérer les couleurs et leurs références numérique ou alpha-numérique.
Cette table aura 5champs (NumAuto, CouleurChoisie, CodeNumerique, CodeAlphaNumerique, NomCouleur).
Cela me permettra de savoir la valeur numérique ou alpha-numérique de chaque couleur depuis les versions Access 2000 jusqu'aux plus
récentes.
Cordialement.

Quelle est la question précise ?

Citation:

---

Envoyé par loufab

Quelle est la question précise ?

---

Bonsoir loufab,
La voici:

Citation:

---

je souhaite créer une table dans laquelle je pourrais insérer les couleurs et leurs références numérique ou alpha-numérique.
Cette table aura 5 champs (NumAuto, CouleurChoisie, CodeNumerique, CodeAlphaNumerique, NomCouleur).
Cela me permettra de savoir la valeur numérique ou alpha-numérique de chaque couleur depuis les versions Access 2000 jusqu'aux plus
récentes.

---

Pièce jointe 546190
Pièce jointe 546192
Pièce jointe 546193

Vous savez avec Access 2000 à 2003 les couleurs était codées par exemple: "32768" ou "2054402" ou "vbRed", "vbGreen"...
maintenant, depuis Access 2007 à 2013 les couleurs sont codées ainsi par exemple: "#FFFFFF".
Alors comment pourrais je programmer une table(NumAuto, CouleurChoisie, CodeNumerique, CodeAlphaNumerique, NomCouleur) enregistrant les différentes couleurs et leurs codes tel qu'expliqué ?

Cordialement.

Bonjour à tous,

Si vous souhaitez afficher le code numérique (entier long) à partir du code alphanumérique :

Par exemple, si vous avez le code alphanumérique :

CodeAlphanumerique = "#00FFFF"

Il faut retirer le 1er caractère ("#"), et mettre "&h" devant, puis convertir ce résultat en entier long :

Code:

---

CodeNumerique = CLng("&h" & Mid(CodeAlphanumerique, 2))

---

Inversement, pour obtenir un hexa à partir d'une entier, j'ai trouvé ceci :

Code:

---

CodeAlphanumerique= "#" & Right("000000" & Hex(CodeNumerique), 6)

---

Ensuite, pour colorier les couleurs choisies sur la zone de texte "CouleurChoisie", il faudrait :

• Programmer en VBA l'ouverture d'une boîte de dialogue pour choisir la couleur et enregistrer son code au format hexa et long (par ex. sur double-clic).
• Programmer en VBA la mise en forme conditionnelle appliquée à votre champ "CouleurChoisie".

C'est pas simple..