Public Function IsNullEx(ValueToCheck As Variant, varWhatToReturnIfNull) As Variant
If IsNull(ValueToCheck) Then IsNullEx = varWhatToReturnIfNull Else IsNullEx = ValueToCheck End If End Function '___________________________________________________________ 'Esempio: txtClientName = IsNullEx(rst!ClientName, "unknown") Inputs: ValueToCheck = e' una variant che rappresenta il valore da verificare se null varWhatToReturnIfNull = il valore restituito se ValueToCheck e' null Returns: Se ValueToCheck e' null, varWhatToReturnIfNull viene restituita, altrimenti viene restituita ValueToCheck |