select flere tekstbokse, og gør dem visible.false

Alle tekstbokse i den aktuelle form:

Dim frm As Form, ctl As Control
Set frm = Screen.ActiveForm
For Each ctl In frm
If ctl.ControlType = acTextBox Then ctl.Visible = False
Next ctl

Alle kontrolelementer i den aktuele form:

Dim frm As Form, ctl As Control
Set frm = Screen.ActiveForm
For Each ctl In frm
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Or ctl.ControlType = acOptionGroup Or ctl.ControlType = acCheckBox Or ctl.ControlType = acOptionButton Then ctl.Visible = False
Next ctl

>>mugs
Hvis det er alle kontrolelementer i den aktuele form skal den bare hedde:

For Each ctl In frm
ctl.Visible = False
Next ctl

....så skjuler den også labels, ActiveX m.v.

Hvad er der galt med:
for a = 1 to 5
  me.controls("Tekst" & A).visible = False
next a

Ud fra opgavebeskrivelsen, vil jeg også mene, at fdata's svar er det mest korrekte. Dog vil jeg tillade mig at simplificere det en smule (hvilket jeg selvfølgelig ikke ønsker noget credit for):

Dim a as byte
for a = 1 to 5
  me("Tekst" & a).visible = False
next a

Omvendte kræver det at felterne er navngivet som "Tekst1" m.fl., hvilket er dårlig navngivningsstil og efterfølgende dårlig kodestil.

Jeg ville i stedet sætte egenskaben "Mærke" på tekstboksene til f.eks. "Skjul", og så lade koden se således ud:
Dim ctrl as Control
For each ctrl in Me
  If ctrl.tag = "Skjul" then ctrl.visible = false
Next ctrl

Derved kan man navngive felterne med nogle fornuftige navne og uden videre tilføje flere felter uden at skulle ændre i koden.

/Thomas