kleuren in access wijzigen

[Snabugje]

Hallo beste experts,

Ik zoek een simpelere oplossing voor kwestie dan dat ik in gedachte heb.
Ik wil namelijk labels van tekstvelden tegelijk laten wijzigen van kleur in VBA.
maar dan niet zo:

dim clr as variant
clr = RGB(0,0,0)
with me
    .label1.backcolor = clr
    .label2.backcolor = clr
    .label3.backcolor = clr
    .label4.backcolor = clr      [COLOR="green"]'en ga zo maar door[/COLOR]
end with

is er een manier om deze handeling korter te maken??
plz help me!!

gr
Snabugje

 

[snb]

For j= 1 to 20
  Me("label" & j).backcolor = RGB(0,0,0)
Next

 

[Snabugje]

Hallo snb,

Hartelijk dank voor je snelle reactie
dit is wel een hele simpele oplossing, ik zat dus veel te moeilijk te denken

Bedankt!!:thumb:

gr
Snabugje

 

[snb]

Het resultaat lijkt simpel, de oplossing (het proces) is dat niet.