Je souhaiterais créer une fonction dans un module qui mette en maigre tous
les controles dont le nom commence par "Etiq".
Pour l'instant, j'en suis réduit à écrire dans chaque formulaire la liste
des controles à remettre en maigre.
me.Etiqaaa.bold=false
me.Eiqbbb.bold=false
....
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"Bricoleur" a écrit
Je souhaiterais créer une fonction dans un module qui mette en maigre tous les controles dont le nom commence par "Etiq". Pour l'instant, j'en suis réduit à écrire dans chaque formulaire la liste des controles à remettre en maigre. me.Etiqaaa.boldúlse me.Eiqbbb.boldúlse ....
Il y a surement mieux à faire.
Oui... mais plus cher ;-))
Dim c As Control For Each c In Me.Controls If c.ControlType = acTextBox Then c.FontBold = False ' True End If Next
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
Salut,
"Bricoleur" <_pas_jneron@wanadoo.fr> a écrit
Je souhaiterais créer une fonction dans un module qui mette en maigre tous
les controles dont le nom commence par "Etiq".
Pour l'instant, j'en suis réduit à écrire dans chaque formulaire la liste
des controles à remettre en maigre.
me.Etiqaaa.boldúlse
me.Eiqbbb.boldúlse
....
Il y a surement mieux à faire.
Oui... mais plus cher ;-))
Dim c As Control
For Each c In Me.Controls
If c.ControlType = acTextBox Then
c.FontBold = False ' True
End If
Next
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
Je souhaiterais créer une fonction dans un module qui mette en maigre tous les controles dont le nom commence par "Etiq". Pour l'instant, j'en suis réduit à écrire dans chaque formulaire la liste des controles à remettre en maigre. me.Etiqaaa.boldúlse me.Eiqbbb.boldúlse ....
Il y a surement mieux à faire.
Oui... mais plus cher ;-))
Dim c As Control For Each c In Me.Controls If c.ControlType = acTextBox Then c.FontBold = False ' True End If Next
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
