組合代碼縮短

Question

我在我的表格如下代碼：

   txtFrontname.Locked = False 
      txtFrontname.BorderStyle = 4 
      txtFrontname.BorderColor = RGB(255, 165, 0) 

      txtLastname.Locked = False 
      txtLastname.BorderStyle = 4 
      txtLastname.BorderColor = RGB(255, 165, 0) 

      txtAdress.Locked = False 
      txtAdress.BorderStyle = 4 
      txtAdress.BorderColor = RGB(255, 165, 0) 

有沒有辦法來驗證碼結合？所以我的代碼變短了？ 像所有.Locked在1行，所有.Borderstyle在1行和所有.BorderColor在1行？

Answer 1

您可以使用選擇案例：

Dim Control As Access.Control 

For Each Control In Me.Controls 
    If Control.ControlType = acTextBox Then 
     Select Case Control.Name 
      Case _ 
       "txtFrontname", _ 
       "txtLastname", _ 
       "txtAdress" 

       With Control 
        .Locked = False 
        .BorderStyle = 4 
        .BorderColor = RGB(255, 165, 0) 
       End With 
     End Select 
    End If 
Next 

Set Control = Nothing