#Error in custom function

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Kirk P. - 14 Aug 2006 18:00 GMT

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

Reply to this Message

jmonty - 14 Aug 2006 20:05 GMT

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

> 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
[quoted text clipped - 16 lines]
>
> End If

Reply to this Message