Office中国论坛/Access中国论坛

标题: 请教，如何建立连接字符串的查询？ [打印本页]

作者: jakyky 时间: 2011-12-22 15:04
标题: 请教，如何建立连接字符串的查询？
请教各位大神，如何实现如下图的效果？

[attach]47766[/attach]

作者: roych 时间: 2011-12-22 15:17
http://www.office-cn.net/forum.p ... 4%BB%D8%D5%DB%CC%DA

作者: jakyky 时间: 2011-12-22 15:26
谢谢Roych提供的链接，如果我要建立查询呢，有办法实现吗？谢谢了。

作者: bbpst 时间: 2011-12-22 15:56
学习

作者: Henry D. Sy 时间: 2011-12-22 16:59

jakyky 发表于 2011-12-22 15:26
谢谢Roych提供的链接，如果我要建立查询呢，有办法实现吗？谢谢了。

可以，但要定义函数

作者: jakyky 时间: 2011-12-22 17:02
想了个这样的函数，初步实现

Function Jointxt(ByVal aa As String, ByVal dd As String, ByVal cc As Variant) As String
Dim f1 As String
f1 = ""
Set rs = CurrentDb.OpenRecordset("select " & aa & " from " & dd & " where " & cc)
Do While Not rs.EOF
      f1 = f1 & rs(0) & ", "
      rs.MoveNext
Loop
  Jointxt = Left(f1, Len(f1) - 2)
End Function

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)