标题: 【已解决】Henry D. Sy,请再帮我看一下出错在什么地方 [打印本页] 作者: cocofelling 时间: 2009-8-24 10:54 标题: 【已解决】Henry D. Sy,请再帮我看一下出错在什么地方 本帖最后由 cocofelling 于 2009-8-24 15:00 编辑
我把你编的模块导入来了。但还是执行不了查询。。
请帮我看一下，我的查询： 查询14 出错出在什么地方作者: aslxt 时间: 2009-8-24 11:08
1、模块名称和函数名称不能相同；你试着改一下函数的名称
2、如果将函数改名为gstr2，还要设置中间变量aa，如下可以通过，但不知道是否符合你的需要：
Function gstr2(fld As String)
Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim aa
'strSQL = "SELECT DM FROM TABDM WHERE KT='" & fld & "'"
strSQL = " SELECT 店面编号 FROM 物管名称 WHERE 合同编号='" & fld & "'"
With rs
.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
Do While Not .EOF
aa = aa & .Fields(0) & ","
.MoveNext
Loop
.Close
End With
Set rs = Nothing
gstr2 = aa
End Function作者: cocofelling 时间: 2009-8-24 11:17 2#aslxt
谢谢。。。可以了。作者: aslxt 时间: 2009-8-24 11:20
如果可以了就标记为【已解决】吧！作者: Henry D. Sy 时间: 2009-8-24 12:09
标题也要更改