Shading text boxes when form is disabled

[freeskier]

Hello,

When a textbox's enabled property is set to false it becomes shaded and is clearly disabled. When I set the form's enabled property to false the text boxes are disabled but still look the same. Is it possible to shade out the text boxes without setting each individual property? Or can I set the property of all objects on a form?

Thanks

[NeoPa]

Use the form :-

For Each ObjectVariable in Me.Controls
    With ObjectVariable
        If .ControlType = 109 then .Enabled = False
    End With
Next ObjectVariable

from the OnOpen event or wherever you want it to be set.

[PEB]

Yeah I agree with NeoPa this disables or enables all fields automaticlly.. You can use this code to automate your enabling or disabling of your form...

:)

[freeskier]

this gives me "compile error: invalid qualifier". it hangs up on the bolded line.I am trying to pass the form referral which i want disabled to the sub. i commented out the code which has been used in the past. i would like to make this a public sub after i get this to work because it will be used quite often.

    If IsNull(lstPlacements) Then
        DisableObjects ("sfrmEntryPlacement")
        'sfrmEntryPlacement.Enabled = False
    Else
        EnableObjects ("sfrmEntryPlacement")
        'sfrmEntryPlacement.Enabled = True
    End If
 
Private Sub DisableObjects(ByRef AlteredForm As String)
 
     For Each ObjectVariable In AlteredForm.Controls
        With ObjectVariable
            If .ControlType = 109 Then .Enabled = False
        End With
    Next ObjectVariable
End Sub
 
Private Sub EnableObjects(ByRef AlteredForm As String)
    For Each ObjectVariable In AlteredForm.Controls
        With ObjectVariable
            If .ControlType = 109 Then .Enabled = False
        End With
    Next ObjectVariable
End Sub
 

Use the form :-

For Each ObjectVariable in Me.Controls
    With ObjectVariable
        If .ControlType = 109 then .Enabled = False
    End With
Next ObjectVariable

from the OnOpen event or wherever you want it to be set.

[NeoPa]

Private Sub EnableObjects(ByRef AlteredForm As String)
    For Each ObjectVariable In AlteredForm.Controls
        With ObjectVariable
            If .ControlType = 109 Then .Enabled = False
        End With
    Next ObjectVariable
End Sub

FreeSkier,

You need to define the 'ObjectVariable ' before use.
A simple form would be 'Dim ObjectVariable As Object'. However, I wouldn't use the name ObjectVariable in any real code.
I also noticed that you're passing a string as a parameter rather than the form object itself. In this case you need to resolve to the form within the routine. I've included that in the new version below.
Try this :-

Private Sub EnableObjects(ByRef AlteredForm As String)
    Dim objThis As Object
 
    For Each objThis In Forms(AlteredForm).Controls
        With objThis
            If .ControlType = 109 Then .Enabled = False
        End With
    Next objThis
End Sub

[MMcCarthy]

You're passing AlteredForm as a String so I think you will need something like.

 
Private Sub tmpcode(ByRef AlteredForm As String)
Dim obj As Control
 
  For Each obj In Forms(AlteredForm).Controls
    With Obj
      If .ControlType = 109 Then .Enabled = False
    End With
Next
 
End Sub