Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
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 03/01/2011, 17h34   #1
Membre à l'essai
 
Inscription : octobre 2010
Messages : 74
Détails du profil
Informations forums :
Inscription : octobre 2010
Messages : 74
Points : 20
Points : 20
Par défaut Syntaxe du type : "variable".ForeColor

Bonjour,

Je suis en train d'adapter une procédure dont le but est de changer la police d'un label.
J'utilise le code suivant :

Code :
1
2
3
4
5
6
7
8
9
With Police_choisie 'Recupere la police actuelle pour alimenter les valeurs par défaut de la boîte de dialogue
    .Barre = False
    .Couleur = Label_en_cours.ForeColor
    .Gras = Label_en_cours.FontBold
    .Italique = Label_en_cours.FontItalic
    .Souligne = Label_en_cours.FontUnderline
    .Taille = Label_en_cours.FontSize
    .Nom = Label_en_cours.FontName
End With
Le problème, c'est que "Label_en_cours" est une variable que j'ai défini en type "string". J'obtiens ainsi le message d'erreur suivant :

Citation:
compil error : invalid qualifer
Savez-vous comment définir ma variable pour éviter ce problème ?

Merci d'avance,

Tifriis
Tifriis est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/01/2011, 18h40   #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,

Si tu es dans un formulaire, tu peux passer par la collection Controls.
Code :
1
2
Dim Label_en_cours As String
Label_en_cours = "lblLeLabel"
Pour faire référence au contrôle dont le nom est dans la variable Label_en_cours :
Code :
Me.Controls(Label_en_cours)
A+
LedZeppII est déconnecté   Envoyer un message privé Réponse avec citation 20
Vieux 04/01/2011, 09h57   #3
Membre à l'essai
 
Inscription : octobre 2010
Messages : 74
Détails du profil
Informations forums :
Inscription : octobre 2010
Messages : 74
Points : 20
Points : 20
Merci beaucoup pour votre réponse LedZeppII, c'est tout à fait la syntaxe que je recherchais !

A bientôt.

Tifriis
Tifriis 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 15h13.


 
 
 
 
Partenaires

Hébergement Web