#Error in custom function

I've got this function that returns good results except for some records
return #Error. This #Error is expected, and I'm trying to trap it and report
the record as "9: Function Group Not Defined". What am I doing wrong?


If [FuncGroup] = "Operations" Then
RowDesig2 = "3: DIRECT OPS EXPENSE"

ElseIf [FuncGroup] = "Products" Then
RowDesig2 = "5: INDIRECT PRODUCT EXPENSE"

ElseIf [FuncGroup] "Operations" And [FuncGroup] "Products" Then
RowDesig2 = "7: OTHER SGA-SHARED SERVICES"

ElseIf RowDesig2 = "#Error" Then
RowDesig2 = "9: FUNC GROUP NOT DEFINED"

Else
RowDesig2 = "9: ERROR"

End If

Use a Select...Case statement something like this:

Select Case [FuncGroup]
Case "Operations"
RowDesig2 = "3: DIRECT OPS EXPENSE"
Case "Products"
RowDesig2 = "5: INDIRECT PRODUCT EXPENSE"
Case "#Error"
RowDesig2 = "9: FUNC GROUP NOT DEFINED"
Case Else
RowDesig2 = "9: ERROR"
End Select


jmonty


"Kirk P." wrote:

I've got this function that returns good results except for some records
return #Error. This #Error is expected, and I'm trying to trap it and report
the record as "9: Function Group Not Defined". What am I doing wrong?


If [FuncGroup] = "Operations" Then
RowDesig2 = "3: DIRECT OPS EXPENSE"

ElseIf [FuncGroup] = "Products" Then
RowDesig2 = "5: INDIRECT PRODUCT EXPENSE"

ElseIf [FuncGroup] "Operations" And [FuncGroup] "Products" Then
RowDesig2 = "7: OTHER SGA-SHARED SERVICES"

ElseIf RowDesig2 = "#Error" Then
RowDesig2 = "9: FUNC GROUP NOT DEFINED"

Else
RowDesig2 = "9: ERROR"

End If