title image


Smiley Dein Beipielcode als Schleife ...
Hallo Jokii,









Private Sub opt_gruppe_Click()

  Dim i As Long



  For i = 1 To 5

    Me.Controls("kon" & i & "_voi").Visible = (Me!opt_gruppe = 1)

    Me.Controls("konin" & i & "_voi").Visible = (Me!opt_gruppe = 1)

    If i < 5 Then

      Me.Controls("kon" & i & "_desk").Visible = (Me!opt_gruppe = 2)

      Me.Controls("konin" & i & "_desk").Visible = (Me!opt_gruppe = 2)

    End If

  Next

End Sub





Code eingefügt mit Syntaxhighlighter 4.0







Wenn Du, wie Du schreibst, noch mehr Werte in Deiner Optionsgruppe hast, dann könnte man innerhalb der For-Schleife ggf. zusätzlich mit 'ner Select Case-Struktur arbeiten (siehe OH).



Gruss
scotty

I´m an admin. If you see me laughing, you should better have a backup.
Einen Fehler machen und ihn nicht korrigieren - das erst heisst wirklich einen Fehler machen.
Konfuzius


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: