ho fatto così:

Function numeri(Optional ByVal nome_campo As String)

If IsNull(nome_campo) Then
numeri = "0"
Else
numeri = Int(nome_campo)
End If

End Function


non funziona lo stesso... :master: