PDA

Vollständige Version anzeigen : Optionsfelder mit text steuern


Wile E G
10.07.2001, 10:47
hi

ich hab ein Feld Arbeitsplatz darin steht z.b. A2
ich hab auch ein Optionsfeld mit Namen OptA2

so, nun möchte ich, daß OptA2 = true ist, wenn im arbeitsplatz A2 angezeigt wird.
so weit so gut. ist ja eigentlich ganz einfach. jetzt habe ich aber im feld arbeitsplatz noch so ca 50 bezeichnungen und auch ca 50 optionsfelder, wenn ich jetzt anfang jedes feld mit select case abzufragen werde ich dabbich.

meine idee war dann folgende:
Private Sub Form_Current()
Dim Aplatz
Aplatz = Me!Arbeitsplatz

Me!Opt"Aplatz" = True

End Sub

das ist natürlich von der syntax her quatsch, aber wie gehts richtig???
für vorschläge bin ich sehr dankbar.
gruß wile e.g.

Kurt aus Kienitz
10.07.2001, 10:58
Hallo,

Sollte ungefähr so gehen:

Private Sub Form_Current()
Dim Aplatz
Aplatz = Me!Arbeitsplatz

Me.Controls("Opt" & Aplatz) = True

End Sub

Wile E G
10.07.2001, 11:02
super!!!
funktioniert wunderprächtig, danke kurt!!!!

gruß wile e.g.