Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4,VB5,VB6
Expertise: beginner
Jul 24, 1999

NZ - Check whether a value is Null

' Check if a value is Null. If not it returns the value, 
' otherwise it returns the ValIfNull argument, or zero/null string
' if the second argument is omitted
'
' This function is patterned after the Access function with the same name.

'-----------------------------------------------------------------
'Date:          19 Feb 99
'Developer:     Heather McCaslin
'*****************************************************************

Public Function NZ(CheckVar As Variant, Optional ValIfNull As Variant) As _
    Variant

    If IsNull(CheckVar) Then
        If IsMissing(ValIfNull) Then
            ' this translates to "" for strings, and 0 for numbers
            NZ = Empty
        Else
            NZ = ValIfNull
        End If
    Else
        NZ = CheckVar
    End If
End Function
Heather McCaslin
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date