Ich möchte gern bei bestimmte TextBoxen die Eigenschaften ändern. Dabei habe ich mir gedacht, _ entweder mit einer With-Anweisung zu arbeiten
Select Case btn_EditZulagen.Caption
'Editieren der Werte
Case "Edit"
With txt_Stand
'.BorderStyle = = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectSunken
.BackStyle = fmBackStyleOpaque
.Locked = False
End With
btn_EditZulagen.Caption = "OK"
With txt_ZulageFeiertag
End With
'Änderung abschließen
Case "OK"
With txt_Stand
'.BorderStyle = fmBorderStyleNone
.BackStyle = fmBackStyleTransparent
.SpecialEffect = fmSpecialEffectFlat
.Locked = True
End With
btn_EditZulagen.Caption = "Edit"
End Select
oder durch Vereinfachung mit einer Schleife. Als erstes wollte ich die bestimmten TB in ein Array einlesen und dann mit einer Schleife zu arbeiten.
Mein derzeitiger Stand ist
Private Sub btn_EditZulagen_Click()
Dim txtZulagen, i As Integer, ctrl As control
txtZulagen = Array(txt_ZulageSamstag, txt_ZulagenSonntag, txt_ZulagenFeiertag,, txt_Stand)
For Each ctrl In Me.Controls(txtZulagen)
With Me.Controls(txtZulagen)
.SpecialEffect = fmSpecialEffectSunken
.BackStyle = fmBackStyleOpaque
.Locked = False
End With
Next ctrl
End Sub
Habe ich (wieder) Gedankenfehler?Kann mir jemand auf die Sprünge helfen?
LG
Peer