Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 28/06/2011, 07h29   #1
Candidat au titre de Membre du Club
 
Homme
Inscription : mai 2007
Messages : 72
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : Belgique

Informations forums :
Inscription : mai 2007
Messages : 72
Points : 11
Points : 11
Par défaut [Ruban] Afficher une donnée



Petite question, que je n'ai pas trouvé la réponse dans la FAQ ni les tutos sur le ruban...

Comment faire pour afficher une donnée d'une table dans un label du ruban ?

de vos lumières
__________________
Zozo29

C'est en développant qu'on devient développeur...
zozo29 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 28/06/2011, 18h26   #2
Rédacteur
 
Avatar de LedZeppII
 
Homme
Maintenance données produits
Inscription : décembre 2005
Messages : 3 939
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Yvelines (Île de France)

Informations professionnelles :
Activité : Maintenance données produits
Secteur : Distribution

Informations forums :
Inscription : décembre 2005
Messages : 3 939
Points : 6 278
Points : 6 278
Bonjour,

Il faut utiliser une fonction de rappel GetLabel dont voici la signature :
Code :
Sub GetLabel(control As IRibbonControl, ByRef label)
Je crois qu'il y a un exemple dans le tutoriel Création de rubans personnalisés sous Microsoft Access 2007
dans la partie V.C.3

A+
LedZeppII est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 29/06/2011, 07h03   #3
Candidat au titre de Membre du Club
 
Homme
Inscription : mai 2007
Messages : 72
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : Belgique

Informations forums :
Inscription : mai 2007
Messages : 72
Points : 11
Points : 11
Super, ça fonctionne !


Dernières questions à ce sujet :
  1. la valeur affichée peut-elle être mise à jour si elle change dans une table ?
  2. Peut-on appliquer une mise en forme ( gras / couleur ) ?

D'après les tutos, non, mais...

de vos réponses.
__________________
Zozo29

C'est en développant qu'on devient développeur...
zozo29 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 29/06/2011, 18h39   #4
Rédacteur
 
Avatar de LedZeppII
 
Homme
Maintenance données produits
Inscription : décembre 2005
Messages : 3 939
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Yvelines (Île de France)

Informations professionnelles :
Activité : Maintenance données produits
Secteur : Distribution

Informations forums :
Inscription : décembre 2005
Messages : 3 939
Points : 6 278
Points : 6 278
Bonjour,

Je vais répondre en fonction de ce que je connais.
  1. Pour forcer la mise à jour du label, il faut invalider, soit le contrôle, soit le ruban.
    Cela implique que tu dois mémoriser le ruban dans une variable objet.
    C'est la partie VII
  2. Je n'ai jamais vu d'attributs de mise en forme du texte.
    J'aurai donc tendance à dire non.
A+
LedZeppII est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 29/06/2011, 19h44   #5
Candidat au titre de Membre du Club
 
Homme
Inscription : mai 2007
Messages : 72
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : Belgique

Informations forums :
Inscription : mai 2007
Messages : 72
Points : 11
Points : 11
Merci de ta réponse !

Vu que j'ai plusieurs label à changer vaut mieux faire le ruban en entier...

Bon, dans le module du ruban, j'ai mis :

Code :
1
2
3
4
5
6
7
8
Option Compare Database
Public oMonRuban As IRibbonUI
 
'[Le reste du code]
 
Sub Ribbon_OnLoad(ribbon As IRibbonUI)
Set oMonRuban = ribbon
End Sub
Ensuite, le xml contient ceci :
Code :
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="Ribbon_OnLoad">
Et au moment de changer les données, là où je veux, j'insère dans ma procédure

Code :
If Not oMonRuban Is Nothing Then oMonRuban.Invalidate
Dans mes tests cela semble aller.

Je me suis pas trompé ?

Pour la mise en forme, je m'en doutais.
Espérons que ça soit possible dans une autre version :p
__________________
Zozo29

C'est en développant qu'on devient développeur...
zozo29 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 30/06/2011, 19h14   #6
Rédacteur
 
Avatar de LedZeppII
 
Homme
Maintenance données produits
Inscription : décembre 2005
Messages : 3 939
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Yvelines (Île de France)

Informations professionnelles :
Activité : Maintenance données produits
Secteur : Distribution

Informations forums :
Inscription : décembre 2005
Messages : 3 939
Points : 6 278
Points : 6 278
Bonsoir,

Citation:
Envoyé par zozo29 Voir le message
Je me suis pas trompé ?
Non, c'est bien ça le principe, pour forcer le ruban à appeler les fonctions de rappel.

A+
LedZeppII est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 02h07.


 
 
 
 
Partenaires

Hébergement Web