"<Error>" result of simple Macro-Derived field- what's wrong?

[ShaneSQ]

Hello all!
(RS V4.2, ADP SQLBase)

I have a simple Macro-Derived Field to format termination dates into the "Medium Date" format. The code is as follows:

Sub TermDate2()
Dim TermDt
TermDt = Field("TERMINATIONDATEROE")

Dim TermDt2 as string
TermDt2 = Format$(TermDt, "Medium Date")

DerivedField Field$("TERMINATIONDATEROE")

End Sub

I'm using syntactically identical code to reformat the HireDateActual, with success.

The TERMINATIONDATEROE Field is Null for many employees.

The output is "<Error>" for ALL employees, even those who actually have a value in that field.

I tried putting:

If TermDt = "" Then
    DerivedField "-"
    Exit Sub
End If

into the macro, but with the same result (<Error>).

Any Ideas?

Many Thanks!

 

[ShaneSQ]

... I've also just tried:

If (IsNull(Field("TERMINATIONDATEROE")) = (-1)) Then
     DerivedField "-"
     Exit Sub
End If

at the very beginning of the macro, with the same result.

 

[ShaneSQ]

Ok, so the Field "TERMINATIONDATEROE" can't just be included "For Query Only"....

Problem Solved.