I use the code you gave me:
Public Function Decode(InCode As Integer, InField As Variant) As String
'-- Used in a query like:
'-- Kiekis2:=Decode([Tipas],[Kiekis])
Select Case InCode
Case 1, 3, 4, 5
Decode = FormatNumber(InField, 0)
Case Else
Decode = FormatNumber(InField, 3)...