Where is the Nz() function in Visual Basic 6.0??? 2

[Sameal]

I recently migrated from programming in VBA behind Access to writing VB 6.0 Client Apps. While working on my current database project I came to a huge stumbling block. It seems VB6 doesn't recognize the function 'nz()'. This function checks to make sure what is supplied to it is not null, and if it is it sends back a zero-based string to replace it. I tried writing my own nz function but I get an invalid use of null error. Can anyone help?

Public Function nz(strValue As String, Optional strChar As String) As String
If Not IsNull(strValue) Then
nz = strValue
Else
nz = strChar
End If
End Function

----- Calling the function like this and get invalid
----- use of null error. 'rs' is my recordset in ADO.

txt1.Text = nz(rs("ECurrentPay&quot)

 

[abdullauthan]

Try this...

Public Function nz(strValue As Variant) as Variant
If Not IsNull(strValue) Then
nz = strValue
Else
nz = ""
End If
End Function

Works fine with String and Numeric variables.

 

[sunaj]

Hi,

Try this:
-----------------------------------------------------------
Public Function nz(strValue As String, Optional strChar As String="&quot As String
If Not IsNull(strValue) Then
nz = cstr(strValue)
Else
nz = strChar
End If
End Function
-----------------------------------------------------------
Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'

 

[Sameal]

Wahooo thanks =) must of been the variant.