Looking for a better way to set properties for form controls
问题 I'm using the code below in many forms and several applications: Private Sub EnableEdit(strFieldname As String, Optional bUseRed As Boolean = False) Me.Controls(strFieldname).Enabled = True Me.Controls(strFieldname).Locked = False If Not Me.Controls(strFieldname).ControlType = acCheckBox Then Me.Controls(strFieldname).BackStyle = 1 If bUseRed Then Me.Controls(strFieldname).ForeColor = vbRed Else Me.Controls(strFieldname).ForeColor = vbBlack End If End If End Sub ' and the calls e.g.