PDA

Vollständige Version anzeigen : Optionsgruppe: Farbe ändern


viva-bavaria
24.03.2006, 20:26
Hallo zusammen,

ich habe ca 33 Optionsgruppen in meinem Formular.

nach dem klicken eines Buttons, soll überprüft werden ob alle Gruppen auch angeklickt wurden.

Wenn eine Gruppe nicht angeklickt wurde, dann soll diese farblich hervorgehoben werden.

Ich habe mir folgenden Code überlegt:

For a = 1 To 33
x = Me("txt_" & a)
If IsNull(x) Then
Me("quest_" & a).BackColor = vbRed
End If
Next a

quest_ heitßt die Optionsgruppe, halt durchnummerriert.

Leider verändert sich die Farbe nicht.

Kann mir jemand einen Tipp geben?

Danke Stefan

Leseratte
24.03.2006, 20:32
Du hast sicher in den Eigenschaften, der Optionspruppen, Hintergrundart Transparent stehen. ändere es in Normal.

viva-bavaria
24.03.2006, 20:40
Ja du hattest recht!!

DANKE.

kama
24.03.2006, 20:52
Ungetestet
For a = 1 To 33
x = "Me!" & "quest_" & a
b= x & ".Backcolor"
b= IIf (IsNull(x),vbRed)
Next a