提取列内容时如何避免出现重复内容？

REORX

各位大大晚上好！

我在提取国家名称一列的内容到文本框时，如何让重复出现的国家只在文本框中显示一个呢。

感谢赐教！

access3009

用split函数来做, 判断各个子项有没有重复

REORX

谢谢,要学习一个这个函数

glw

Function allname()
    Dim d As Recordset
    Set d = CurrentDb.OpenRecordset("SELECT distinct 团组接待表.所属国家地区 FROM 团组接待表;")
    d.MoveFirst
    Do While Not d.EOF
        allname = allname & "," & d(0)
        d.MoveNext
    Loop
    allname = Right(allname, Len(allname) - 1)
End Function