Public Function EqualQuotedValue( _ ByVal vValue As Variant _ ) As Variant
EqualQuotedValue(CLng(1)) = "= 1&" EqualQuotedValue(CSng(2)) = "= 2!" EqualQuotedValue(CBool(0)) = "= False" EqualQuotedValue("Al") = "= ""Al""" EqualQuotedValue(Null) = "Is Null"See also:
DoubleQuoteString Function VariantToVBConstExpression Function VariantToVBEvalExpression FunctionvValue: The value which is to be turned-into a string expression.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.