Runtime Error 424 - Object Required?

[smsmail]

Hello

I am getting a runtime error on the highlighted (bold) code. I have been looking at it too long..any idea of what I am doing wrong?

Thanks in advance for your help!

Private Sub Colors_AfterUpdate()

    If Me.Colors = "Yes" Then
       Dim strOtherValue As String
       strOtherValue = InputBox("Please specify COLORS for Mailer", "Specific colors for mailer")
    Else
       Exit Sub
    End If
    
    If strOtherValue = "" Then
       Me.Colors = "No"
       strColorDescription = ""
       ColorDescription.Value = ""
    Else
       strColorDescription = strOtherValue
      [b]ColorDescription.Value = strOtherValue[/b]
       If IsNull(Me.Comments) Then
          Me.Comments = Me.Comments & "Specific Colors for mailer: " & strOtherValue & vbCrLf
       Else
          Me.Comments = Me.Comments & vbNewLine & "Specific Colors for mailer: " & strOtherValue & vbCrLf
       End If
    End If

    
    
End Sub

 

[PHV]

What is ColorDescription ?

Just a guess:
Me!ColorDescription.Value = strOtherValue

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[smsmail]

Hi PHV,

Thanks so very much! It worked. Me!ColorDescription.Value = strOtherValue

Have a great day!