自定义函数截取查询表中一列数据罗列到文本框中求教

roych

个人觉得复杂了。
建议用GetRows或者Getstring为佳：
http://www.office-cn.net/thread-119067-1-1.html***********************************************************************************
Dim D As DAO.Recordset
'改成这样，那一句就没问题了。
    Dim sqlstr As String
    Dim cristr As String
    If criteria = "" Then
        cristr = ""
    Else
        cristr = " where " & criteria
    End If
    sqlstr = "select " & fieldname & " from " & tblName & cristr & " GROUP BY " & fieldname
    Set D = CurrentDb.OpenRecordset(sqlstr)  '这一句提示有问题。
***********************************************************************************

说过不下十次，很多人就是不愿意加上“DAO”这几个字。
没有加上的情况下，系统根据引用的优先顺序来判断到底是ADO.Recordset还是DAO.Recordset，如果很不幸，你的ADO是优先于DAO的话，就出错了。

'

roych

wang1950317 发表于 2016-6-14 08:36
按两位老师的指点都调整过了，但对动态查询，即引用窗体控件内容作为查询条件的，那一句还是报错。

条件有问题吧。得看实例才知道。