'---------------------------------------------------------------------------------------
' Procedure : GetFieldDataTypeName
' DateTime  : 11/20/2008
' Author    : Patrick Wood
' Purpose   : Get the DataType
' Arguments : lngDataType: The Constant Number
' Usage     : When geting DAO Field Type Property values which are returned as
'           : numbers change the number to a Constant Name you can understand:
'           : strfldType = GetFieldDataTypeName(fld.Properties("Type").Value)
'---------------------------------------------------------------------------------------
'
Function GetFieldDataTypeName(lngDataType As LongAs String
 
    Dim strDataType As String
 
    Select Case lngDataType
        Case Is = 1
            strDataType = "dbBoolean"
        Case Is = 2
            strDataType = "dbByte"
        Case Is = 3
            strDataType = "dbInteger"
        Case Is = 4
            strDataType = "dbLong"
        Case Is = 5
            strDataType = "dbCurrency"
        Case Is = 6
            strDataType = "dbSingle"
        Case Is = 7
            strDataType = "dbDouble"
        Case Is = 8
            strDataType = "dbDate"
        Case Is = 9
            strDataType = "dbBinary"
        Case Is = 10
            strDataType = "dbText"
        Case Is = 11
            strDataType = "dbLongBinary"
        Case Is = 12
            strDataType = "dbMemo"
        Case Is = 15
            strDataType = "dbGUID"
        Case Is = 16
            strDataType = "dbBigInt"
        Case Is = 17
            strDataType = "dbVarBinary"
        Case Is = 18
            strDataType = "dbChar"
        Case Is = 19
            strDataType = "dbNumeric"
        Case Is = 20
            strDataType = "dbDecimal"
        Case Is = 21
            strDataType = "dbFloat"
        Case Is = 22
            strDataType = "dbTime"
        Case Is = 23
            strDataType = "dbTimeStamp"
        Case Is = 101
            strDataType = "dbAttachment"
        Case Is = 102
            strDataType = "dbComplexByte"
        Case Is = 103
            strDataType = "dbComplexInteger"
        Case Is = 104
            strDataType = "dbComplexLong"
        Case Is = 105
            strDataType = "dbComplexSingle"
        Case Is = 106
            strDataType = "dbComplexDouble"
        Case Is = 107
            strDataType = "dbComplexGUID"
        Case Is = 108
            strDataType = "dbComplexDecimal"
        Case Is = 109
            strDataType = "dbComplexText"
        Case Else
            MsgBox "DataType not found."
    End Select
 
        GetFieldDataTypeName = strDataType
 
End Function