Cleaner way to disable multiple controls? (1 Viewer)

[ejstefl]

Hello,

I need to disable certain contols on a form. I am looking for a cleaner way to do it than I am. I do not want to disable all controls. Below is what I have now. What I'm wondering is if there is some way maybe to assign each of the controls to an array, and then loop through the array? Any help is appreciated.

    With Me
        
        With .txtTrustAcctNumber
            .Enabled = True
            .Locked = False
            .BackStyle = 1
        End With
        
        With .cboTrustDatabaseID
            .Enabled = True
            .Locked = False
            .BackStyle = 1
        End With
        
        With .txtControlID
            .Enabled = True
            .Locked = False
            .BackStyle = 1
        End With
        
        With .txtTrustAcctName
            .Enabled = True
            .Locked = False
            .BackStyle = 1
        End With
    End With

 

[Rich]

Something like
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Tag = "A" Then
If IsNull(Me.pd) Then
End If
If Me.pd = True Then
ctl.Locked = True
ctl.Enabled = False
Else
ctl.Enabled = True
ctl.Locked = False
End If
End If


Next

End Sub

 

[ejstefl]

OK, So I would need to assign a tag to each control that I want affected. Brilliant! The one part I don't understand... what is Me.pd?

 

[ghudson]

pd would have to be a field [check box?] that he is checking if the value of pd is Null or True.

 

[ejstefl]

Ah, of course. Thanks for the help!