Need help with clearing an error message" Invalid Null usage" in Access

[shonclark]

"Hi there,

I am having a bit of a headache trying to get the following coding to work. What I am trying to accomplish is turn around totals between and open date and resolution date. My coding works fine if the fields are filled in, but how do I get the blank data set to zero so that I am not getting and error message?

Will using the Nz function eliminate this problem?

See Below....

This is the field from my query...
TimeElapsed: GetElapsedDays([ResolutionDate]-[OpenDate])

Field from Time elaspe function:

Function GetElapsedDays(interval)
Dim days As Long

days = Int(CSng(interval))
GetElapsedDays = days & " days "

End Function
Any suggestions will be greatly appreciated :)"

[ADezii]

"Hi there,

I am having a bit of a headache trying to get the following coding to work. What I am trying to accomplish is turn around totals between and open date and resolution date. My coding works fine if the fields are filled in, but how do I get the blank data set to zero so that I am not getting and error message?

Will using the Nz function eliminate this problem?

See Below....

This is the field from my query...
TimeElapsed: GetElapsedDays([ResolutionDate]-[OpenDate])

Field from Time elaspe function:

Function GetElapsedDays(interval)
Dim days As Long

days = Int(CSng(interval))
GetElapsedDays = days & " days "

End Function
Any suggestions will be greatly appreciated :)"

The following code will work unless:
__1 You declare interval as any other Data Type other than Variant as in:
Public Function GetElapsedDays(interval As Long)
__2 You do not assign any Data Type other than Variant or String to the return value of the Function as in: Public Function GetElapsedDays(interval) As Long
__3 1 and 2 will not work under either condition. Just use the code below as it is and you'll be OK.

Public Function GetElapsedDays(interval)
Dim days As Long
 
If IsNull(interval) Then
  GetElapsedDays = "N/A"
Else
  days = Int(CSng(interval))
  GetElapsedDays = days & " days "
End If
End Function