call the function query

[Frank Dulk]

How could I call the function below (decimal conversion for hexadecimal)
starting from a query?
And in a form?

beginning of the function:

Function Dec2Hex(ByVal x As Double) As String
Dim Result As String, i As Integer, Temp As Integer

Result = Hex(Int(x)) & "."
x = x - Int(x)
For i = 1 To 16
x = x * 16
Result = Result & Hex(x)
x = x - Int(x)
Next i
Dec2Hex = Result

End Function

final of the function.

 

[Frank Dulk]

thank you

Hi Frank,

In Query:
select Dec2Hex(DecimalValue) as HexValue;

In Form:

sub Testing()
.
.
.
HexValue = Dec2Hex(DecimalValue)
.
.
.
.
end sub

Hope this helps.

 

[Guest]

Hi Frank,

In Query:
select Dec2Hex(DecimalValue) as HexValue;

In Form:

sub Testing()
..
..
..
HexValue = Dec2Hex(DecimalValue)
..
..
..
..
end sub

Hope this helps.