Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

#error when running query

Status
Not open for further replies.

AHJ1

Programmer
Oct 30, 2007
69
US
I'm running a query that calls a function.
Code:
SELECT MyDataAggregated.ID, PutAppealsToNotes1([Appeal_Not_Heard_1],[Appeal_Not_Heard_2],[Exemption_Description]) AS Notes1, PutAppealsToNotes1([Appeal_Not_Heard_1],[Appeal_Not_Heard_2]) AS Notes2, [Notes1] & [Notes2] AS Notes
FROM MyDataAggregated;

Code:
Function PutAppealsToNotes1(Optional strCBEAppealString1 As String, Optional strCBEAppealString2 As String, _
Optional strCBE_f_ExemptDescr As String)
'->INCOMPLETE LOGIC

Dim strContent As String
 strContent = strCBEAppealString1 & vbCrLf & strCBEAppealString2 & vbCrLf
strContent = "Developing code - " & strContent
If Len(strCBE_f_ExemptDescr) > 0 Then
    strContent = strContent & strCBE_f_ExemptDescr
End If

    PutAppealsToNotes1 = strContent

End Function
The problem is that if there is no data in the field [Exemption_Description] the query returns #Error in that cell of the query.

What's the best way to preclude this result? The IsNull and IsMissing functions return false.
 
Change your input variables from strings to variants and within the function test for nulls (isnull function).
 
Yes. That works. Thank you. I realize that a zero-length string is not the same as a Null. Do you happen to have the code for checking for zero-length strings?
 
To check either Null or ZLS:
If Trim(testedVar & "") = "" Then

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top