Run-Time Error 2448

[gracm25]

When I try to run the following code, I get a run-time error 2448 that reads, "You can't assign a value to this object." This applies to the message that reads "APPLY SRT'S!!. I don't know where to place this text in order for it to be visible when REPAIR_TYPE is blank. Any suggestions?

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim dblInterval As Double
Dim lngGreen As Long

dblInterval = CDbl(dateTimeEnd - dateTimeStart)

lngGreen = RGB(0, 128, 64)

Me!ElapsedTimeString.ForeColor = vbBlack
Me!ElapsedTimeString.FontBold = False
Me!ElapsedTimeString.FontUnderline = False
Me!TimeRemaining.ForeColor = vbBlack
Me!TimeRemaining.FontBold = False
Me!TimeRemaining.FontUnderline = False

If REPAIR_TYPE = "MINOR" Then
If dblInterval < 1 Then
Me!ElapsedTimeString.ForeColor = vbRed
Me!ElapsedTimeString.FontBold = True
Me!ElapsedTimeString.FontUnderline = True
Me!TimeRemaining.ForeColor = vbRed
Me!TimeRemaining.FontBold = True
Me!TimeRemaining.FontUnderline = True
End If
ElseIf REPAIR_TYPE = "MAJOR" Then
If dblInterval < 1 Then
Me!ElapsedTimeString.ForeColor = vbRed
Me!ElapsedTimeString.FontBold = True
Me!ElapsedTimeString.FontUnderline = True
Me!TimeRemaining.ForeColor = vbRed
Me!TimeRemaining.FontBold = True
Me!TimeRemaining.FontUnderline = True
ElseIf dblInterval >= 1 And dblInterval < 3 Then
Me!ElapsedTimeString.ForeColor = vbBlue
Me!ElapsedTimeString.FontBold = True
Me!ElapsedTimeString.FontUnderline = True
Me!TimeRemaining.ForeColor = vbBlue
Me!TimeRemaining.FontBold = True
Me!TimeRemaining.FontUnderline = True
Else
' Add something here for when "MAJOR", dblInterval >= 3
Me!ElapsedTimeString.ForeColor = vbBlack
Me!ElapsedTimeString.FontBold = False
Me!ElapsedTimeString.FontUnderline = False
Me!TimeRemaining.ForeColor = vbBlack
Me!TimeRemaining.FontBold = False
Me!TimeRemaining.FontUnderline = False
End If
Else
Me!ElapsedTimeString.ForeColor = lngGreen
Me!ElapsedTimeString.FontBold = True
Me!ElapsedTimeString.FontUnderline = True
Me!TimeRemaining.ForeColor = lngGreen
Me!TimeRemaining.FontBold = True
Me!TimeRemaining.FontUnderline = True
Me!TimeRemaining = "APPLY SRT's!!"
End If

End Sub

 

[ByteMyzer]

If TimeRemaining is a label, then the code should be changed to:

Me!TimeRemaining[b].Caption[/b] = "APPLY SRT's!!"

 

[gracm25]

Now I'm getting a run-time error 438 that reads "Object doesn't support this property or method. However, this is a textbox. Anything else I can try?

 

[ByteMyzer]

Is this Report code? Is the textbox TimeRemaining an unbound textbox?

If so, then set the textbox's ControlSource property to:
="APPLY SRT's!!"

...and change your code from:

Me!TimeRemaining = "APPLY SRT's!!"

...to:

Me!TimeRemaining.Visible = True
Else
Me!TimeRemaining.Visible = False