|
|
Suppress #Error in calculated fieldQuestionSorry, my friend: No joy using Nz() or its less efficient cousin, IIF(), when I use them as a text field's control source. Any other ideas? AnswerGreg, Public Function smsNullToZero(ByVal vvarAnyValue As Variant) As Variant
' Purpose:
' Convert Null value to zero (variant) if it is equal to Null.
' Return input value if it is not Null.
' Arguments:
' vvarAnyValue - value to check for Null and convert to zero if it is
Null
' Returns:
' 0 (variant Zero) - if input value is Null,
' Input value - if it isn't Null
' Authors:
' SMS, 27/06/97
' Example:
' varRet = smsNullToZero(Null)
' Calls:
'
' Revisions:
'
On Error GoTo smsNullToZero_Err
If IsNull(vvarAnyValue) Then
smsNullToZero = 0
Exit Function
ElseIf Trim(vvarAnyValue) = "" Then
smsNullToZero = 0
Else
smsNullToZero = vvarAnyValue
End If
smsNullToZero_Exit:
Exit Function
smsNullToZero_Err:
smsNullToZero = 0
Resume smsNullToZero_Exit
End Function
Feel free to adapt it to your needs, Copyright © 1999-2008 by Shamil Salakhetdinov. Original version is published here All rights reserved. |