请问如何在VBA中判断某一字段值的数据类型?

qlm

请问如何在VBA中判断某一字段值的数据类型?用什么函数?

多谢!

hi-wzj

都以is打头的,isdate isnumeric  isnull isempty....

qlm

isnumeric("32")

如果字段是文本属性，但值为32,结果也判断不对

andymark

Dim Rs As New ADODB.Recordset
Rs.Open "select * from 表1", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
For I = 0 To Rs.Fields.Count - 1
Debug.Print Rs.Fields(I).Name
Debug.Print Rs.Fields(I).Type
Next I
Set Rs = Nothing

代码202表示文本类型

qlm

[em17][em17][em17]

andymark,真是太感谢你了!

qlm

为解决我原来的问题,我设计了下面的函数,只能把数字和其它类型分开.

拿出来让大家看看:



'如果是数字类型,就返回true,字符及日期类型等返回false
Function myIsNum(str As Variant) As Boolean
Dim aa As Long
Dim bb As String

On Error GoTo 是字符
aa = str + 1
On Error GoTo 是数字
bb = str + "d"
GoTo 是字符
Exit Function


是字符:
myIsNum = False
Exit Function

是数字:
myIsNum = True

End Function

fan0217

有现成的不用。

IsNumeric 函数

返回 Boolean 值，指出表达式的运算结果是否为数。

语法

IsNumeric(expression)




必要的 expression 参数是一个 Variant，包含数值表达式或字符串表达式。

说明

如果整个 expression 的运算结果为数字，则 IsNumeric 返回 True；否则返回 False。

如果 expression 是日期表达式，则 IsNumeric 返回 False。

IsNumeric 函数示例

本示例使用 IsNumeric 函数判断变量的值是否可为数值。

1. Dim MyVar, MyCheck
   MyVar = "53"    '

复制代码

指定值。

1. MyCheck = IsNumeric(MyVar)

复制代码

  

1. '

复制代码

返回

1. True

复制代码

。

1. MyVar = "459.95"    '

复制代码

指定值。

1. MyCheck = IsNumeric(MyVar)

复制代码

  

1. '

复制代码

返回

1. True

复制代码

。

1. MyVar = "45 Help"    '

复制代码

指定值。

1. MyCheck = IsNumeric(MyVar)

复制代码

  

1. '

复制代码

返回

1. False

复制代码

。

[此贴子已经被作者于2006-10-15 17:31:01编辑过]

qlm

以下是引用fan0217在2006-10-15 17:31:00的发言：


有现成的不用。

IsNumeric 函数

返回 Boolean 值，指出表达式的运算结果是否为数。

语法

IsNumeric(expression)




必要的 expression 参数是一个 Variant，包含数值表达式或字符串表达式。

说明

如果整个 expression 的运算结果为数字，则 IsNumeric 返回 True；否则返回 False。

如果 expression 是日期表达式，则 IsNumeric 返回 False。

IsNumeric 函数示例

本示例使用 IsNumeric 函数判断变量的值是否可为数值。

1. Dim MyVar, MyCheck
   MyVar = "53"    '

复制代码

指定值。

1. MyCheck = IsNumeric(MyVar)

复制代码

  

1. '

复制代码

返回

1. True

复制代码

。

1. MyVar = "459.95"    '

复制代码

指定值。

1. MyCheck = IsNumeric(MyVar)

复制代码

  

1. '

复制代码

返回

1. True

复制代码

。

1. MyVar = "45 Help"    '

复制代码

指定值。

1. MyCheck = IsNumeric(MyVar)

复制代码

  

1. '

复制代码

返回

1. False

复制代码

。

MyCheck = IsNumeric("35")  返回的是true,但我希望它是字符型，例如某字段是文本类型，但它的值可能是纯数字。


如果用IsNumeric,会判断该值为数字。但我希望它能判断出该值是文本。

我设计的函数:

myIsNum（32）返回true

myIsNum("32")返回false

但IsNumeric(32)和IsNumeric("32")返回的都是true

[此贴子已经被作者于2006-10-19 23:50:43编辑过]

情比金坚

Function myfun(fedie) As String
Dim typ As Integer
Set rst = CurrentDb.OpenRecordset("表1")
    typ = rst("ole").Type
        Select Case typ
    Case 8
        myfun = "日期型"
    Case 11
        myfun = "对象型"
    Case 10 To 12
        myfun = "文本型"
    Case Else
        myfun = "数字型"
    End Select
End Function

[此贴子已经被作者于2006-10-20 2:27:07编辑过]

qlm

以下是引用情比金坚在2006-10-20 2:15:00的发言：


Function myfun(fedie) As String
Dim typ As Integer
Set rst = CurrentDb.OpenRecordset("表1")
    typ = rst("ole").Type
        Select Case typ
    Case 8
        myfun = "日期型"
    Case 11
        myfun = "对象型"
    Case 10 To 12
        myfun = "文本型"
    Case Else
        myfun = "数字型"
    End Select
End Function

不错！谢谢！

把日期型及对象型也加进来,这样好象更全面了。

我主要是用于在动态查询中判断是否需要加引号或#等到符号，需要解决这个问题