各位老师请帮助看看下面的代码如何修改一下:

yanwei82123300

各位老师请帮助看看下面的代码如何修改一下:
表: tblWACO里面的字段为short Text格式,现在想修改为Number格式,请问下面的代码如何调整,谢谢
Function allln(CO As String, 子项 As String, Actuator_date As Date, TEXT_No As String) As String
    Dim rs As New ADODB.Recordset  '定义一个ado数据集
    Dim ssql As String
    Dim i As Long
    Dim str As String
    ssql = "SELECT co,ln,子项,Actuator_date,TEXT_No FROM tblWACO "

    ssql = ssql & "WHERE co='" & CO & "' and 子项='" & 子项 & "'and Actuator_date=#" & Actuator_date & "# and TEXT_No='" & TEXT_No & "' "
    rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic '打开一个数据集
    For i = 1 To rs.RecordCount
        str = str & rs!LN.Value & ","  '循环拼接字符串
        rs.MoveNext
    Next
    allln = Left(str, Len(str) - 1)  '去掉尾部逗号后作为函数的返回值
    rs.Close
    Set rs = Nothing
End Function

yanwei82123300

表: tblWACO里面的TEXT_No字段为short Text格式

roych

实话说，没看懂你的表达。
1、表tblWACO的字段TEXT_No是文本还是数值？如果当前是数值，where部分，把对应的单引号去掉，参数改为对应的数值格式即可（整型建议用long，小数建议用double）。

2、如果需要将tblWACO的字段TEXT_No由文本改为数值，请在设计视图下修改。用代码的话，实现的难度比较大。alter似乎没法直接修改字段类型，只能先删除已有的字段，再新增字段，这样会丢失数据。

yanwei82123300

表: tblWACO里面的TEXT_No字段为文本格式,roych 老师谢谢您的帮助

Henry D. Sy

什么意思？

yanwei82123300

Henry D. Sy老师谢谢已经解决,就是文本类型的,改变为数值型,在VBA里面如何修改的问题