'---------------------------------------------------------------------------------------

' 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 Long) As 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