[MS Access] Funzione ARROTONDA non definita nell'espressione

[gianphy]

Salve,

in STRUMENTI DATABASE/VISUAL BASIC ho creato nuovo MODULO per definire la seguente funzione:

Function Arrotonda(numero As Variant) As Variant

If numero = "" Then
    Exit Function
End If

Dim valore As Currency

valore = Fix(numero * 1000)

    If Right$(valore, 1) >= 5 Then
    valore = valore + 10
    End If

valore = Fix(valore / 10) / 100
Arrotonda = valore
End Function

ma quando la richiamo in una query Access mi segnala in pop up: Funzione 'arrotonda' non definita nell'espressione.



Come posso risolvere?



P.S.: non consigliatemi di utilizzare la funzione ROUND in quanto sbaglia gli arrotondamenti sull'euro.

 

[Max 1]

@gianphy
Da regolamento del forum, come tutti noi sei tenuto ad usare il tag

quando posti del codice, oppure la funzione codice dalla barra degli strumenti

Inoltre IMPORTANTE: Prima di creare una nuova discussione o di rispondere alle discussioni esistenti ricordati di leggere attentamente il Regolamento del Forum e l'eventuale regolamento specifico della sezione!
Grazie
Per questa volta te lo sistemo io ma mi raccomando per il futuro