Группировка элементов управления в форме доступа Включить

Question

Как я могу сократить этот код? Я уже поставил их имя тега как Group_Sal1?

Public Function Salary_Text_Editable() 
    Me.BasicSal.Enabled = True 
    Me.HouseAllow.Enabled = True 
    Me.TransAllow.Enabled = True 
    Me.PetrolAllow.Enabled = True 
    Me.AirfareAllow.Enabled = True 
    Me.MobileAllow.Enabled = True 
    Me.COLA.Enabled = True 
    Me.OtherAllow.Enabled = True 
    Me.SiteAllow.Enabled = True 
    Me.RemoteAllow.Enabled = True 
    Me.FoodAllow.Enabled = True 
    Me.EWOT.Enabled = True 
    Me.SaudiAllow.Enabled = True 
    Me.QatarAllow.Enabled = True 
    Me.BaynunahAllow.Enabled = True 
    End Function 

Answer 1

Loop через Controls коллекции формы и изучить Tag свойства каждого из них. Включите элемент управления, если его тег соответствует «Group_Sal1».

Public Function Salary_Text_Editable() 
    Dim ctl As Control 
    For Each ctl In Me.Controls 
     If ctl.Tag = "Group_Sal1" Then 
      ctl.Enabled = True 
     End If 
    Next 
End Function