Hallo
Ich versuche in meinen Code zu kürzen wenn das überhaupt geht.
Es ist eine --> IF Then Else End IF Anweisung
Ziel wäre es, alle Me! Felder die mit Me!ZuDT15ou beginnen mit like zu ergänzen.
If Me!Ausführung = "DT15ou" Then
Me!ZuDT15ouRahmenbreite.Visible = True
Me!ZuDT15ouRahmenhöhe.Visible = True
Me!ZUDT15ouFlügelbreite.Visible = True
Me!ZUDT15ouFlügelbreiteu.Visible = True
Else
Me!ZuDT15ouRahmenbreite.Visible = False
Me!ZuDT15ouRahmenhöhe.Visible = False
Me!ZUDT15ouFlügelbreite.Visible = False
Me!ZUDT15ouFlügelbreiteu.Visible = False
End IF
Ich stell mir das so vor:
Me! Like ""ZuDT15ou" & "*" .Visible = True
Geht nur leider nicht.
Gibt es da eine Lösung?
|