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 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.
Je ne Suis Pas un Expert en Programmation
Le savoir est la lumière de l'esprit
Le chemin de la réussite
Les savants sont les héritiers de la science
Qui cherche positivement trouve
Tout ce qui brille n'est pas l'or ou diamant
Mais l'or et le diamant se trouvent avec sagesse, intelligence et effort
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,
Détecter les modifications formulaire Cloud storage et ACCESS
Classe MELA(CRUD) Opérateur IN et zone de liste Opérateur LIKE
Visitez mon Blog
Les questions techniques par MP ne sont pas lues et je ne pratique pas la bactériomancie
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:
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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.
Je ne Suis Pas un Expert en Programmation
Le savoir est la lumière de l'esprit
Le chemin de la réussite
Les savants sont les héritiers de la science
Qui cherche positivement trouve
Tout ce qui brille n'est pas l'or ou diamant
Mais l'or et le diamant se trouvent avec sagesse, intelligence et effort
Quelle est la question précise ?
Détecter les modifications formulaire Cloud storage et ACCESS
Classe MELA(CRUD) Opérateur IN et zone de liste Opérateur LIKE
Visitez mon Blog
Les questions techniques par MP ne sont pas lues et je ne pratique pas la bactériomancie
Bonsoir loufab,
La voici:
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.
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.
Je ne Suis Pas un Expert en Programmation
Le savoir est la lumière de l'esprit
Le chemin de la réussite
Les savants sont les héritiers de la science
Qui cherche positivement trouve
Tout ce qui brille n'est pas l'or ou diamant
Mais l'or et le diamant se trouvent avec sagesse, intelligence et effort
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 :
Inversement, pour obtenir un hexa à partir d'une entier, j'ai trouvé ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part CodeNumerique = CLng("&h" & Mid(CodeAlphanumerique, 2))
Ensuite, pour colorier les couleurs choisies sur la zone de texte "CouleurChoisie", il faudrait :
Code : Sélectionner tout - Visualiser dans une fenêtre à part CodeAlphanumerique= "#" & Right("000000" & Hex(CodeNumerique), 6)
- 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..
Vous trouverez dans la FAQ, les sources ou les tutoriels, de l'information accessible au plus grand nombre, plein de bonnes choses à consulter sans modération
Des tutoriels pour apprendre à créer des formulaires de planning dans vos applications Access :
Gestion sur un planning des présences et des absences des employés
Gestion des rendez-vous sur un calendrier mensuel
Importer un fichier JSON dans une base de données Access :
Import Fichier JSON
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager