IsDecimal

Public Function IsDecimal(ByVal Expression As Variant) As Boolean

Returns True if the specified variable/expression is of type Decimal.

Dim lField As Field
For Each lField In lRecordset.Fields
   If IsDecimal(lField.Value) Then
       SendDebug $"Field {lField.Name} contains a Decimal"
   End If
Next

See also: