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
ASKER CERTIFIED SOLUTION
Eileen Murphy
Independent Application Developer

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 12 Comments.
Start Free Trial
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