troubleshooting Question

VBA Run-time Error 424 Object Require

Avatar of Eileen Murphy
Eileen MurphyFlag for United States of America asked on
Microsoft AccessVBA
12 Comments1 Solution92 ViewsLast Modified:
VBA Object Required Error: Not sure why this isn't working. I've used this code in the past.

------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Form_Current()

    If Me.NewRecord Then Exit Sub
   
    Me.CursorHold.SetFocus
   
    If Me.SelYear = "ALL" Then
        Call LockUnlockForm(True, "#D5D5D5")
        Me.lblLock.Visible = True
    Else
        Call LockUnlockForm(False, "#FFFFFF")
        Me.lblLock.Visible = False
    End If
   
End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Function LockUnlockForm(ynEnabled As Boolean, strColor As String)

    If IsNull(Me.ProjectName) Then Exit Function
   
    Dim ctrl As Control
     
    For Each ctrl In Me.Controls
        If ctrl.Tag = "LockUnlock" Then
     
            If ctrl.ControlType = acTextBox Then
                crtl.BackColor = strColor <<<<<<<<<<<<<<<<<<<<< Run-time Error 424 Object Required
            End If
            ctrl.Locked = ynEnabled
        End If
    Next

End Function
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 12 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 12 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros