New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
Public Function CheckForNULLs(ByVal fld As Object, Optional ByVal strType As String = "") As Object Try EH.ErrorMessage = "" If DBNull.Value.Equals(fld) Then If strType = "N" Then Return 0 Else Return Nothing End If Else Return fld End If Catch ex As Exception EH.ErrorMessage = "modMain/CheckForNULLs() - " & ex.Message & "...Contact Engineering!" & "~E" End Try End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.